[已解决]请教excel文档打印流水号

xt_one

各位老师！
        我有一个办公文档表格需重复打印，请教有谁知道怎样在页眉或页脚添加流水号。
        比如重复打印一千份，流水号为000001-001000
            谢谢指点！









1

最佳答案

月排行榜 / 总排行榜

业余爱好者

2012-1-12 21:57

xt_one 发表于 2012-1-12 20:46
是仓库领料单
批量印刷财务不批只能自己打印
现在是打印出来后用打号机手动打号，费时费力

其实，打印成本更好

一是WORD加EXCEL，用邮件合并来做

二是EXCEL加上VBA，打印一张加一1，

三是用ACCESS来玩也用不了多少时间

总之，思路告诉你了，自己去玩吧

如果，你用E基础不怎么样，那么请做个附件，发到这里来

不然，人家直接把代码告诉你，可能你也不一定会用。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim x%
x = Range("a1")
Range("a1") = x + 1
End Sub

打印一张，自动加一的代码，很简单吧，呵呵

跳转到最佳答案楼层

业余爱好者

是表格内容相同，只是流水号不同，要打印一千份吗？

371

这个还真不清楚，，要是说1000页内容加上序号还行。。重复的一页还真不会啊。
话说，1000份楼主可以直接印刷的，，或者复印1000份都行啊。

xt_one

业余爱好者 发表于 2012-1-9 22:22
是表格内容相同，只是流水号不同，要打印一千份吗？

对
这个文档我想连号管理，要一直保存，一千份只是一部分。

chenzhi_juan

如果要打印的话，你可以用VBA控制。打印一页，序号加一。
当然，如果是同一种表格的话，打印的成本绝对高于印刷的成本。建议你还是去印刷算了，500页就可以下单了，每100页一本，我以前也是这样做的，简单

业余爱好者

xt_one 发表于 2012-1-10 21:27
对
这个文档我想连号管理，要一直保存，一千份只是一部分。

建议你说说到底准备是做什么用的

如果是在电脑里保存,方法可就多了

不同的目的,要用不同的方法才可能会更好一些

如果仅仅是打印一样的表,还是楼上同学建议的方法更好,去印刷

xt_one

业余爱好者 发表于 2012-1-11 08:37
建议你说说到底准备是做什么用的

如果是在电脑里保存,方法可就多了

是仓库领料单
批量印刷财务不批只能自己打印
现在是打印出来后用打号机手动打号，费时费力
所以我想把这个工作交电脑来做
望高手指点
谢谢！

业余爱好者

xt_one 发表于 2012-1-12 20:46
是仓库领料单
批量印刷财务不批只能自己打印
现在是打印出来后用打号机手动打号，费时费力

其实，打印成本更好

一是WORD加EXCEL，用邮件合并来做

二是EXCEL加上VBA，打印一张加一1，

三是用ACCESS来玩也用不了多少时间

总之，思路告诉你了，自己去玩吧

如果，你用E基础不怎么样，那么请做个附件，发到这里来

不然，人家直接把代码告诉你，可能你也不一定会用。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim x%
x = Range("a1")
Range("a1") = x + 1
End Sub

打印一张，自动加一的代码，很简单吧，呵呵

xt_one

业余爱好者 发表于 2012-1-12 21:57
其实，打印成本更好

一是WORD加EXCEL，用邮件合并来做

真是太感谢您了!
还真是给您说对了，我确实是个外行，遇见您这样的高手真是不容易，授人以鱼不如授人以渔，还望您能把那第二点和第三点更详细教我一下，拜谢！
附件不会制作，恕未上传
                                 我邮箱： xt_one@sian.com
不好意思！
又想起一个问题：
比如我今天打印50份是从00001-00050，我明天再从00051开始打该如何设置？  谢谢！

zeng1412

作为一个新手，每天过来看看别人代码！！什么时候我也能回个帖子啊