如何设置excel的纸张大小和横向打印(d7+excel2000)?在线等?

解决方案 »

  1.   

    ExcelWorksheet.PageSetup.PaperSize:=xlPaperA4;
          {设为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;
      

  2.   

    谢谢老大!
    你的成功,但我根据你的提示这样实现了:
      ExcelID.ActiveSheet.PageSetup.Orientation:=2; //横向打印 1-纵向,2-横向;
      ExcelID.ActiveSheet.pagesetup.PaperSize:=12;   //设置纸张大小 12-对应B4
      ExcelID.ActiveSheet.PageSetup.Zoom:= 85 ;  //缩放比例
      ExcelID.ActiveSheet.PageSetup.CenterHorizontally:=True;  //页面水平居中为什么?