| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

PageSetup [D7, WinXP]

nstur ©   (2009-02-24 13:36:00) 

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

---

Сергей М.   (2009-02-24 19:24:00) [1]

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


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

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

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

---

tytus   (2009-02-24 15:31:00) [2]

я пишу так:

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;

---

nstur   (2009-02-24 14:19:00) [3]

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

---

Anatoly Podgoretsky   (2009-02-24 14:05:00) [4]

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

---

Наверх