Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3374|回复: 8

[已解决]一个比较复杂的逐页在A4空白纸上打印编号问题

[复制链接]
发表于 2013-5-8 14:17 | 显示全部楼层 |阅读模式
Book1.zip (2.75 KB, 下载次数: 15)
 楼主| 发表于 2013-5-8 16:09 | 显示全部楼层
book2.zip (12.49 KB, 下载次数: 18)
回复

使用道具 举报

发表于 2013-5-9 17:25 | 显示全部楼层    本楼为最佳答案   
附件请测试,现在的代码并没有设置每页打印,只设置了每页预览,如果确认没有问题,
将Printpreview换成Printout就可以自动打印了,当然,因为SHEET1没有格式,所以其他还要你自己调整。
※最后一页我偷懒了,用公式做的。

Book1.zip

18.73 KB, 下载次数: 20

回复

使用道具 举报

发表于 2013-5-9 18:00 | 显示全部楼层
注意:因为是打印预览,要手动关闭,VBA才能继续执行下去,正式打印就没这个问题。
回复

使用道具 举报

 楼主| 发表于 2013-5-10 11:13 | 显示全部楼层
Book2.zip (19.89 KB, 下载次数: 13)
回复

使用道具 举报

 楼主| 发表于 2013-5-10 11:29 | 显示全部楼层
sheet2表中数据超过10行就看不到了
回复

使用道具 举报

发表于 2013-5-10 13:12 | 显示全部楼层
不好意思,我的电脑是日语系统的,如果我修改过了给你,可能会出现很多乱码,我只把方法告诉你吧:
1、修改Userform1的Combobox1的TextAlign属性为1 - fmTextAlignLeft,如下图(没贴过图,不知道能不能贴上);
2、Sheet3县局名称补齐,注意按照我设定的样式“中文+简码”,因为我是按简码作判断的,Sheet4同样把县局名补齐后,有公式的地方下拉即可。
你试试,有问题我下班后会解决的。
C:\Users\mdl1202\Pictures\無題.png
回复

使用道具 举报

发表于 2013-5-10 13:14 | 显示全部楼层
果然没贴上,不过修改属性不难的,你试试。
回复

使用道具 举报

 楼主| 发表于 2013-5-10 13:39 | 显示全部楼层
已按老师要求修改完毕,问题全解决,感谢!!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 10:07 , Processed in 0.609220 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表