🚀 go-pugleaf

... and my last post to this :-)

now I got something that works fine for me, in my isRectoFunction i change ColCount of one MasterPage temporarily and then test ColCount of Page
 this way:



 
'Returns True if objPage is on right side  
'\n 
Private Function isRecto(objPage) As Boolean '\n 
Dim objMaster, objMarker As Object '\n 
Dim strMaster As String '\n 
Dim boolRecto As Boolean '\n 
Dim i As Integer '\n 
Dim lngStandardCols As Long '\n 
lngStandardCols = objPage.AppliedMaster.Pages.Item(1).MarginPreferences.ColumnCount '\n 
objPage.AppliedMaster.Pages.Item(1).MarginPreferences.ColumnCount = lngStandardCols + 1 '\n 
If objPage.MarginPreferences.ColumnCount = lngStandardCols Then '\n 
    boolRecto = True '\n 
Else '\n 
    boolRecto = False '\n 
End If '\n 
objPage.AppliedMaster.Pages.Item(1).MarginPreferences.ColumnCount = lngStandardCols '\n 
isRecto = boolRecto '\n 
End Function '\n 




hope someone can use it

(every '\n comment indicates line break, admins here dont allow me to subscribe with a newsreader, they block port 119 or something... so this form is what i got here - sorry)

johannes