如合作成一个模板，使用户在要打印excel标时自动加上自定义的标题和表尾？

Question

表长为任意。如何做出这样的模板？需要的话如何用vb?

Answer 1

模板的Thisworkbook代码窗口中加入如下代码
Private Sub Workbook_BeforePrint(Cancel As Boolean)
    With ActiveSheet.PageSetup
        .CenterHeader = "标题"
        .CenterFooter = "表尾"
    End With
End Sub

Answer 2

如：
FUNCTION ADDPRINTHEADER(Header as string,Footer as string )
'....其他语句
'假设你的SHEET对象为xlSheet
With xlSheet.PageSetup
        .Orientation = xlLandscape
        .PaperSize = xlPaperA4
        .PrintGridlines = True
        '.FitToPagesWide
       .CenterHeader = "&""宋体,常规""& &""宋体,常规""" & Chr(10) & Chr(10) & "&""宋体,常规""&10" & Header
        .RightHeader = "" & Chr(10) & Chr(10) & Header "&""宋体,常规""&10单位："
        .LeftFooter = "&""宋体,常规""&10制表人：" 
        .CenterFooter = "&""宋体,常规""&10 & Footer 
        .RightFooter = "&""宋体,常规""&10第&P页 共&N页"
    End With
'.......其他语句
end function

Answer 3

最好是自己做个设置窗体，
在打印前弹出这个窗体，
让用户设置。请使用这个事件Workbook_BeforePrint。
===========================================================
您还可以前往“http://b4018.xici.net”提问，
提供：VB、VBA、Office二次开发免费技术支持；
承接：各类项目开发，如MIS系统，WEB网站，中小型应用软件等等；CO.：Vansoft Workroom
MSN：[email protected]
Email：[email protected]
       [email protected]
       [email protected]
TEL：[phone]（范，24H）