Thema Datum  Von Nutzer Rating
Antwort
Rot pdf Datei erstellen
23.06.2021 09:26:16 Manuel
NotSolved
23.06.2021 10:48:03 Der Steuerfuzzi
NotSolved
23.06.2021 11:02:37 Manuel
NotSolved
23.06.2021 11:48:39 Der Steuerfuzzi
NotSolved
23.06.2021 12:45:20 Manuel Kofler
NotSolved
23.06.2021 13:31:13 Gast20132
NotSolved
24.06.2021 08:04:12 Manuel Kofler
Solved
24.06.2021 09:03:33 Der Steuerfuzzi
NotSolved

Ansicht des Beitrags:
Von:
Manuel
Datum:
23.06.2021 09:26:16
Views:
102
Rating: Antwort:
  Ja
Thema:
pdf Datei erstellen

Guten Tag,

Ich habe ein Problem mit dem Erstellen einer PDF Datei über VBA. Beim Anklicken des Buttons wird folgender Code aktiviert:

Sub Makro1()
    
    ActiveDocument.CommandButton1.Select
    Selection.Delete
    
    ActivePrinter = "Microsoft Print to PDF"
    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentWithMarkup, Copies:=1, Pages:="", PageType:= _
        wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False, _
        PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0

        
    ActiveDocument.SaveAs2 FileName:="F:\EINZIEHUNG\Vorlagen BG\Archiv erstellte Dokumente\" & "BGBrief" & Format(Now, "YYMMDD_HHMMSS") & ".doc"
    ActiveDocument.ExportAsFixedFormat _
    outputfilename:="F:\EINZIEHUNG\Sendhybrid - LZ und Mahnungen\" & "BGBrief" & Format(Now, "YYMMDD_HHMMSS") & ".pdf", exportformat:=wdExportFormatPDF
  
        
Application.Quit savechanges:=False

          
        
End Sub

Die Datei lässt sich ohne Probleme in den voreingestellten Pfad speichern (als Word und als PDF Dokument - "grün").

Beim Auswählen des Speicherpfades wird zwar die PDF Datei erstellt, aber mit 0 KB und beim Öffnen die Fehlermeldung "Beschädigtes Dokument"

 

Kann mir bitte jemand weiterhelfen - Vielen herzlichen Dank! 

Manuel


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot pdf Datei erstellen
23.06.2021 09:26:16 Manuel
NotSolved
23.06.2021 10:48:03 Der Steuerfuzzi
NotSolved
23.06.2021 11:02:37 Manuel
NotSolved
23.06.2021 11:48:39 Der Steuerfuzzi
NotSolved
23.06.2021 12:45:20 Manuel Kofler
NotSolved
23.06.2021 13:31:13 Gast20132
NotSolved
24.06.2021 08:04:12 Manuel Kofler
Solved
24.06.2021 09:03:33 Der Steuerfuzzi
NotSolved