Drucken per Makro
18.02.2003 15:01:56
Wilfried
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Cancel = True
If ActiveSheet.Range("A13") = "" Then
MsgBox ("Bitte Namen eintragen")
ActiveSheet.Range("A13").Select
Exit Sub
End If
If ActiveSheet.Range("J13") = "" Then
MsgBox ("Bitte Zeit eintragen")
ActiveSheet.Range("J13").Select
Exit Sub
End If
If ActiveSheet.Range("K13") = "" Then
MsgBox ("Bitte Zeit eintragen")
ActiveSheet.Range("K13").Select
Exit Sub
End If
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview _
:=True, Collate:=True
End Sub
Anzeige