Drucker auswählen
Roland
ich möchte gerne alle Drucker auslesen - dann einen Drucker auswählen, auf den drucken und den aktiven Drucker wieder zurückgeben. Folgender Code funktioniert nicht, weil Printers.count nicht bekannt ist. Wer kann mir helfen ?
Private Sub CommandButton3_Click()
Dim x As Integer
Dim AnzDrucker As Long
Dim sPrinter As String
AnzDrucker = Application.Printers.Count
sPrinter = Application.ActivePrinter
Druckerauswahl.Drucker.Clear
For x = 0 To AnzDrucker - 1
Druckerauswahl.Drucker.AddItem Application.Printers(x).DeviceName
Next
Application.ActivePrinter = Druckerauswahl.Drucker
Sortier_Auswahl.Printform
Application.ActivePrinter = sPrinter
End Sub