19.02.2016, 16:25
Tipp: "With ActiveSheet"
# pdfName:
- "xxx\____2016_02_19-15_15_16.pdf"
- Laufzeitfehler "Die Methode "ExportAsFixedFormat" für das Objekt "_Workbook" ist fehlgeschlagen
- Laufzeitfehler in der Zeile "ActiveWorkbook.ExportAsFixedFormat Filename:=pdfName, Type:=xlTypePDF"
- Obwohl ich speichern drücke durchläuft er "Private Sub Workbook_BeforePrint(Cancel As Boolean)" und erst im Anschluss zeigt er den Laufzeitfehler. Das er dies durchläuft hängt wahrscheinlich mit dem automatischen erstellen der pdf in "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)" zusammen.
# "With ActiveSheet"
- mit oder ohne, es ändert sich nichts am Ablauf/Fehlern
Tipp: "einer der angegebenen Zellen ein Zeichen steht, das nicht für einen Dateinamen geeignet ist"
- wenn ich "Private Sub Workbook_BeforePrint(Cancel As Boolean)" ganz raus nehme/deaktiviere denn läuft das Programm ohne ein Problem und die Welt ist wunderbar. Ich kann mit "Speichern unter" eine pdf erzeugen und gleichzeitig erzeugt VBA meine Backup pdf. ... alles GEIL!
Tipp: "öffentliche boolesche Variable außerhalb der Prozedur"
- "Speichern unter", VBA wird geöffnet und eine Meldung "es fehlt END IF" erscheint, nach Bestätigung und Beenden des Makros wird eine pdf erzeugt und denn kommt die Fehlermeldung ein zweites mal, nach Bestätigen und Beende wird die zweite pdf erzeugt.
- Leider lässt sich aber auch eine Datei Drucken.
Also, ich hoffe ich habe keinen Tipp übersehen und alle probiert.
Vielleicht hat ja noch wer eine Idee??
Werde versuchen Fragen zeitnah zu beantworten und Tipps schnell zu probieren und das Ergebnis hier mitteilen.
Danke.
Ziel ist es:
- aus der Excel darf nicht gedruckt werden
- es muss beim Speichern eine Backup pdf erzeugt werden, Name ist variabel und Pfad fix, beides im Makro hinterlegt.
- Ideal wäre es wenn man NUR pdfs speichern kann und keine Excel oder..., klar wenn man eine Bedingung erfüllt (zB in der Zelle A1 steht ein "x" denn lässt sich dies auch als Excel,... abspeichern. Sonst hätte man glaube ich arge Probleme.
Währe aber schon 110% zufrieden wenn die ersten beiden Punkte klappe.
Christian19
# pdfName:
- "xxx\____2016_02_19-15_15_16.pdf"
- Laufzeitfehler "Die Methode "ExportAsFixedFormat" für das Objekt "_Workbook" ist fehlgeschlagen
- Laufzeitfehler in der Zeile "ActiveWorkbook.ExportAsFixedFormat Filename:=pdfName, Type:=xlTypePDF"
- Obwohl ich speichern drücke durchläuft er "Private Sub Workbook_BeforePrint(Cancel As Boolean)" und erst im Anschluss zeigt er den Laufzeitfehler. Das er dies durchläuft hängt wahrscheinlich mit dem automatischen erstellen der pdf in "Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)" zusammen.
# "With ActiveSheet"
- mit oder ohne, es ändert sich nichts am Ablauf/Fehlern
Tipp: "einer der angegebenen Zellen ein Zeichen steht, das nicht für einen Dateinamen geeignet ist"
- wenn ich "Private Sub Workbook_BeforePrint(Cancel As Boolean)" ganz raus nehme/deaktiviere denn läuft das Programm ohne ein Problem und die Welt ist wunderbar. Ich kann mit "Speichern unter" eine pdf erzeugen und gleichzeitig erzeugt VBA meine Backup pdf. ... alles GEIL!
Tipp: "öffentliche boolesche Variable außerhalb der Prozedur"
- "Speichern unter", VBA wird geöffnet und eine Meldung "es fehlt END IF" erscheint, nach Bestätigung und Beenden des Makros wird eine pdf erzeugt und denn kommt die Fehlermeldung ein zweites mal, nach Bestätigen und Beende wird die zweite pdf erzeugt.
- Leider lässt sich aber auch eine Datei Drucken.
Also, ich hoffe ich habe keinen Tipp übersehen und alle probiert.
Vielleicht hat ja noch wer eine Idee??
Werde versuchen Fragen zeitnah zu beantworten und Tipps schnell zu probieren und das Ergebnis hier mitteilen.
Danke.
Ziel ist es:
- aus der Excel darf nicht gedruckt werden
- es muss beim Speichern eine Backup pdf erzeugt werden, Name ist variabel und Pfad fix, beides im Makro hinterlegt.
- Ideal wäre es wenn man NUR pdfs speichern kann und keine Excel oder..., klar wenn man eine Bedingung erfüllt (zB in der Zelle A1 steht ein "x" denn lässt sich dies auch als Excel,... abspeichern. Sonst hätte man glaube ich arge Probleme.
Währe aber schon 110% zufrieden wenn die ersten beiden Punkte klappe.
Christian19