设置一个列表框cboprinter用于列出所有打印机名称,
'//获取打印机列表
Dim i As Integer
Dim strPrinterName As String
For i = 0 To System.Drawing.Printing.PrinterSettings.InstalledPrinters.Count - 1
cboPrinter.Items.Add(System.Drawing.Printing.PrinterSettings.InstalledPrinters.Item(i))
Next
cboPrinter.Text = cboPrinter.Items(0)