Drucken Makro

[psychodennis89]

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.

[chris-ka]

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?