陈年老调之用VBA来实现打印excel表格的底端标题

gyjhero2011

所有的中国人，提到水泊梁山好汉，什么武松打虎，潘金莲和西门庆，等等，等等，都能仁者见仁，智者见智。

以上内容与本贴的主旨完全没有关系，只是新年来临，和大家一起共同娱乐一下。

下面切入正题,众所周知，excel软件不能同时打印顶端标题和底端标题。在网上搜素了一下此主题，解决办法有好多种，

比如将底标题插入页脚当中；通过函数公式一页一页打印；利用VBA程序实现，比如百宝箱插件。本人怀着无比喜悦的心情下载

了百宝箱，郁闷的是咱用的百宝箱是免费版的，打印底端标题的功能被禁用了。无奈之下，只能自己动动脑子，还好，最后

终于解决了问题。经常在论坛浏览学习，俗话说取之于论坛，用之于论坛，我就把我的小小成果跟大家分享一下，希望对还不知道

解决此问题的朋友能有所帮助。




上图为效果图。点击右上方的P红色按钮调出打印辅助对话框进行设置。附件中的excel文件，底端标题为前4行，当然你也可以认为是

前5行，顶端标题是5到6行，或者认为就是只有第6行，两种标题行加起来总共占了6行。如果你需要更多行标题栏，可以根据需要继续增加，

但是在对话框的输入一定要正确。针对附件excel文件，第一个下拉框选2，第二个则选4；第一个选1，第二个选5。当第一个对话框选3，打印就会出现

怪怪的，道理很简单，最大可选两行的顶端标题，选择了3当然不行，如果想选3，可以插入行。在附件文件中，表1即sheet1被设置成分页预览，因此可以

看出，一页中除了顶底端标题栏，内容总共占了17行，那就应该在对话框的第三个空白框中填入17,。把excel表格内容往下滚动，发现数据内容总共用了108

行，这就是第4个空白框中应该填入的数值。填好4个空白处的内容后点“确定”按钮，就可以看见你想要的效果，然后进行相关打印设置进行打印就很简单了。

Admin

   

很遗憾通知楼上朋友，您的帖子在24小时之内没有任何回复！

通常情况下，本论坛发布的主题帖会在8小时被回复或处理。您的帖子在24小时之内未被回复，其中的原因可能是：

1、问题表述不清、模棱两可，难以理解，帮助者被搞晕了，夺帖而出；
2、没有上传必要的附件，或附件被遗忘在某个角落；
3、发帖提问时，语气带棱角、带挑衅，不幸被列入不受欢迎的帖子；
4、所提问题不成立，或提不合理的要求，乐于助人者使出“走为上”之计；
5、话题较偏、较冷或者发布到了不合适的版块，暂时无人问津，顾影自怜。


为了提高您的问题解决效率，我们推荐您阅读以下文章：
* 如何发表新话题和上传附件：http://club.excelhome.net/thread-45649-1-1.html
* 发帖的技巧：http://club.excelhome.net/thread-176339-1-1.html
* EH技术论坛的最佳学习方法：http://club.excelhome.net/thread-117862-1-1.html

多多2011

看到过实现表尾打印的VBA代码，不知道怎么EXCEL为何不将此加入软件功能呢

[ 本帖最后由 多多2011 于 2011-1-20 14:29 编辑 ]

icydang

好东西，大家分享，谢谢

rubylqh

没看到效果图……看不懂5555555555
能再解释一下么？

ukjd001

代码锁了~~~建议公开

yepulu

陈年老调之用VBA来实现打印excel表格的底端标题

梁永信

密码是什么呀

fantasy456

我也想问，密码是什么呀？没密码用不了呀