MsgBox before print
20.04.2005 18:28:19
Fabek
Komme nicht weiter bzw. bin mit meinem Latein am Ende. Eigentlich will ich nur vor dem Drucken daran erinnern, dass die Sortierung durchgeführt werden muss. Wenn "ja" geclickt wird, soll gedruckt werden, ansonsten neue msgbox und ende.
Sub Workbook_BeforeClose(Cancel As Boolean)
Dim Frage As Byte
Frage = MsgBox("Sortierung durchgeführt?", vbOKCancel + vbDefaultButton2, "Drucken")
If Frage = vbCancel Then
Cancel = True And MsgBox("Vor dem Drucken Sortierung durchführen!")
End If
End Sub
Finde einfach den Fehler nicht. Würde mich über HIlfe freuen. Dank im Voraus!
Grüße, Fabi