![]() |
Tipp 0032
|
Standarddrucker ermitteln
|
 |
|
Autor/Einsender: Datum: |
|
Michael Werner 14.03.2004 |
|
Entwicklungsumgebung: |
|
VB.Net 2002 |
Framework: |
|
1.0 |
|
|
Hier werden alle installierten Drucker in einer ComboBox aufgelistet, der Standarddrucker
ermittelt und dieser in der ComboBox angezeigt. Tief versteckt in der Namespace-Hierarchie
ist die InstalledPrinters-Collection zu finden:
Printing.PrintDocument.PrinterSettings.InstalledPrinters(),
die nach Instanzierung in einer For...Each-Schleife ausgelesen wird.
|
|
|
Public Class Form1
Inherits System.Windows.Forms.Form Vom Windows Form Designer generierter Code
Private Sub Form1_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
Dim pd As New Printing.PrintDocument()
Dim s As String
Dim i As Integer
Dim j As Integer
For Each s In pd.PrinterSettings.InstalledPrinters
ComboBox1.Items.Add(s)
If CStr(ComboBox1.Items.Item(i)) = _
pd.PrinterSettings.PrinterName Then
j = i
End If
i += 1
Next
ComboBox1.SelectedIndex = j
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Dim pd As New Printing.PrintDocument()
Dim s As String
For Each s In pd.PrinterSettings.InstalledPrinters
ComboBox1.Items.Add(s)
Next
TextBox1.Text = pd.PrinterSettings.PrinterName
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
|
|
|
|
|
Windows-Version |
98/SE |
 |
|
ME |
 |
|
NT |
 |
|
2000 |
 |
|
XP |
 |
|
Vista |
 |
|
Win
7 |
 |
|
|
|
Download (6,2 kB)
|
Downloads bisher: [ 1020 ]
|
|
|