VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 印刷関係のメニュー
1.プリンターの一覧を取得及び指定のプリンターで印刷
2.印刷位置をmm単位で指定しての簡単なテキストの印刷
3.印刷プレビューを表示及びダイアログの設定色々
4.ページ設定ダイアログボックスを表示する
5.用紙サイズの取得及び設定・印刷部数・印刷方向の設定
6.通常使うプリンターを取得及び設定する
7.画像を拡大・縮小して印刷及びファイルから直接読み込み印刷
8.格子状にラインを引いて表形式で印刷する
9.
10.
11.
12.
 .
20.その他、当サイト内に掲載の印刷に関するサンプル 


4.ページ設定ダイアログボックスを表示する(07_Pri_04) (旧、SampleNo.056)
1.ページ設定ダイアログボックスの表示及び設定結果を印刷プレビュー・印刷設定に反映
2.
3.
4.
5. 
6. 

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86
Option :[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports :追加なし
参照設定:
追加なし
使用コン:TextBox1 / Button1 / Button2 / PrintDocument1 / PrintPreviewDialog1 / PageSetupDialog1
トロール:
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 1.ページ設定ダイアログボックスの表示及び設定結果を印刷プレビュー・印刷設定に反映
別途、テキストボックス(TextBox1.Text)に印刷するデータを表示しておいて下さい。

Private printerPageSetting As New System.Drawing.Printing.PageSettings

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'ページ設定ダイアログの設定及び表示
    '現在のページ設定ダイアログの設定を指定
    With printerPageSetting.Margins
        .Left = CInt(.Left * 2.54 / 10) * 10
        .Top = CInt(.Top * 2.54 / 10) * 10
        .Right = CInt(.Right * 2.54 / 10) * 10
        .Bottom = CInt(.Bottom * 2.54 / 10) * 10
    End With
    PageSetupDialog1.PageSettings = printerPageSetting
    'ページ設定ダイアログの設定 OK ボタンがクリックされたらプレビュー表示
    If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
        Button2.PerformClick()
    End If
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'印刷プレビューのダイアログボックスの表示位置と大きさを設定
    'ページ設定ダイアログの設定の内容を反映
    PrintDocument1.DefaultPageSettings = printerPageSetting
    PrintPreviewDialog1.Document = PrintDocument1
    '★表示位置を設定
    PrintPreviewDialog1.StartPosition = FormStartPosition.Manual
    PrintPreviewDialog1.Location = New Point(450, 20)
    '★表示するダイアログの大きさを設定する
    PrintPreviewDialog1.Size = New Size(440, 640)
    '★印刷プレビューの表示倍率を指定
    PrintPreviewDialog1.PrintPreviewControl.Zoom = 0.4

    PrintPreviewDialog1.ShowDialog()
End Sub

Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    '四角形の位置とサイズを表す 4 つの浮動小数点数を格納します
    Dim rect As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)
    Using myFont As New System.Drawing.Font("MS Pゴシック", 12)
        e.Graphics.DrawString(TextBox1.Text, myFont, Brushes.Black, rect)
    End Using
End Sub

 図1.使用コントロール類と配置図
 vb2005print04_01.gif

このページのトップへ移動します。 2.



このページのトップへ移動します。 3.


このページのトップへ移動します。 4.


このページのトップへ移動します。 5. 



このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)
1.ページ設定ダイアログの表示  2.ページ設定ダイアログの設定結果を印刷プレビューに反映  3.ページ設定ダイアログの設定結果を印刷設定に反映
4.テキストファイルを読み込みテキストボックスに表示



このページのトップへ移動します。