Текущий архив: 2003.07.24;
Скачать: CL | DM;
Вниз
Опять 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;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.024 c
