Clever-Excel-Forum

Hallo Excel-Forum ich möchte gern ein Drucken Makro erstellen um dieses in ein bereits vorhandenes Makro zu eweitern, folgendes Makro zu drucken habe ich bereits:

Public Sub Drucken()

If Application.Dialogs(xlDialogPrinterSetup).Show <> False Then
End If

End Sub

bei diesem Makro wird zwar die Druckerübersicht geöffnet, jedoch wird leider kein Druckauftrag ausgelöst wenn ich den Drucker ausgewählt und auf ok geklickt habe.

moin,

das kein Druckauftrag erfolgt liegt auf der Hand da keiner vorhanden ist...

If Application.Dialogs(xlDialogPrinterSetup).Show <> False Then
      ActiveSheet.PrintOut
End If


einfügen.
Oder was genau soll jetzt dein Druckauftrag machen?