３．印刷プレビューを表示及びダイアログの設定色々(07_Pri_03)　(旧、SampleNo.055)

１．印刷プレビューを表示及びダイアログの設定色々 ２． ３． ４． ５．　 ６．

下記プログラムコードに関する補足・注意事項　 動作確認：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 トロール： このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)

１．印刷プレビューを表示及びダイアログの設定色々

別途、テキストボックス(TextBox1.Text)に印刷するデータを表示しておいて下さい。 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '印刷プレビューのダイアログボックスを表示     PrintPreviewDialog1.Document = PrintDocument1     PrintPreviewDialog1.ShowDialog()     'PrintPreviewDialog1.Size = New Size(800, 900)     'PrintPreviewDialog1.PrintPreviewControl.Zoom = 1.0 End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '印刷プレビューのダイアログボックスの表示位置と大きさを設定     PrintPreviewDialog1.Document = PrintDocument1     '★表示位置を設定     PrintPreviewDialog1.StartPosition = FormStartPosition.Manual     PrintPreviewDialog1.Location = New Point(400, 10)     '★表示するダイアログの大きさを設定する     PrintPreviewDialog1.Size = New Size(600, 700)     '★印刷プレビューの表示倍率を指定     PrintPreviewDialog1.PrintPreviewControl.Zoom = 1.0     PrintPreviewDialog1.ShowDialog() End Sub Private Sub PrintDocument1_PrintPage(sender As Object, e As Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage     'テキストボックスの内容を印刷     '印刷余白(印刷開始位置)を取得(.NET Framework version 2.0 からの機能です)     Dim lm As Integer = CInt(0.254! * PrintDocument1.DefaultPageSettings.HardMarginX)     Dim tm As Integer = CInt(0.254! * PrintDocument1.DefaultPageSettings.HardMarginY) '----------------------------------------------------------------------------------     Using g As Graphics = e.Graphics         'ミリメートルを長さの単位に指定します。         g.PageUnit = GraphicsUnit.Millimeter         Using myFont As New System.Drawing.Font("ＭＳ Ｐゴシック", 12)              '左から20mm 上から20mm の位置にテキストボックスの内容を印刷します             g.DrawString(TextBox1.Text, myFont, Brushes.Black, 20 - lm, 20 - tm)         End Using     End Using End Sub 　図１．上記実行結果と使用コントロール類の配置図

２．

３．

４．

５．

６．

検索キーワード及びサンプルコードの別名(機能名)

１．印刷プレビューを表示　　２．印刷プレビューのダイアログボックスの表示位置の設定　　３．印刷プレビューのダイアログボックスの表示サイズの設定　　４．印刷プレビューの表示倍率を指定