So sieht das dann aus (PDF in Kundenordner):
Code
' PDF speichern
With ActiveDocument.PDFSettings
.PublishRange = 0 ' CdrPDFVBA.pdfWholeDocument
.PageRange = ""
.Author = "Guido Voutta"
.Subject = ""
.Keywords = ""
.BitmapCompression = 3 ' CdrPDFVBA.pdfZIP
.JPEGQualityFactor = 2
.TextAsCurves = True
.EmbedFonts = True
.EmbedBaseFonts = True
.TrueTypeToType1 = True
.SubsetFonts = True
.SubsetPct = 80
.CompressText = False
.Encoding = 1 ' CdrPDFVBA.pdfBinary
.DownsampleColor = False
.DownsampleGray = False
.DownsampleMono = False
.ColorResolution = 300
.MonoResolution = 600
.GrayResolution = 300
.Hyperlinks = False
.Bookmarks = False
.Thumbnails = False
.Startup = 0 ' CdrPDFVBA.pdfPageOnly
.ComplexFillsAsBitmaps = False
.Overprints = False
.Halftones = False
.SpotColors = True
.MaintainOPILinks = False
.FountainSteps = 256
.EPSAs = 0 ' CdrPDFVBA.pdfPostscript
.pdfVersion = 3 ' CdrPDFVBA.pdfVersion14
.IncludeBleed = False
.Bleed = 0
.Linearize = False
.CropMarks = False
.RegistrationMarks = False
.DensitometerScales = False
.FileInformation = False
.ColorMode = 3 ' CdrPDFVBA.pdfNative
.UseColorProfile = False
.ColorProfile = 1 ' CdrPDFVBA.pdfSeparationProfile
.EmbedFilename = ""
.EmbedFile = False
.JP2QualityFactor = 10
.TextExportMode = 1 ' CdrPDFVBA.pdfTextAsAscii
.PrintPermissions = 0 ' CdrPDFVBA.pdfPrintPermissionNone
.EditPermissions = 0 ' CdrPDFVBA.pdfEditPermissionNone
.ContentCopyingAllowed = False
.OpenPassword = ""
.PermissionPassword = ""
.ConvertSpotColors = False
End With
Dim weg As String
weg = ActiveDocument.FilePath & "Druck " & ActiveDocument.FileName & ".pdf"
ActiveDocument.PublishToPDF weg
' Ende PDF speichern
Alles anzeigen
Nachtrag:
Zum speichern auf den Desktop muss nur folgende Zeile geändert werden: