Scale: Double;
Свойство Scale определяет масштаб рабочего пространства при печати. Свойство принимает любые положительные значения. Например, значение «0.1» соответствует 10% от натуральной величины, а значение «4» - 400% от натуральной величины.
Для выполнения примера в репозитории предполагается наличие рабочего пространства с идентификатором «WSP».
Добавьте ссылки на системные сборки: Andy, Metabase.
Sub UserProc;
Var
mb: IMetabase;
wsp: IWxWorkspace;
PS: IWxPageSettings;
Begin
// Получим репозиторий
mb := MetabaseClass.Active;
wsp := mb.ItemById("WSP").Edit As IWxWorkspace;
PS := wsp.PageSettings;
PS.FitToPages := False;
PS.Scale := 0.5;
(wsp As IMetabaseObject).Save;
End Sub UserProc;
После выполнения примера будут изменены параметры страницы: при печати будет использоваться масштаб 50% от оригинального размера рабочего пространства.
См. также: