Adobe 27510753 Scripting Guide - Page 179

Setting PDF export options, The following example sets the PDF export options before exporting

Page 179 highlights

Adobe InDesign CS2 Scripting Guide Working with Documents in VBScript 171 Rem ShowingOptions: boolean (setting this option to true displays the PDF Export dialog box) Rem Using: PDF export preset (or a string that is the name of a PDF export preset) Rem The default PDF export preset names are surrounded by squar breackets (e.g., "[Screen]"). myInDesign.ActiveDocument.Export idExportFormat.idPDFType, "c:\myTestDocument.pdf", False, myInDesign.PDFExportPresets.Item("[Press]") Setting PDF export options The following example sets the PDF export options before exporting: Rem ExportPDFWithOptions.vbs Rem An InDesign CS2 VBScript Rem Sets PDF export options, then exports the active document as PDF. Set myInDesign = CreateObject("InDesign.Application.CS2") With myInDesign.PDFExportPreferences Rem Basic PDF output options. .PageRange = idPageRange.idAllPages .AcrobatCompatibility = idAcrobatCompatibility.idAcrobat6 .ExportGuidesAndGrids = False .ExportLayers = False .ExportNonprintingObjects = False .ExportReaderSpreads = False .GenerateThumbnails = False On Error Resume Next .IgnoreSpreadOverrides = False .IncludeICCProfiles = True On Error GoTo 0 .IncludeBookmarks = True .IncludeHyperlinks = True .IncludeSlugWithPDF = False .IncludeStructure = False .InteractiveElements = False Rem Setting subsetFontsBelow to zero disallows font subsetting Rem set subsetFontsBelow to some other value to use font subsetting. .SubsetFontsBelow = 0 Rem Bitmap compression/sampling/quality options (note the additional "s" in "compression"). .ColorBitmapCompression = idBitmapCompression.idZip .ColorBitmapQuality = idCompressionQuality.idEightBit .ColorBitmapSampling = idSampling.idNone Rem ThresholdToCompressColor is not needed in this example. Rem ColorBitmapSamplingDPI is not needed when ColorBitmapSampling is set to none. .GrayscaleBitmapCompression = idBitmapCompression.idZip .GrayscaleBitmapQuality = idCompressionQuality.idEightBit .GrayscaleBitmapSampling = idSampling.idNone Rem ThresholdToCompressGray is not needed in this example. Rem GrayscaleBitmapSamplingDPI is not needed when GrayscaleBitmapSampling is set to none. .MonochromeBitmapCompression = idBitmapCompression.idZip .MonochromeBitmapSampling = idSampling.idNone Rem ThresholdToCompressMonochrome is not needed in this example. Rem MonochromeBitmapSamplingDPI is not needed when MonochromeBitmapSampling is set to none. Rem Other compression options. .CompressionType = idPDFCompressionType.idCompressNone .CompressTextAndLineArt = True .ContentToEmbed = idPDFContentToEmbed.idEmbedAll .CropImagesToFrames = True .OptimizePDF = True Rem Printers marks and prepress options. Rem Get the bleed amounts from the document's bleed. .BleedBottom = myInDesign.ActiveDocument.DocumentPreferences.DocumentBleedBottomOffset .BleedTop = myInDesign.ActiveDocument.DocumentPreferences.DocumentBleedTopOffset .BleedInside = myInDesign.ActiveDocument.DocumentPreferences.DocumentBleedInsideOrLeftOffset .BleedOutside = myInDesign.ActiveDocument.DocumentPreferences.DocumentBleedOutsideOrRightOffset Rem If any bleed area is greater than zero, then export the bleed marks. If ((.BleedBottom = 0) And (.BleedTop = 0) And (.BleedInside = 0) And (.BleedOutside = 0)) Then .BleedMarks = True Else

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
  • 113
  • 114
  • 115
  • 116
  • 117
  • 118
  • 119
  • 120
  • 121
  • 122
  • 123
  • 124
  • 125
  • 126
  • 127
  • 128
  • 129
  • 130
  • 131
  • 132
  • 133
  • 134
  • 135
  • 136
  • 137
  • 138
  • 139
  • 140
  • 141
  • 142
  • 143
  • 144
  • 145
  • 146
  • 147
  • 148
  • 149
  • 150
  • 151
  • 152
  • 153
  • 154
  • 155
  • 156
  • 157
  • 158
  • 159
  • 160
  • 161
  • 162
  • 163
  • 164
  • 165
  • 166
  • 167
  • 168
  • 169
  • 170
  • 171
  • 172
  • 173
  • 174
  • 175
  • 176
  • 177
  • 178
  • 179
  • 180
  • 181
  • 182
  • 183
  • 184

