Druckbutton
05.01.2016 21:16:09
Marvin
anbei seht Ihr einen Code, der folgendes tut:
Bei Click auf Commandbutton 6, öffnet sich ein Optionsfenster, indem der Drucker ausgewählt werden kann auf dem gedruckt werden soll:
Private Sub CommandButton6_Click()
Dim Drucker As String
Drucker = ActivePrinter
Application.Dialogs(xlDialogPrinterSetup).Show
Sheets("Freigabedokument_Rolle_innen").PrintOut
ActivePrinter = Drucker
End Sub
Nach Auswahl des Druckers, wird dieser auch angesteuert und dieser druckt auch, wie er es tun soll, was auch der Regelfall sein sollte.ABER...
wenn ich das Fenster schließe oder auf Abrechen drücke, druckt er leider trotzdem,
habt ihr eine Idee wie ich das beheben kann?
2) Habe noch die Idee es ohne Optionsfenster geschehen zu lassen, sprich:
Click -> Druck auf bestimmten Drucker, ohne auf den Standarddrucker umzuspringen...
Ich freue mich über jegliche Hilfe, beste Grüße und Danke euch...