vbYesNo!!!
serge
was klappt da nicht
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wahl As Integer
wahl = MsgBox("Bitte A1 kontrolieren mit yes wird der Drucker abgestellt!", vbYesNo, " _
Druck!")
If wahl = vbYes Then
Exit Sub
Else
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
End Sub
Mit Yes oder No geht der Druck weiterGruss
Serge