当前位置: 代码迷 >> VBA >> 这个功能,用VBA怎么实现
  详细解决方案

这个功能,用VBA怎么实现

热度:5952   发布时间:2013-02-26 00:00:00.0
这个功能,用VBA如何实现?
我的xls文件用数百行,表的开始有一个表头(前六行为表头),现在我想用VBA实现如下功能:在“打印预览”或“打印”时自动分页,而且每页都自动加上表头。

------解决方案--------------------------------------------------------
这个不用vba吧,在页面设置中进行设置就可以吧
------解决方案--------------------------------------------------------
直接页面设置中。

在每一页上都打印行列标题或行列标志
行标题为工作表左侧的数字;列标题为工作表顶端的字母或数字。

单击相应的工作表。 
在“文件”菜单上,单击“页面设置”,再单击“工作表”选项卡。 
请执行下列操作之一: 
打印行列标题

选中“行号列标”复选框,然后单击“打印”。 
在每一页上都打印行列标志

若要在每一页上打印列标志,请在“打印标题”下的“顶端标题行”框中,输入列标志所在行的行号,然后单击“打印”。 
若要在每一页上打印行标志,可在“打印标题”下的“左端标题列”框中,输入行标志所在列的列标,然后单击“打印”。

------解决方案--------------------------------------------------------
VBA做不了这个,不至于吧

“前六行为表头” 还是 “第一行的前六列为表头” ??
就以“前六行为表头”

ActiveSheet.PageSetup.PrintTitleRows = "$1:$6"
  相关解决方案