Форум: "Основная";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];

Вниз

Опять Excel параметры страницы   Найти похожие ветки 

← →
Ghost_   (2003-07-11 10:47) [0]

Как сделать страницу альбомной

---

← →
Babay   (2003-07-11 11:09) [1]

ну например так

параметр Excel подразумевает уже открытый ексель с помощью
GetActiveOleObject

Procedure PrintPageSetup(Excel:Variant;Orentation:Integer=xlLandscape;//альбомная ориентация
// xlPortrait // книжная ориентация
Left:Extended=2.5;// отступы в см Right:Extended=2.5;
Top:Extended=2.5; Bottom:Extended=2.5;
Zoom:Integer=95);
Begin
try // на случай ежели не задан принтер Excel.ActiveSheet.PageSetup.Zoom:=Zoom; // масштаб печати в %
Excel.ActiveSheet.PageSetup.Orientation := Orentation;
Excel.ActiveSheet.PageSetup.LeftMargin:= excel.CentimetersToPoints(Left);
Excel.ActiveSheet.PageSetup.RightMargin:= Excel.CentimetersToPoints(Right);
Excel.ActiveSheet.PageSetup.TopMargin:= Excel.CentimetersToPoints(Top);
Excel.ActiveSheet.PageSetup.BottomMargin:= Excel.CentimetersToPoints(Bottom);
finally
end;
end;

---

← →
Babay   (2003-07-11 11:10) [2]

поправка

Procedure PrintPageSetup(Excel:Variant;Orentation:Integer=xlLandscape;//альбомная ориентация
// xlPortrait // книжная ориентация
Left:Extended=2.5;// отступы в см
Right:Extended=2.5;
Top:Extended=2.5; Bottom:Extended=2.5;
Zoom:Integer=95);

---

← →
Babay   (2003-07-11 11:11) [3]

Блин ну надоже как все исковеркало........

еще поправка

try // на случай ежели не задан принтер
Excel.ActiveSheet.PageSetup.Zoom:=Zoom; // масштаб печати в %

---

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

Форум: "Основная";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.015 c