Office: (Office 2016) Excel ActiveSheet als PDF speichern

Hallo,

ich nutzer Office 2016 unter Windows 10 professional

Bis vorgestern lief seit 2 Jahren folgender VBA Code problemlos:

Code:

Sub R_PDF_speichern()
' PDF Rechnung speichern
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="G:\1-shop\Büro\RNR-VK\2021\" & Range("H15") & "_Rechnung.pdf",  Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False,  OpenAfterPublish:=False
End Sub

Seit gestern gibt er mir diesen Fehler aus:


Und wenn ich auf Debuggen klicke, zeigt er mir dies:

Also im Grund die gesamte Zeile mit dem eigentlichen Code.

Hat jemand einen Rat, wo ich ansetzen kann das ich wieder den Druckbereich des Blattes auf dem der Button dieses VBA-Script auslöst per Button als PDF speichern kann?

Mit freundlichen Grüßen, Joachim

 

giebt es den Ordner nicht?
Enthält die Zelle H15 Sonderzeichen?

 

Die Zelle H15 enthält Daten nach dem Schema:
S2021-xxxx
wobei xxx eine fortlaufende Nummer ist. Also nur Alphanumerische Zeichen und den Bindestrich. Lief damit ja auch die letzten 3 Jahre ohne Fehler.

Der Ordner existiert - bis zum Zeitpunkt als es nicht mehr ging, wurde der Ordner tgl. beschrieben und die Festplatte hat noch 200 GB Platz.

Ich bin da wirklich etwas ratlos und konnte auch nichts konkret hilfreiches bisher online finden.
Ich werde aber mal ein Update auf Office 2019 anstreben, vielleicht bessert sich damit was und teste übers WE mal ältere Sicherungen der XLSM Datei. ob diese auch den Fehler bringen.

 

Ergänzend: ein Druck (als PDF) in besagtes Verzeichnis unter besagtem Namen funktioniert klaglos, ist aber eben umständlicher als das Makro mit einem Button anzusteuern.

 

Ich habe eben noch mit einer weiteren Variante eines Makros mit der gleichen Aufgabe experimentiert, inspiriert von diesem Video:

Code:

Sub Makro_Rechnung_PDF_unter()
' Tastenkombination: Strg+p
 
    Dim DateiName As String
    DateiName = Range("K3") & Range("H15") & "_Rechnung.pdf"
 
    Range("A1:I58").ExportAsFixedFormat Type:=xlTypePDF, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
End Sub

Zelle K3: C:\test\
In Zelle K3 trage ich ein Verzeichnis ein...

Zelle H15: S2021-0123
In Zelle H15 steht einfach eine ID Alphanumerisch mit Bindestrich

Range A1:I58
Dieser Range deckt den Druckbereich ab


Ergebnis wieder: Laufzeitfehler '1004', Anwendungs- oder Objektorientierter Fehler



Diesmal im Debugger mal unten nach Details geschaut:


Das sagt mir als Laien nur:
- die Variable wird erstmal richtig zusammen gesetzt aus Zelle K3 und H15 sowie dem Rest und richtig als String deklariert.

Geh ich mit der Maus über die gelb markierte Zeile, zeigt er mir noch folgendes an:




Und im Rest vom Code:





Woran stört sich Excel 2016... Ich komme einfach nicht weiter, bzw. sehe das Problem nicht was Excel da mit dem Makro hat.

 

Hi Joachim,

ich kann dein Problem nicht nachvollziehen - in meiner Testdatei (Excel2016 32bit) läuft der Code fehlerfrei.
Hast du den Code mal in einer anderen Mappe getestet?

---

 

Ja, auch alte Sicherheitskopien der bestehenden Mappe - immer das Gleiche Problem, weshalb ich den Fehler tendenziell eher bei Excel, Win10 oder anderweitig am Rechner mittlerweile suche.

Was mich wundert, ein "ausdrucken" (also speichern), per Hand über den MS PDF Printer klappt problemlos (Drucker umstellen auf PDF Printer, drucken, Speicherort wählen, fertig) - ich mein was anderes macht doch das Makro auch nicht, oder?
Nur das von Hand jedes mal umzustellen macht mich auf Dauer fertig, deshalb ja die Makros.

Ich werde heut Abend mal die Mappe an einem anderen Rechner mit ebenfalls Office 2016 testen - nicht das mein Problem eher an Win10 auf dem einen speziellen PC zu suchen ist, wobei ich da dann auch nicht weiter weiß.

Offene Tests:
1. Office 2016 auf dem Win10 Laptop mit der Problem-Mappe und PDF speichern testen
2. Neuinstallation von Office auf dem Win10 PC, am besten wohl gleich Office 2019 oder gar 2021?

An dem Tag, ab dem es nicht mehr ging, hab ich rückblickend 3 Treiberupdates gemacht, ein Win10 Update und einige Monitorsettings probiert um eine gescheite Darstellung zu erreichen. Vielleicht liegt es eher in der Richtung, obgleich ich es mir noch nicht so recht vorstellen kann. Wer weiß. Windows bringt einen eh noch in den Wahnsinn mit den dauernden Updates und jedes mal russisch Roulette ob hinterher noch alles geht...

Ich werde berichten. Danke schon mal bis hier hin.

 

So. Office 2016 professional plus sauber deinstalliert, Rechner neu gestartet, neues Office 2019 professional plus installiert, freigeschaltet und ...

immer noch das selbe Problem.

