【CorelDraw VBA 008例】导出到PDF

Sub ExportPdf()
    With ActiveDocument.PDFSettings
        .PublishRange = 0 ' CdrPDFVBA.pdfWholeDocument
        .PageRange = ""
        .Author = "Greg Gutierrez"
        .Subject = ""
        .Keywords = ""
        .BitmapCompression = 2 ' CdrPDFVBA.pdfJPEG
        .JPEGQualityFactor = 100
        .TextAsCurves = False
        .EmbedFonts = False
        .EmbedBaseFonts = False
        .TrueTypeToType1 = True
        .SubsetFonts = True
        .SubsetPct = 80
        .CompressText = True
        .Encoding = 1 ' CdrPDFVBA.pdfBinary
        .DownsampleColor = True
        .DownsampleGray = True
        .DownsampleMono = True
        .ColorResolution = 96
        .MonoResolution = 120
        .GrayResolution = 96
        .Hyperlinks = True
        .Bookmarks = False
        .Thumbnails = False
        .Startup = 0 ' CdrPDFVBA.pdfPageOnly
        .ComplexFillsAsBitmaps = True
        .Overprints = False
        .Halftones = False
        .SpotColors = False
        .MaintainOPILinks = False
        .FountainSteps = 256
        .EPSAs = 1 ' CdrPDFVBA.pdfPreview
        .pdfVersion = 6 ' CdrPDFVBA.pdfVersion15
        .IncludeBleed = False
        .Bleed = 0
        .Linearize = True
        .CropMarks = False
        .RegistrationMarks = False
        .DensitometerScales = False
        .FileInformation = False
        .ColorMode = 0 ' CdrPDFVBA.pdfRGB
        .UseColorProfile = False
        .ColorProfile = 1 ' CdrPDFVBA.pdfSeparationProfile
        .EmbedFilename = ""
        .EmbedFile = False
        .JP2QualityFactor = 100
        .TextExportMode = 1 ' CdrPDFVBA.pdfTextAsAscii
        .PrintPermissions = 0 ' CdrPDFVBA.pdfPrintPermissionNone
        .EditPermissions = 0 ' CdrPDFVBA.pdfEditPermissionNone
        .ContentCopyingAllowed = False
        .OpenPassword = ""
        .PermissionPassword = ""
        .ConvertSpotColors = True
        .EncryptType = 0 ' CdrPDFVBA.pdfEncryptTypeNone
    End With
    ActiveDocument.PublishToPDF "C:\Documents and Settings\computer1\Desktop\13-0227 #2304 MJ Harlem New York, NY.pdf"
End Sub