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
 
Weitere Links zum Thema
Aktuelle Druckaufträge auslesen (WMI)
Drucken mit Vorschau
PrintForm-Komponente

Windows-Version
98/SE
ME
NT
2000
XP
Vista
Win 7


Download  (6,2 kB) Downloads bisher: [ 1006 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Tipps | Projekte | Tutorials | Bücherecke | VB-/VBA-Tipps | API-Referenz | Komponenten | VB.Net-Forum | VB/VBA-Forum | DirectX-Forum | Foren-Archiv | DirectX | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Sonntag, 22. Januar 2012