Excel: VBA drucken-zu-PDF - Run-time error 1004

Ich habe versucht mit der folgenden Lösung zum drucken von Excel zu PDF:

Excel 2013 PDF Drucken mit VBA

Während die Lösung scheint geklappt zu haben für andere Menschen, es produziert einen Laufzeitfehler 1004 in meinem Fall. Hat jemand weitere Ideen warum das sein kann? Ich habe gesucht aroudn und kann immer noch nicht herausfinden, was der Grund sein könnte? Könnte es sein, dass meine version von Excel ist das anders (ich benutze 2007)?

Die einzige mod, die ich gemacht, um die ursprüngliche Lösung war die änderung der Datei-Pfad, so würde Sie auf meinem desktop. Mein code ist der folgende:

Sub Invoice_to_PFD()
      'Saves the invoice print area to a PDF file

       Dim fp As String
       Dim wb As Workbook

       fp = "C:\desktop\NewInvoice.pdf"
       Set wb = ActiveWorkbook

       wb.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fp, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

End Sub
funktioniert gut für mich in 2007 & 2010... Ihre Fehler in welcher Zeile genau?
Es ist in der Zeile [code]wb.ExportAsFixedFormat[/code] - funktioniert es, wenn Sie die Datei ändern Pfad? Dachte schon, dass vielleicht der Pfad kann ungültig sein?
ja, genau, das ist möglich, und dies wird der Grund sein...!
Okay ich sehen. Also, wenn ich einfach nur wollen, um es auf dem Desktop speichern und rufen Sie die Datei "NewInvoice.pdf-Datei", wie kann ich auf den Pfad richtig? Und gibt es eine Möglichkeit, erstellen Sie eine Eingabe für den Pfad, wie ich bin Planung zu geben, das jemand anderes, und ich denke, er benutzt Mac OS und daher möglicherweise brauchen ganz andere fp Referenzen, damit es funktioniert? Danke!
Ich weiß nicht, wie Universelle Pfad für Win und Mac. Für Win könnte man versuchen so etwas wie: fp = environ("userprofile") & "\desktop\NewInvoice.pdf"

InformationsquelleAutor Matthias | 2013-06-29

  1. 1

    So ist dies den funktionierenden code jetzt für Windows-Benutzer (Mac OS haben könnte, passen Sie die Datei Pfad):

    Sub Invoice_to_PDF()
'Saves the invoice print area to a PDF file

Dim fp As String
Dim wb As Workbook
Dim ws As Worksheet

fp = "C:\Users\[username]\Desktop\NewInvoice.pdf"
Set wb = ActiveWorkbook
Set ws = Worksheets("Invoice")

ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=fp, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True


End Sub

    InformationsquelleAutor Matthias

  2. 0

    Wenn das Arbeitsblatt, das Sie exportieren keine Daten enthält, dann schlägt der export fehl. Ich fand diese Lösung auf die MrExcel forum, wo jemand zu haben scheint, stolperte über die Antwort!

    InformationsquelleAutor SVCooper

  3. 0

    Andere Ursache dieses Fehlers ist, wenn der Dateiname enthält unzulässige Zeichen wie:

    • < (weniger als)
    • > (größer als)
    • : (Doppelpunkt)
    • " (doppeltes Anführungszeichen),
    • /(Schrägstrich)
    • \ (backslash)
    • | (vertikaler Balken oder Rohr)
    • ? (Fragezeichen)
    • * (Sternchen)

    Siehe 'Namenskonventionen' hier: https://docs.microsoft.com/en-us/windows/desktop/fileio/naming-a-file

    Lösung: ungültige Zeichen ersetzen mit legalen, wie z.B. '_'.

    InformationsquelleAutor Gareth Hayter

  4. 0

    OK, ich habe gerade gespielt mit mir einige mehr, und wenn ich das ".pdf" aus dem Dateinamen-Spezifikation, die ich nicht bekomme den Fehler 1004.

    InformationsquelleAutor BillR

Schreibe einen Kommentar