打印對話框打印一張空白紙

我正在使用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

來源

2013-01-09 user1954492

您是否正確處理PrintDocument1的事件？它不能只是自動地知道你想要打印什麼。 – Ryan

我想在運行期間打印整個表單。我沒有處理任何東西 – user1954492

正如在表單中的屏幕截圖或表單中的數據或...？ – Ryan

實際的打印發生在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 
...

來源

2013-01-09 07:08:29 xpda

打印對話框打印一張空白紙

回答

相關問題