Drucken-Makro
02.03.2008 17:25:00
mike49
ich habe ein kleines Makro, das beim Klicken auf den Drucken-Button den Ausdruck über den Standarddrucker anstößt.
Wie müsste man erweitern, dass zuvor nachgefragt wird, mit welchem Drucker gedruckt werden soll?
Option Explicit
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim m1, m2
Application.EnableEvents = False
ActiveSheet.Unprotect
m1 = Range("G5").NumberFormat
m2 = Range("G6").NumberFormat
Range("G5").NumberFormat = ";;;"
Range("G6").NumberFormat = ";;;"
ActiveSheet.PrintOut
Range("G5").NumberFormat = m1
Range("G6").NumberFormat = m2
Cancel = True
ActiveSheet.Protect
Application.EnableEvents = True
End Sub
Gruß
mike49