pdf erzeugen
20.11.2020 14:02:01
Oisse
mir stellt sich folgendes Problem:
Per VBA fülle ich zwei Word-Dokumente aus Excel heraus. Funktioniert einwandfrei.
Ein Word-Dokument für ein Angebot und ein Word-Dokument für die Rechnung, jeweils mit eigenem Makro.
Ebenfalls in diesen Makros findet sich der Code zum Export in eine PDF Datei und dem Abspeichern in einem Ordner:
Der Code sieht so aus:
If MsgBox("Ändere ggf. das Word-Dokument ab und klicke danach hier OK", vbOKCancel, "Durchsicht _
des Dokuments") = vbOK Then
'Als Pdf speichern
With WordObj
With .ActiveDocument
.ExportAsFixedFormat OutputFileName:=CDateiName, _
ExportFormat:=17, Openafterexport:=True, OptimizeFor:=0, _
Range:=0, From:=1, To:=1, _
Item:=0, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=0, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
.Close SaveChanges:=False
End With
End With
Else
WordObj.ActiveDocument.Close SaveChanges:=False
Exit Sub
End If
Bei der Rechnung funktioniert alles einwandfrei.
Nur beim Kostenvoranschlag funktioniert das Exportieren nach PDF nicht.
Woran könnte das bitte liegen?
Vielen Dank schon mal
Gruß Oisse