Print-Anweisung über IF steuern
28.10.2005 09:48:51
Frederic
ich hab ein kleines Problem:
Ich hab eine Datei, deren Namen beibehalten werden muss, um den Sendevorgang (Outlook + LotusNotes) zu starten.
Nun hab ich es schon so gelöst, dass er die User drauf hinweist, wenn der Dateiname verändert wurde. Nun soll er aber bei veränderten Dateinamen den Sendevorgang überhaupt nicht erst starten. Hier mein Code:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Name As String
Name = ThisWorkbook.Name
If Name = "RKA.xls" Then
MsgBox "Der Dateiname ist richtig. Bitte behalten Sie diesen Dateinnamen bei, bis Sie den Sendevorgang abgeschlossen haben, da Ihr Datensatz ansonsten nicht verbucht werden kann."
'Name 'Der Code'
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Belegerfassung").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Else
MsgBox "Sie haben den Dateinamen verändert, der Datensatz geht nicht in die Verbuchung mit ein. Bitte ändern Sie den Dateinnamen auf --RKA.xls-- ab, und wiederholen Sie den Sendevorgang."
End If
End Sub
Hab ich noch irgendwas übersehen?
Danke im voraus für Eure Hilfe.
Frederic
Anzeige