怎样在delphi中设置EXCEL纸张大小？各位老师请指点，参与者都给分

Question

我想把EXCEL的纸张大小设置为两页宽行打印纸的大小，并且横放

Answer 1

ews1:TExcelWorksheet;
...
      ews1.PageSetup.Orientation := xlLandscape; //横向打印
      ews1.PageSetup.Zoom := false;  //不使用缩放比例(即使用调整成x页宽，x页高);
      ews1.PageSetup.FitToPagesWide := 2; //调整成2页宽
      ews1.PageSetup.FitToPagesTall := 1; //调整成1页高

Answer 2

1.先调整printer纸张大小、方向
2.调用EXCEL
3.恢复printer纸张大小、方向

Answer 3

我是不想写的.
BCB版大版主老妖善长这些.
或者你搜一下这里,应该不少.