Hallo,
ich möchte gerne ein Form ausdrucken und hab mir dazu einen Drucker angelegt für diesen Fall. Allerdings ist am Rechner standardmäßig ein andere Drucker die Standarddrucker. Folglich muss dieser vorab geändert werden. Dazu habe ich folgendes Script, allerdings passiert da einfach überhaupt nichts wenn ich auf den Button drücke.
Private Sub CommandButton1_Click()Dim strDruckerAktiv As String, strDruckerPDF As String
strDruckerAktiv = Application.ActivePrinter
strDruckerPDF = "FAX auf Ne02:"
Application.ActivePrinter = strDruckerPDF
ActiveSheet.PrintOut preview:=False
Application.ActivePrinter = strDruckerAktiv
End Sub
Ich Frage den aktuellen, eigentlichen Standarddrucker ab und merke mir den, dann ändere ich auf meinen gewünschten, sage drucken und dann nehme ich mir den vorher gemerkten Drucker um diesen wieder als Standard zu setzen. Was übersehe ich?
Hab vorher natürlich auch geschaut das ich den richtigen Namen und Ne0 verwende:
Private Sub CommandButton2_Click()
MsgBox "Aktiver Drucker: " & Application.ActivePrinter
End Sub
Hab Windows 10 plus Excel 2016
ich möchte gerne ein Form ausdrucken und hab mir dazu einen Drucker angelegt für diesen Fall. Allerdings ist am Rechner standardmäßig ein andere Drucker die Standarddrucker. Folglich muss dieser vorab geändert werden. Dazu habe ich folgendes Script, allerdings passiert da einfach überhaupt nichts wenn ich auf den Button drücke.
Private Sub CommandButton1_Click()Dim strDruckerAktiv As String, strDruckerPDF As String
strDruckerAktiv = Application.ActivePrinter
strDruckerPDF = "FAX auf Ne02:"
Application.ActivePrinter = strDruckerPDF
ActiveSheet.PrintOut preview:=False
Application.ActivePrinter = strDruckerAktiv
End Sub
Ich Frage den aktuellen, eigentlichen Standarddrucker ab und merke mir den, dann ändere ich auf meinen gewünschten, sage drucken und dann nehme ich mir den vorher gemerkten Drucker um diesen wieder als Standard zu setzen. Was übersehe ich?
Hab vorher natürlich auch geschaut das ich den richtigen Namen und Ne0 verwende:
Private Sub CommandButton2_Click()
MsgBox "Aktiver Drucker: " & Application.ActivePrinter
End Sub
Hab Windows 10 plus Excel 2016