PDA

View Full Version : Load all Printer with vb.net



chutinhha
25-05-2009, 12:20
Dim i As Integer
Dim pkInstalledPrinters As String
ComboBox2.Items.Clear()
ComboBox2.Items.Add("aaa")

For i = 0 To PrinterSettings.InstalledPrinters.Count - 1
pkInstalledPrinters = PrinterSettings.InstalledPrinters.Item(i)
ComboBox2.Items.Add(pkInstalledPrinters)
Next

[=========> Bổ sung bài viết <=========]

Try
count = 0
'PrintDocument1.DocumentName = "Printing..."
'' PrintDocument1.PrinterSettings.IsDefaultPrinter.To String()
'PrintDialog2.ShowDialog()
'PrintDialog2.Document = PrintDocument1
'' If PrintDialog2.ShowDialog = DialogResult.OK Then
' PrintDocument1.DefaultPageSettings.Landscape = True
PrintDocument1.PrinterSettings.PrinterName = ComboBox2.Text
If PrintDocument1.PrinterSettings.IsValid Then
currentPage = 5
PrintDocument1.Print()
Else
MessageBox.Show("Printer is invalid.")

End If

'End If
Catch ex As Exception
ex.ToString()
End Try