0 Replies Latest reply on Jul 10, 2008 6:29 PM by (william_wijaya)

    Resizing Indd file but the images within is not resized

      Hi all,

      I'm using ASP Classic trying to resize indd files,
      the resizing process is working < all the text, embedded logo >, but I have problem with images within it, the images is place in image holder.
      They wont be resized.

      Please, help me anyone.

      Code :
      myFileName = vInDDFile
      ' ---------------- InDD ----------------
      Set myDocument = myInDesignServer.Open(myFileName)
      myDocument.LayoutAdjustmentPreferences.enableLayoutAdjustment = true
      myDocument.LayoutAdjustmentPreferences.allowGraphicsToResize = false
      myDocument.LayoutAdjustmentPreferences.allowRulerGuidesToMove = true
      myDocument.LayoutAdjustmentPreferences.ignoreObjectOrLayerLocks = true
      '---SET PDF LAYOUT---
      'MeasurementUnits.INCHES: 2053729891
      'MeasurementUnits.MILLIMETERS: 2053991795
      'MeasurementUnits.POINTS: 2054188905
      myDocument.ViewPreferences.HorizontalMeasurementUnits = 2054188905
      myDocument.ViewPreferences.VerticalMeasurementUnits = 2054188905

      'change width & height
      -----------------------
      myDocument.DocumentPreferences.PageWidth = cdbl(vPageWidth)
      myDocument.DocumentPreferences.PageHeight = cdbl(vPageHeight)
      if vPageWidth > vPageHeight then
      myDocument.DocumentPreferences.PageOrientation = 2003395685
      else
      myDocument.DocumentPreferences.PageOrientation = 1751738216
      end if

      With myDocument.MarginPreferences
      .Top = 0
      .Left = 0
      .Bottom = 0
      .Right = 0
      End With

      With myDocument.DocumentPreferences
      ' 'Bleed
      ' .DocumentBleedTopOffset = "0"
      ' .DocumentBleedUniformSize = True
      ' 'Slug
      ' .SlugBottomOffset = "0"
      ' .SlugTopOffset = "0"
      ' .SlugInsideOrLeftOffset = "0"
      ' .SlugRightOrOutsideOffset = "0"
      if vBleed = 1 then
      ' .DocumentBleedBottomOffset = "3p"
      .DocumentBleedTopOffset = "18"
      ' .DocumentBleedInsideOrLeftOffset = "3p"
      ' .DocumentBleedOutsideOrRightOffset = "3p"
      .DocumentBleedUniformSize = True

      ' .SlugTopOffset = "1p"
      ' .DocumentSlugUniformSize = True
      else
      'Bleed
      .DocumentBleedTopOffset = "2"
      .DocumentBleedUniformSize = True
      'Slug
      ' .SlugTopOffset = "0"
      ' .DocumentSlugUniformSize = True
      end if
      End With

      if vBleed = 1 then
      With myDocument.PasteboardPreferences
      .BleedGuideColor = Array(0, 0, 0)
      .SlugGuideColor = Array(0, 0, 0)
      end with
      end if

      Set myPage = myDocument.Pages.Item(1)
      Set myItms = myPage.PageItems
      ' ---------------------------------------
      Export to pdf
      ' ---------------------------------------

      With myInDesignServer.PDFExportPreferences
      .standardsCompliance = 1852796517 'none
      .PageRange = 1886547553 'ALL PAGES
      .AcrobatCompatibility = 1097020976
      .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
      .SubsetFontsBelow = 0
      .optimizePDF = false
      ' --------------------------------------------------
      .ColorBitmapCompression = 1634365490 'none
      .ColorBitmapQuality = 1701727351'idCompressionQuality.idEightBit
      .ColorBitmapSampling = 1650742125 'none

      .GrayscaleBitmapCompression = 1634365490 'none
      .GrayscaleBitmapQuality = 1701727351'idCompressionQuality.idEightBit
      .GrayscaleBitmapSampling = 1650742125 'none

      .MonochromeBitmapCompression = 1128879156 'none
      .MonochromeBitmapSampling = 1650742125 'none
      ' --------------------------------------------------
      .CompressionType = 1131369332' 1131368047
      .CompressTextAndLineArt = True
      .ContentToEmbed = 1164788076
      .CropImagesToFrames = True
      .OptimizePDF = false
      if vBleed = 1 then
      .BleedBottom = myDocument.DocumentPreferences.DocumentBleedBottomOffset
      .BleedTop = myDocument