Текущий архив: 2009.04.12;
Скачать: CL | DM;

Вниз

PageSetup   Найти похожие ветки 

← →
nstur   (2009-02-24 13:36) [0]

Как получить доступ к PageSetup через TExcelApplication

---

← →
Anatoly Podgoretsky ©   (2009-02-24 14:05) [1]

Создай макрос и смотри.

---

← →
nstur   (2009-02-24 14:19) [2]

Не все так просто.
ActiveSheet: IDispatch и поэтому пришлось
использовать OleVariant(ActiveSheet).PageSetup.
а явно к _Worksheet добраться не могу

---

← →
tytus   (2009-02-24 15:31) [3]

я пишу так:

FExcel: TExcelApplication;

var
 Sheet:Variant;
begin
 FExcel.SheetsInNewWorkbook[0]:=1;
 FExcel.Workbooks.Add(EmptyParam,0);
 Sheet:=FExcel.WorkBooks[1].Sheets[1];
 Sheet.PageSetUp.Orientation:=xlPortrait;//xlLandScape;
 Sheet.PageSetUp.LeftMargin:=9;
 Sheet.PageSetUp.RightMargin:=9;
 Sheet.PageSetUp.Zoom:=84;

---

← →
Сергей М. ©   (2009-02-24 19:24) [4]

> явно к _Worksheet добраться не могу


Что значит "не могу" ?

var
MySheet: _Worksheet;
..
MySheet := MyExcelApp.ActiveSheet as _Worksheet;

Такие буковки набрать не можешь или что ?

---

Страницы: 1 вся ветка

Текущий архив: 2009.04.12;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c