Опять 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);

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

еще поправка

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

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