|
Hallo,
ich möchte gerne ein Form ausdrucken und hab mir dazu einen Drucker angelegt für diesen Fall. Allerdings ist am Rechner stndardmäßig ein andere Drucker die Standarddrucker. Folglich muss dieser vorab geändetr 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 Windows 10 plus Excel 2016
|