Private Moreprtflg As Boolean
Private Sub Button1_Click(ByVal sender As System.Object _
, ByVal e As System.EventArgs) Handles Button1.Click
Moreprtflg = True
''@ここでは2枚出力される。
PrintDocument1.Print()
Moreprtflg = True
'プレビューを表示します
Dim previewDlg As PrintPreviewDialog = New PrintPreviewDialog()
previewDlg.Document = PrintDocument1
previewDlg.ShowDialog(Me)
End Sub
Private Sub PrintDocument1_PrintPage( _
ByVal sender As System.Object, _
ByVal e As System.Drawing.Printing.PrintPageEventArgs) _
Handles PrintDocument1.PrintPage
If Moreprtflg = True Then
'1回目
e.Graphics.DrawString("1回目", New Font("MS ゴシック", 10), _
Brushes.Black, New PointF(10, 100), New StringFormat())
e.HasMorePages = True
Moreprtflg = False
Else
'2回目
e.Graphics.DrawString("2回目", New Font("MS ゴシック", 10), _
Brushes.Black, New PointF(10, 100), New StringFormat())
e.HasMorePages = False
End If
End Sub
|