Adobe
InDesign CS2 Scripting Guide
Working with Documents in VBScript
171
Rem ShowingOptions: boolean (setting this option to true displays the PDF Export dialog box)
Rem Using: PDF export preset (or a string that is the name of a PDF export preset)
Rem The default PDF export preset names are surrounded by squar breackets (e.g., "[Screen]").
myInDesign.ActiveDocument.Export idExportFormat.idPDFType, "c:\myTestDocument.pdf", False,
myInDesign.PDFExportPresets.Item("[Press]")
Setting PDF export options
The following example sets the PDF export options before exporting:
Rem ExportPDFWithOptions.vbs
Rem An InDesign CS2 VBScript
Rem Sets PDF export options, then exports the active document as PDF.
Set myInDesign = CreateObject("InDesign.Application.CS2")
With myInDesign.PDFExportPreferences
Rem Basic PDF output options.
.PageRange = idPageRange.idAllPages
.AcrobatCompatibility = idAcrobatCompatibility.idAcrobat6
.ExportGuidesAndGrids = False
.ExportLayers = False
.ExportNonprintingObjects = False
.ExportReaderSpreads = False
.GenerateThumbnails = False
On Error Resume Next
.IgnoreSpreadOverrides = False
.IncludeICCProfiles = True
On Error GoTo 0
.IncludeBookmarks = True
.IncludeHyperlinks = True
.IncludeSlugWithPDF = False
.IncludeStructure = False
.InteractiveElements = False
Rem Setting subsetFontsBelow to zero disallows font subsetting
Rem set subsetFontsBelow to some other value to use font subsetting.
.SubsetFontsBelow = 0
Rem Bitmap compression/sampling/quality options (note the additional "s" in "compression").
.ColorBitmapCompression = idBitmapCompression.idZip
.ColorBitmapQuality = idCompressionQuality.idEightBit
.ColorBitmapSampling = idSampling.idNone
Rem ThresholdToCompressColor is not needed in this example.
Rem ColorBitmapSamplingDPI is not needed when ColorBitmapSampling is set to none.
.GrayscaleBitmapCompression = idBitmapCompression.idZip
.GrayscaleBitmapQuality = idCompressionQuality.idEightBit
.GrayscaleBitmapSampling = idSampling.idNone
Rem ThresholdToCompressGray is not needed in this example.
Rem GrayscaleBitmapSamplingDPI is not needed when GrayscaleBitmapSampling is set to none.
.MonochromeBitmapCompression = idBitmapCompression.idZip
.MonochromeBitmapSampling = idSampling.idNone
Rem ThresholdToCompressMonochrome is not needed in this example.
Rem MonochromeBitmapSamplingDPI is not needed when MonochromeBitmapSampling is set to none.
Rem Other compression options.
.CompressionType = idPDFCompressionType.idCompressNone
.CompressTextAndLineArt = True
.ContentToEmbed = idPDFContentToEmbed.idEmbedAll
.CropImagesToFrames = True
.OptimizePDF = True
Rem Printers marks and prepress options.
Rem Get the bleed amounts from the document’s bleed.
.BleedBottom = myInDesign.ActiveDocument.DocumentPreferences.DocumentBleedBottomOffset
.BleedTop = myInDesign.ActiveDocument.DocumentPreferences.DocumentBleedTopOffset
.BleedInside = myInDesign.ActiveDocument.DocumentPreferences.DocumentBleedInsideOrLeftOffset
.BleedOutside = myInDesign.ActiveDocument.DocumentPreferences.DocumentBleedOutsideOrRightOffset
Rem If any bleed area is greater than zero, then export the bleed marks.
If ((.BleedBottom = 0) And (.BleedTop = 0) And (.BleedInside = 0) And (.BleedOutside = 0)) Then
.BleedMarks = True
Else