我的xls文件用数百行，表的开始有一个表头（前六行为表头），现在我想用ＶＢＡ实现如下功能：在“打印预览”或“打印”时自动分页，而且每页都自动加上表头。
------解决方案--------------------------------------------------------
这个不用vba吧,在页面设置中进行设置就可以吧
------解决方案--------------------------------------------------------
直接页面设置中。
在每一页上都打印行列标题或行列标志
行标题为工作表左侧的数字；列标题为工作表顶端的字母或数字。
单击相应的工作表。
在“文件”菜单上，单击“页面设置”，再单击“工作表”选项卡。
请执行下列操作之一：
打印行列标题
选中“行号列标”复选框，然后单击“打印”。
在每一页上都打印行列标志
若要在每一页上打印列标志，请在“打印标题”下的“顶端标题行”框中，输入列标志所在行的行号，然后单击“打印”。
若要在每一页上打印行标志，可在“打印标题”下的“左端标题列”框中，输入行标志所在列的列标，然后单击“打印”。
------解决方案--------------------------------------------------------
VBA做不了这个，不至于吧
“前六行为表头” 还是 “第一行的前六列为表头” ？？
就以“前六行为表头”
ActiveSheet.PageSetup.PrintTitleRows = "$1:$6"