.net - 印刷ダイアログは空のシートを印刷します

Question

コントロールを使用PrintDialogしPrintDocumentてフォームを印刷しています。しかし、ボタンをクリックすると、常に空のシートが印刷されます。私は次のコードを使用しています：

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    PrintDialog1.Document = PrintDocument1
    Dim result As DialogResult = PrintDialog1.ShowDialog
    If (result = DialogResult.OK) Then
        PrintDocument1.Print()
    End If
End Sub

Answer 1

実際の印刷は、printdocument1.printpage イベント ハンドラで行われます。これを行うには、PrintPage ハンドラーでパラメーター PrintPageEventArgs のグラフィックス オブジェクトに出力できます。

AddHandler PrintDocument1.PrintPage, AddressOf printaPage
PrintDocument1.Print()

...

Sub printaPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
' output to e.Graphics here
...