在delphi如何设置Excel的打印设置（如页边距，横竖打印等）

如题

解决方案 »

  1.   

    可以先在EXCEL里面设置好,然后保存成一个模版,以后打开这个文件,填数据就可以了
      

  2.   


    a.页眉：
    ExcelApp.ActiveSheet.PageSetup.CenterHeader := '报表演示';
    b.页脚：
    ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P页';
    c.页眉到顶端边距2cm：
    ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
    d.页脚到底端边距3cm：
    ExcelApp.ActiveSheet.PageSetup.FooterMargin := 3/0.035;
    e.顶边距2cm：
    ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;
    f.底边距2cm：
    ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
    g.左边距2cm：
    ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
    h.右边距2cm：
    ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035;
    i.页面水平居中：
    ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
    j.页面垂直居中：
    ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
    k.打印单元格网线：
    ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;
    l.设置打印方向：BExcelApp.ActiveSheet.PageSetup.Orientation := 2;  //1：纵向，2横向
      

  3.   

    http://blog.chinaunix.net/u/28618/showart_365771.html