ユーザー定義サイズの紙に印刷

12cm×5cmの用紙を指定して印刷プレビューをします。

必要なコントロール

Button1

PrintDocument1

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

'12cm ×5cmの用紙(よく伝票に使用されるサイズ)を指定
Dim Denpyou As New Printing.PaperSize("伝票", 1200, 500)
PrintDocument1.DefaultPageSettings.PaperSize = Denpyou

'プレビュー実行
Dim Previewer As New PrintPreviewDialog
Previewer.Document = PrintDocument1
Previewer.ShowDialog()

End Sub

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

'とりあえず四角形を描画
e.Graphics.FillRectangle(Brushes.Red, New Rectangle(100, 100, 300, 300))

End Sub