打印对话框打印一张空白纸

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

打印对话框打印一张空白纸

回答

相关问题