Drucken-Makro
mike
habe mir ein Drucken-Makro aufgezeichnet, das im Prinzip auch funktioniert.
Wie kann ich nun erreichen, dass vor dem Ausdruck gefragt wird, mit welchem Drucker ich das Dokument ausdrucken möchte? Jetzt wir nur mit dem Standarddrucker ausgedruckt. Das Makro:
Option Explicit
Public Drucken As Boolean
Sub Tabelle_Drucken()
Application.ScreenUpdating = False
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveSheet.Protect
Application.ScreenUpdating = True
End Sub
Gruß
mike
Anzeige