Private
Sub
CommandButton1_Click()
Const
path
As
String
= "C:\Users\ms\Desktop\"
ActiveDocument.ExportAsFixedFormat _
OutputFileName:=path &
"Rechnung_"
& .DataFields(
"Rechnungsnummer"
).Value &
".pdf"
, _
ExportFormat:=wdExportFormatPDF, _
OpenAfterExport:=
False
, _
OptimizeFor:=wdExportOptimizeForPrint, _
Range:=wdExportAllDocument, _
From:=1, _
To
:=1, _
Item:=wdExportDocumentContent, _
IncludeDocProps:=
True
, _
KeepIRM:=
True
, _
CreateBookmarks:=wdExportCreateNoBookmarks, _
DocStructureTags:=
True
, _
BitmapMissingFonts:=
True
, _
UseISO19005_1:=
False
End
Sub