Drucken

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True

If ActiveSheet.Range("J13") = "" Then
MsgBox ("Bitte Wert eintragen!")
ActiveSheet.Range("J13").Select
Exit Sub
End If
If ActiveSheet.Range("K13") = "" Then
MsgBox ("Bitte Wert eintragen!")
ActiveSheet.Range("K13").Select
Exit Sub
End If

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview _
:=True, Collate:=True

End Sub