Книга знаний

1С:Предприятие / Приемы программирования / OLE, COM

Лечение проблемы с FitToPagesWide и Zoom при работе с Excel

При попытке установить выравнивание по ширине, Excel выдает ошибку: ps.Zoom = False; Microsoft Office Excel: Нельзя установить свойство Zoom класса PageSetupАвтор статьи: romix | Редакторы:
Последняя редакция №2 от 05.06.07 | История
URL: http://kb.mista.ru/article.php?id=541

Ключевые слова: FitToPagesWide Zoom Excel


xl=СоздатьОбъект("Excel.Application");

...

ps=xl.ActiveSheet.PageSetup; 

False=0;

//Устанавливаем Zoom=false
Скрипт=СоздатьОбъект("MSScriptControl.ScriptControl");
Скрипт.Language="javascript";
Скрипт.AddObject("ПараметрыСтраницы",ps);
Скрипт.Eval("ПараметрыСтраницы.Zoom=false");
    
ps.PrintTitleRows = "";
ps.PrintTitleColumns = "";
ps.PrintArea = "";
    
ps.LeftHeader = "";
ps.CenterHeader = "";
ps.RightHeader = "";
ps.LeftFooter = "";
ps.CenterFooter = "";
ps.RightFooter = "";
ps.LeftMargin = 0;
ps.RightMargin = 0;
ps.TopMargin = 0;
ps.BottomMargin = 0;
ps.HeaderMargin = 0;
ps.FooterMargin = 0;
ps.PrintHeadings = False;
ps.PrintGridlines = False;
ps.PrintComments = -4142; //xlPrintNoComments
ps.PrintQuality = 600;
ps.CenterHorizontally = False;
ps.CenterVertically = False;
ps.Orientation = 2;//xlLandscape
ps.Draft = False;
ps.PaperSize = 9;//xlPaperA4
ps.FirstPageNumber = -4105;//xlAutomatic;
ps.Order = 1;//xlDownThenOver;
ps.BlackAndWhite = False;
ps.FitToPagesWide = 1;
ps.FitToPagesTall = 10;
//ps.Zoom = False; //Здесь выдает ошибку
ps.PrintErrors = 0;//xlPrintErrorsDisplayed


Источник:
Форматирование страницы Excel
smaharbA
11 - 17.05.06 - 01:36


Закладка

Описание | Рубрикатор | Поиск | ТелепатБот | Захваченные статьи | Установки | Форум
© Станислав Митичкин (Волшебник), 2005-2011 | Mista.ru

Яндекс.Метрика