Лечение проблемы с 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
|