🚀 go-pugleaf

Hi there,
I need to set the page margin in InDesign to 0 (Zero). I had this working in InDesign 1.0, but since then (v1.52+, 2.0+) the code I have doesn't work anymore. We are running InDesign inside a VB app. A button click asks for the job size (using a VB form) and creates the new advert.

Can anyone see a fatal flaw in this code? I have removed any unecessary code, so appologies if I have removed too much code.

My code at present is as follows (VB6 Code):
---
' Create a totally new job
sizeX = "20 cm" 'hard coded for this example code
sizeY = "20 cm" 'hard coded for this example code
If FileExists(App.path & "\Templates\master.indt") Then
  Set InAdvert = InDesign.Documents.Open(App.path "\Templates\master.indt")
Else
  Set InAdvert = InDesign.Documents.Add
End If

Set InWindow = InDesign.ActiveWindow
Set InSpread = InWindow.ActiveSpread

Set InViewPrefs = InAdvert.ViewPreferences
With InViewPrefs
  .HorzMeasurementUnits = idMSPoints
  .VertMeasurementUnits = idMSPoints
  .ShowMasterItems = False
  .RulerOrigin = idPageOrigin
End With
If InViewPrefs.ShowRulers = False Then
  InViewPrefs.ShowRulers = True
End If

Set InDocPrefs = InAdvert.DocumentPreferences
With InDocPrefs
  .NumberOfPages = 1
  .PagesPerSpread = 1
  .MarginGuideColor = idUIBlue
End With

'Remove the margins
Set InAdPage = InAdvert.Pages(1)
Set InMargPrefs = InAdPage.MarginPreferences
With InMargPrefs
  'I have tried using "0cm", "0 cm" too, but the margins stay at the
  'default size.
  .ColumnGutter = "0"
  .MarginBottom = "0"
  .MarginTop = "0"
  .MarginLeft = "0"
  .MarginRight = "0"
End With

On Error GoTo JobSizeIssue
'this is where things go wrong. If we want to set the job size to 2cmx2cm
'(a small advertisement) then the size of the ad is less than the margin
'size. As you can see, I set the margin size to 0 above, but this seems to
'have no effect.
InDocPrefs.PageWidth = sizeX
InDocPrefs.PageHeight = sizeY
On Error GoTo 0
---

email: paulvt@alliedpress.co.nz