小
小小雪
Unregistered / Unconfirmed
GUEST, unregistred user!
我用DELPHI6的ExcelApplication等组件将数据导出到EXCEL,并控制EXCEL的输出打印格式。
用下列语句有效：
ExcelWorksheet1.PageSetup.CenterHorizontally := true; //页面水平居中
ExcelWorksheet1.PageSetup.CenterFooter := '第&P页 (总共&N页)'; //设置页脚
ExcelWorksheet1.PageSetup.Orientation := xlLandscape;
ExcelWorksheet1.PageSetup.PaperSize := xlPaperA4;
ExcelWorksheet1.PageSetup.FirstPageNumber := xlAutomatic;
但加入
ExcelWorksheet1.PageSetup.FitToPagesWide := 1;
试图将EXCEL的输出成一页宽,却无效(编译没有报错)。
请高人指点:[blue]如何控制EXCEL,使其将打印的内容输出成一页宽,N页高?[/blue]
用下列语句有效：
ExcelWorksheet1.PageSetup.CenterHorizontally := true; //页面水平居中
ExcelWorksheet1.PageSetup.CenterFooter := '第&P页 (总共&N页)'; //设置页脚
ExcelWorksheet1.PageSetup.Orientation := xlLandscape;
ExcelWorksheet1.PageSetup.PaperSize := xlPaperA4;
ExcelWorksheet1.PageSetup.FirstPageNumber := xlAutomatic;
但加入
ExcelWorksheet1.PageSetup.FitToPagesWide := 1;
试图将EXCEL的输出成一页宽,却无效(编译没有报错)。
请高人指点:[blue]如何控制EXCEL,使其将打印的内容输出成一页宽,N页高?[/blue]