印刷関連：印刷プレビュー

VB2008でPrintDocumentコンポーネントを使って印刷プレビュー画面を表示させる使用例サンプルです。

印刷関連へ


PrintDocumentコンポーネントを使って印刷プレビュー画面を表示させるには、PrintPreviewDialogコンポーネントを使います。

フォームのデザイン画面で、ツールボックスからPrintDocumentコンポーネントとPrintPreviewDialogコンポーネントを配置してください。

■手順
1） フォームデザインで、コマンドボタンとPrintDocumentとPrintPreviewDialogコンポーネントを配置します。
VB2008フォームデザイン画面

2）コマンドボタンクリックイベントにPrintPreviewDialogのDocumentプロパティに、PrintDocumentコンポーネントをセットします。
　　そして、ShowDialog メソッド を実行します。

3）PrintPageイベントの、GraphicsクラスのDrawStringメソッドに印刷文字等を設定します。

■実行画面
「印刷プレビュー」ボタンをクリックすると、プレビューダイアログが表示されます。
印刷プレビュー実行フォーム

■印刷プレビューダイアログ画面
プレビューダイアログでテキスト印刷

■実行コード

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'PrintPreviewDialogコンポーネントのDocumentプロパティに印刷対象のPrintDocumentコンポーネントをセット
Me.PrintPreviewDialog1.Document = Me.PrintDocument1
'印刷プレビューダイアログを表示
Me.PrintPreviewDialog1.ShowDialog()

End Sub

Private Sub PrintDocument1_PrintPage
(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

'テキスト印刷
e.Graphics.DrawString("Visual Basic 2008 Express Edition実践入門", New Font("MS P 明朝", 20), _
Brushes.Black, e.MarginBounds.Left, e.MarginBounds.Top)

End Sub
End Class

Visual Basic 2008 Express Edition実践入門