🚀 go-pugleaf

Whoops! 

'------------------------- 
Dim myInDesign As InDesign.Application 
Set myInDesign = CreateObject("InDesign.Application.2.0") 
Set myDocument = myInDesign.Documents.Add 

Rem Set the measurement units to millimeters 
myDocument.ViewPreferences.HorzMeasurementUnits = idMSMillimeters 
myDocument.ViewPreferences.VertMeasurementUnits = idMSMillimeters 

Set myDocumentPreferences = myDocument.DocumentPreferences 
myDocumentPreferences.PageWidth = CDbl(txtPageW.Text) 
myDocumentPreferences.PageHeight = CDbl(txtPageH.Text) 
myDocumentPreferences.PagesPerSpread = 1 'Can be exposed on Form 
Set myMasterSpread = myDocument.MasterSpreads.Item(1) 
Set myMasterPage = myMasterSpread.Pages.Item(1) 
Set myMarginPreferences = myMasterPage.MarginPreferences 
myMarginPreferences.MarginLeft = CDbl(txtLeft.Text) 'Exposed 
myMarginPreferences.MarginTop = CDbl(txtTop.Text) 'Exposed 
myMarginPreferences.MarginRight = CDbl(txtRight.Text) 'Exposed 
myMarginPreferences.MarginBottom = CDbl(txtBottom.Text) 'Exposed 
myLeftMargin = myMarginPreferences.MarginLeft 
myTopMargin = myMarginPreferences.MarginTop 
myRightMargin = myMarginPreferences.MarginRight 
myBottomMargin = myMarginPreferences.MarginBottom 
'----------------------------------------------------- 
Rem Do this after setting margins. 
If optPortrait.Value = True Then 
   myDocumentPreferences.PageOrientation = idPortrait 
End If 

If optLandscape.Value = True Then 
   myDocumentPreferences.PageOrientation = idLandscape 
End If 
'------------------------------------------- 

Everything works until I try to set the number of pages (calculated previously). 

The page is landscape, until I do this: 

'set the number of pages in the document. 
myDocumentPreferences.NumberOfPages = myNumberOfPages 

I have tried adding a page to an active document, but no joy. 

What am I doing wrong? 

Thanks, 

Bill