如何设置excel的纸张大小和横向打印(d7+excel2000)?在线等?
解决方案 »
- 用delphi 怎么调用用C#写的webservice?
- 如何在16位操作系统下面(WIN3.1)使用压缩功能?如何重新整理zlib?
- 编写三层结构的大虾请进......
- 小问题,关于PROGRESSBAR的使用?
- 在DBGRID中如何象DELPHI属性设置拦中,选定一Cell时,在旁边出现一个小的选择按钮? 以打开不同的项目?
- 如何调用 现有的 .exe程序
- TField.EditMask设置只输入两位小时加两位分钟格式问题?
- 在delphi 中使用WebBrowser浏览网页,如何屏蔽掉鼠标右键菜单
- 别人帮我做的程序,在我这边运行时出现 TRxDBGrid类没有找到,该怎么解决?麻烦各位了!
- 关于DELPHI中的DBGRID控件
- DBGridEH判断一个列个的重复值?
- 如何接收局域网其他机器声卡的声音?
{设为A4
TQRPaperSize = (Default, Letter, LetterSmall, Tabloid, Ledger, Legal,
Statement, Executive, A3, A4, A4Small, A5, B4, B5, Folio,
Quarto, qr10X14, qr11X17, Note, Env9, Env10, Env11, Env12,
Env14, CSheet, DSheet, ESheet, Custom)
property PaperSize : TQRPaperSize}
ExcelWorksheet.PageSetup.Orientation:=xlLandscape;
//xlPortrait--vertically纵向打印; xlLandscape--horizontally横向打印
ExcelWorksheet.PageSetup.PrintTitleRows:='$1:$3';
ExcelWorksheet.PageSetup.RightFooter:='总共&N页'+'--第&P页';
ExcelWorksheet.PageSetup.CenterHorizontally:=True;
你的成功,但我根据你的提示这样实现了:
ExcelID.ActiveSheet.PageSetup.Orientation:=2; //横向打印 1-纵向,2-横向;
ExcelID.ActiveSheet.pagesetup.PaperSize:=12; //设置纸张大小 12-对应B4
ExcelID.ActiveSheet.PageSetup.Zoom:= 85 ; //缩放比例
ExcelID.ActiveSheet.PageSetup.CenterHorizontally:=True; //页面水平居中为什么?