If Not IsPostBack Then
Dim printers As String() = PrinterSettings.InstalledPrinters
For Each printer As String In printers
ddlPrinters.Items.Add(printer)
Next
End If
Dim printerName As String = ddlPrinters.SelectedValue
Dim pDoc As New PrintDocument
pDoc.PrinterSettings.PrinterName = printerName
pDoc.DocumentName = "Document Name"
AddHandler pDoc.PrintPage, AddressOf PrintPage
pDoc.Print()
其中,"Document Name" 为文档名称,"PrintPage" 为打印事件处理程序。打印事件处理程序应该包含将要打印的内容。
以上代码将显示所有安装的打印机列表,并允许用户选择要使用的打印机。一旦用户点击打印按钮,就会将选定的打印机和文档名称传递给打印机对象,并调用打印机的打印方法。