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
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