Erzeugen eines PDF mithilfe eines Makros
16.12.2021 13:51:16
AceRider
ich habe mit einem Makro Schwierigkeiten. Das Makro soll aus einer bestehenden, geöffneten Excel Tabelle vom Tabellenblatt Tabelle1 ein PDF erzeugen. Den Code habe ich unten beigefügt. Wenn ich das Makro nach dem Öffnen durchführen will, bricht es ab (siehe Screenshot). Wenn ich das Makro neu starte, läuft es beim zweiten Mal durchführen ohne Probleme durch. Ich befinde mich in einem beruflichen Netzwerk. Beim heimischen Rechner läuft das Makro auch beim ersten Mal ohne Probleme durch.
Kann man das Makro derart ändern, dass
- der Fehler ignoriert wird oder
- das Makro 2 x durchläuft (1 x mit Abbruch, danach "neu") oder
- es gar nicht erst zum Abbruch kommt?
Es muss ja irgendwie mit dem Netzwerk zusammenhängen . Die Suchfunktion in diesem Forum habe ich schon bemüht und nichts Passendes gefunden. Vielen Dank für Eure Hilfe!
Viele Grüße
Stefan
VBA Code
Sub Makro1()
Sheets("Tabelle1").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"d:\ " & Year(Date) & "_" & Month(Date) & "_" & Day(Date) & "_" & "Cockpit", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
'Application.Run "restorePageAfterPrint"
Sheets("Tabelle1").Select
End Sub
