kann Drucker nicht auswählen
17.08.2005 19:41:16
mike49
wenn ich meine Tabelle ausdrucken will und über Strg+P zuvor den Drucker auswählen will, öffnet dieses Menü nicht, sondern der Druck mit dem Standarddrucker wird sofort gestartet.
Kann das mit dem modifizierten Makro in "DieseArbeitsmappe" zusammenhängen?
Wie müsste man es ggf. korrigieren, damit man das Druckmenü wie zuvor über Strg+P aufrufen kann.
Wenn man aber das Druckersymbol in der Symbolleiste anklickt, soll der Druck wie bisher ohne Nachfrage mit dem Standarddrucker gestartet werden.
In "DieseArbeitsmappe" steht:
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