Hilfe beim abändern des Makros
Josef_T
kann mir bitte jemand einen Tip geben, was ich in dem u. sth. Makro ändern oder ergänzen muß, um folgendes zu erreichen:
Wenn das Programm gestartet ist, klicke ich auf das Druckersymbol, dann soll mir die Druckerauswahl angezeigt werden, dann die Abfrage ob das aktive TB gedruckt werden soll, was ich mit Ja/Nein auslösen kann. Bis dahin funktioniert alles perfekt.
Wenn ich den Druckvorgang mit Ja bestätige, wird das TB auch tadellos ausgedruckt, aber nach dem Ausdruck habe ich das Optionsblatt zu Verfügung, wo ich die Anzahl der Ausdrucke, Vorschau ect. einstellen kann. Genau das aber hätte ich gerne vor dem Ausdruck.
Kann mir da jemand von Euch Profis helfen?
Danke schon mal
Gruß
Josef
Dim bolCode As Boolean
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If Not bolCode Then
bolCode = True
If Application.Dialogs(xlDialogPrinterSetup).Show Then
With ActiveSheet
ActiveSheet.Unprotect Password:=""
.Columns("B:C").Hidden = True
If MsgBox("...soll das Blatt gedruckt werden?", vbQuestion + vbYesNo) = vbYes Then . _
PrintOut
.Columns("B:C").Hidden = False
End With
Else
Cancel = True
End If
bolCode = False
End If
ActiveSheet.Protect Password:=""
End Sub