Letzter Versuch: Tests mit einer leeren Arbeitsmappe - obgleich, wenn es denn dann dort funktionieren sollte, ich noch nicht weiß wie ich dann meine bestehende Mappe wieder zurecht biegen kann.
Aktuell ist es extrem nervig, ständig vom normalen Drucker auf den Microsoft PDF Printer hin und her switchen. Zumal es mich fertig macht, das der normale PDF Druck geht, dieses per Makro angestoßen aber zum besagten Fehler führt...

Hat nicht doch noch jemand eine zündende Idee wie ich dem Fehler auf die Schliche kommen kann?

 

Weiter gehts ...

Leere Mappe neu erstellt (Excel 2019). Druckbereich festgelegt, Button eingefügt, Makro dazu - gleiches Problem.

Dann als nächsten Versuch hier die Demo-Datei herunter geladen:
PDF Datei per VBA erzeugen - Excel-Inside Solutions
geöffnet, Button gebaut, das bereits integrierte Makro damit verknüpft... was soll ich sagen. Fehler 1004.

Zum Haare raufen - warum kann ich über den PDF Printer von Hand problemlos PDFs erzeugen nur partout nicht per Makro? Und wie kann es kommen, dass eben diese Makros bis vor ein paar Tagen Jahre liefen, und jetzt den Dienst komplett verweigern? Andere Makros laufen problemlos (Drucken über den Standarddrucker (HP Officejet) per One-Click-Button z.B.
Einzig ausstehender Test der mir noch einfällt, der Test der Mappen auf einem anderen PC (Laptop, Win10, Excel 2016).

Was wenn es dort dann geht? Wo setzt man dann an?
Oder gibt es detailliertere Error-Logs als der doch recht wortlose Fehler 1004?

 

OK, kleiner Fortschritt:

1. ich habe mir mittels dieses VBA scripts den gerade aktiven Drucker anzeigen lassen um zu sehen ob dies geht und dessen exakten Namen zu erhalten:

Code:

Sub AktivenDrucker_anzeigen()
'zeigt einfach den gerade aktiven Drucker an
  MsgBox "Name-AktiverDrucker: " & Application.ActivePrinter
End Sub

Ausgabe:

Ok...

2. folgendes VBA Script probiert:

Code:

Sub PDF_Test()
'getestet unter Excel 2010, Windows XP - umschalten von Netzwerk-Drucker auf Microsoft Print to PDF-Drucker
  Dim strDruckerAktiv As String, strDruckerPDF As String
  strDruckerAktiv = Application.ActivePrinter 'Drucker merken
  strDruckerPDF = "Microsoft Print to PDF auf Ne02:"
  Application.ActivePrinter = strDruckerPDF
  ActiveSheet.PrintOut preview:=False
  Application.ActivePrinter = strDruckerAktiv 'Drucker zurücksetzen
End Sub

Ausgabe:


OK - er kann auf diesen Umweg also ein PDF auch angestoßen per Makro speichern.

Also speichere ich das mal ab und dann ... kein Laufzeitfehler, aber er setzt auch nicht allein auf den vorherigen Standard Drucker zurück.
grmpf....:-(

OK, also wandle ich das Script etwas ab:

Code:

Sub PDF_Test()
'getestet unter Excel 2010, Windows XP - umschalten von Netzwerk-Drucker auf FreePDF-Drucker
  Dim strDruckerAktiv As String, strDruckerPDF As String
  strDruckerAktiv = "HP Officejet Pro 8610 USB auf Ne04:" 'Standarddrucker setzen
  strDruckerPDF = "Microsoft Print to PDF auf Ne02:"
  Application.ActivePrinter = strDruckerPDF
  ActiveSheet.PrintOut preview:=False
  Application.ActivePrinter = strDruckerAktiv 'Drucker zurücksetzen auf Standarddrucker
End Sub

Und siehe - es funktioniert.

Schon mal ein Schritt in die richtige Richtung... mal weiter testen und probieren... :-)

 

So - über diesen "lustigen" Umweg kann ich jetzt erst einmal wieder aus der Excel Mappe heraus per Button ein PDF speichern und so das Ganze auch kombinieren um z.B. ein PDF zu speichern, und einen Farb- und einen SW-Ausdruck nachfolgend zu starten.

Code:

Sub PDF_Test()
'getestet unter Excel 2019, Windows 10 - umschalten von Standard-Drucker auf "Microsoft Print To PDF"-Drucker
  Dim strDruckerAktiv As String, strDruckerPDF As String        'Variablen definieren
  strDruckerAktiv = "HP Officejet Pro 8610 USB auf Ne04:"       'Standarddrucker setzen
  strDruckerPDF = "Microsoft Print to PDF auf Ne02:"            'PDF-Drucker setzen
  Application.ActivePrinter = strDruckerPDF                     'PDF-Drucker aktivieren und nachfolgend "drucken" also speichern
  ActiveSheet.PrintOut preview:=False, PrToFileName:="G:\Verzeichnis\" & Range("H15") & "_Rechnung.pdf", IgnorePrintAreas:=False
  Application.ActivePrinter = strDruckerAktiv                   'Drucker zurücksetzen auf Standarddrucker
End Sub

Ach ja - er holt sich auch wieder die Rechnungsnummer aus der Zelle H15 und druckt/speichert in das korrekte Verzeichnis unter dem korrekt zusammen gesetzten Dateinamen ab.

Yeah! Ein kleiner Teilerfolg. ;-) :-)


Warum jedoch der Standardweg, über den PDF Export kategorisch zu einem Laufzeitfehler führt ist mir noch immer Rätselhaft - daher wäre ich an der Front immer noch für Hilfe und Tipps dankbar