印刷関連：用紙方向の設定

VB2008でDefaultPageSettings.Landscapeを使い用紙方向を設定する使用例サンプルです。

用紙方向を設定するには、PrintDocumentコンポーネントのDefaultPageSettings.Landscapeプロパティを使用します。

■構文
PrintDocument.DefaultPageSettings.Landscape = 用紙方向

用紙方向に「True」を設定すると横方向、「False」を設定すると縦方向になります。

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

2）コマンドボタンクリックイベントにPrintPreviewDialogのDocumentプロパティに、PrintDocumentコンポーネントをセット

3）PrintDocumentコンポーネントに用紙方向を設定

4）印刷プレビューダイアログを表示

5）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

'印刷方向横:True 縦:False
If RadioButton1.Checked Then
Me.PrintDocument1.DefaultPageSettings.Landscape = False
Else
Me.PrintDocument1.DefaultPageSettings.Landscape = True
End If

'印刷プレビューダイアログを表示
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実践入門