Each Page In Visio Orientation Portriat & Landscape

[sureshsa_2000]

Hi EveryBody,

In visio 2003 Each Page Orientation has to be changed through VB
coding into Portriat / Landscape .

Thanks in Advance for your reply.

Thanks & Regards
Suresh

 

[JuneTheSecond]

Visio can record your operation and make VBA macro.

 

[sureshsa_2000]

Hi JuneTheSecond

Thank you for your answer.
I got the same as below
Application.ActivePage.PageSheet.CellsSRC(visSectionObject
visRowPage, visPageWidth).FormulaU = "17 in"
Application.ActivePage.PageSheet.CellsSRC(visSectionObject
visRowPage, visPageHeight).FormulaU = "11 in"
Application.ActivePage.PageSheet.CellsSRC(visSectionObject
visRowPrintProperties, visPrintPropertiesPageOrientation).FormulaU
"2"

Thanks & Regards
Suresh

 

[Al Edlund]

you might want to ensure that the document page setup is not set to havet
the page emulate the printer setup.
al

 

[sureshsa_2000]

Hi Edlund ,

First I should say Thanks for your reply
Down the code would be right I hope

dPageWidth
Application.ActivePage.PageSheet.Cells("PageWidth").ResultIU
dPageHeight
Application.ActivePage.PageSheet.Cells("PageHeight").ResultIU


If dPageWidth > dPageHeight Then
'Portrait
Application.ActivePage.PageSheet.CellsSRC(visSectionObject
visRowPage, visPageWidth).FormulaU = dPageHeight
Application.ActivePage.PageSheet.CellsSRC(visSectionObject
visRowPage, visPageHeight).FormulaU = dPageWidth
Application.ActivePage.PageSheet.CellsSRC(visSectionObject
visRowPrintProperties, visPrintPropertiesPageOrientation).FormulaU
"1"
End If

Thanks & Regards
Suresh