我使用的是针打。。

解决方案 »

  1.   

    在Excel中设置纸张大小的时候录制宏啊
    然后看一下录制到的代码有什么不明白的?
      

  2.   

    页面设置:
    在VBA中怎样设置打印页面的内容。比如设置页边距。
    With ActiveSheet.PageSetup
            .LeftHeader = ""
            .CenterHeader = "&""楷体_GB2312,常规""&A"       '设置中页眉
            .RightHeader = ""
            .LeftFooter = ""
            .CenterFooter = "&""仿宋_GB2312,加粗""&14第 &P 页,共 &N 页"    '设置中页脚
            .RightFooter = ""
            .LeftMargin = Application.InchesToPoints(0.748031496062992)   
    '左右上下边距
            .RightMargin = Application.InchesToPoints(0.748031496062992)
            .TopMargin = Application.InchesToPoints(0.984251968503937)
            .BottomMargin = Application.InchesToPoints(0.984251968503937)
            .HeaderMargin = Application.InchesToPoints(0.511811023622047)
            .FooterMargin = Application.InchesToPoints(0.511811023622047)
            .PrintHeadings = False
    '打印标题头
            .PrintGridlines = False
    '打印网格线        .PrintQuality = 600’打印效果600dpi        .PaperSize = xlPaperA4
    '纸张大小
            .Order = xlDownThenOver
    '打印顺序:先列后行    End With