Publish to PDF is converting all Bitmaps to given resolution for DownSampling

I’m encountering an issue with publishing PDFs using VBA. Despite having bitmaps in CorelDRAW with lower resolutions, the published PDF is converting all bitmaps to a higher resolution. How can I resolve this problem?


With ActiveDocument.PDFSettings
.PublishRange = 1 ' CdrPDFVBA.pdfCurrentPage
.PageRange = "1"
.Author = "CorelDraw"
.Subject = ""
.Keywords = ""
.BitmapCompression = 2 ' CdrPDFVBA.pdfJPEG
.JPEGQualityFactor = 2
.TextAsCurves = True
.EmbedFonts = True
.EmbedBaseFonts = True
.TrueTypeToType1 = True
.SubsetFonts = True
.SubsetPct = 80
.CompressText = True
.Encoding = 1 ' CdrPDFVBA.pdfBinary
.DownsampleColor = True
.DownsampleGray = True
.DownsampleMono = True
.ColorResolution = 1200 'Resolution
.MonoResolution = 2400 'Resolution * 2
.GrayResolution = 1200 ' Resolution
.Hyperlinks = False
.Bookmarks = False
.Thumbnails = False
.Startup = 0 ' CdrPDFVBA.pdfPageOnly
.ComplexFillsAsBitmaps = False
.Overprints = True
.Halftones = False
.MaintainOPILinks = False
.FountainSteps = 999
.EPSAs = 0 ' CdrPDFVBA.pdfPostscript
.pdfVersion = 0 ' CdrPDFVBA.pdfVersion12
.IncludeBleed = False
.Bleed = 31750
.Linearize = False
.CropMarks = False
.RegistrationMarks = False
.DensitometerScales = False
.FileInformation = False
.ColorMode = ColorSpace ' CdrPDFVBA.pdfNative
'.UseColorProfile = True
.ColorProfile = 1 ' CdrPDFVBA.pdfSeparationProfile
.EmbedFilename = FileNameText.text '""
.EmbedFile = False
.JP2QualityFactor = 2
.TextExportMode = 0 ' CdrPDFVBA.pdfTextAsUnicode
.PrintPermissions = 0 ' CdrPDFVBA.pdfPrintPermissionNone
.EditPermissions = 0 ' CdrPDFVBA.pdfEditPermissionNone
.ContentCopyingAllowed = False
.OpenPassword = ""
.PermissionPassword = ""
.EncryptType = 2 ' CdrPDFVBA.pdfEncryptTypeAES
.OutputSpotColorsAs = OutputSpace ' CdrPDFVBA.pdfSpotAsSpot
.OverprintBlackLimit = 100
.ProtectedTextAsCurves = True
End With

Parents Reply Children
No Data