Change Paper Size to 17X11

[OldSchool1948]

I need to toggle paper sizes between 34x22 and 17x11.

For 34x22 I use:

Code Select Expand


    Visio.ActiveDocument.PaperSize = Visio.visPaperSizeD


I cannot find a similar visPaperSize constant for 17x11.

Is there a way to change paper size (not page size) using VBA some other way?

Thanks in advance for any help!

[wapperdude]

Initial search leads to this:  https://msdn.microsoft.com/en-us/library/office/ff767686.aspx.  11x17 is not listed.

Further search brings up John Goldsmith's approach.  He uses the macro recorder to initially set the size:  http://visualsignals.typepad.co.uk/vislog/2009/03/changing-page-size-for-all-pages.html.  Your printer must list the desired paper size.  If not shown, the driver won't know what to do...unless it allows custom sizes.

Wapperdude

[OldSchool1948]

I believe this will work  .  As always, thanks much.