All Forums
 Категория Visio
 Форум Вопросы и ответы
 Свойства Document
Author Previous Topic Topic Next Topic  

StasSoft

Russia
3 Posts
Posted - 09/11/2003 :  11:08:49
Как программно можно поменять положение страницы с "книжной" на "альбомную"?

Tumanov

Russia
1198 Posts
Posted - 09/11/2003 :  17:10:18
Это можно сделать, изменив одновременно размеры страницы рисунка и ориентацию страницы принтера. Например, вот так:
Sub ttt()
Height = ActivePage.PageSheet.Cells("PageWidth")
ActivePage.PageSheet.Cells("PageWidth") = ActivePage.PageSheet.Cells("PageHeight")
ActivePage.PageSheet.Cells("PageHeight") = Height
If ActiveDocument.PrintLandscape Then ActiveDocument.PrintLandscape = False Else ActiveDocument.PrintLandscape = True
End Sub
Go to Top of Page
  Previous Topic Topic Next Topic  
Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru
Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум!
Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com)