Hallo Zusammen,
ich habe hier einen Code, der das Druckdatum anpassen soll.
Leider verursacht der Abschnitt einen Fehler, sobald kein Drucker angeschlossen ist.
Selbst mit "on error resume next" erhalte ich eine Fehlermeldung (das Makro wird aber ausgeführt).
Kann man da was machen, dass keine Fehlermeldung mehr erscheint? (Fehler kommt in Application.PrintCommunication = True)
'Druckdatum in Tabellenblatt aut. anpassen
On Error Resume Next
Application.PrintCommunication = True
With ActiveSheet.PageSetup
.LeftFooter = "Druckdatum: " & Format(Now(), "dd.MM.yyyy")
Application.PrintCommunication = False
On Error GoTo ErrorSub
End With
Danke im Voraus für jeden Hinweis
Viele Grüße
Basti