以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]excel报表编号如何打印连续打印? (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152658) |
-- 作者:1669607010 -- 发布时间:2020/7/17 15:21:00 -- [求助]excel报表编号如何打印连续打印? [求助]Excel报表编号如何打印连续打印? 用热敏打印机打印标签比如想打印100张,现在想让这100张标签的编号从1-100顺序打印,哪位老师看看如何实现? |
-- 作者:有点蓝 -- 发布时间:2020/7/17 15:23:00 -- 加个顺序号:http://www.foxtable.com/webhelp/topics/1405.htm |
-- 作者:1669607010 -- 发布时间:2020/7/17 15:40:00 -- 引用顺序号 顺序号的初始值为1,每打印一个细节区,顺序号就会增加1。 可以在Excel报表中引用顺序号,引用格式为: <Index> 老师,我用的是热敏标签打印机每张标签纸只能打印一个标签,我的需求是例如某种货物有100箱,标签的内容是一样的,只有标签的编号是从1开始顺序递增的,请问这个需求要怎样实现,您说的上面的那个方法“每打印一个细节区,顺序号就会增加1”应该怎么理解?我直接把<Index>加在了excel模板里怎么打印出来全是1? |
-- 作者:有点蓝 -- 发布时间:2020/7/17 16:03:00 -- excel模板怎么用的?选一行,点100次打印?如果使用代码,具体代码发上来 |
-- 作者:1669607010 -- 发布时间:2020/7/17 16:05:00 -- 对,就是一行数据打印100份,每份编号按顺序递增 |
-- 作者:有点蓝 -- 发布时间:2020/7/17 16:14:00 -- 使用代码控制,比如 for i as integer = 1 to 100 Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls") Dim fl As String = ProjectPath & "Reports\\出库单.xls" Book.Build() \'生成细节区 Sheet(某行,某列).Value = i Book.Save(fl) \'保存工作簿 Dim Proc As New Process \'打开工作簿 Proc.File = fl Proc.Verb = "Print" \'指定动作 Proc.Start() next
|
-- 作者:1669607010 -- 发布时间:2020/7/17 16:26:00 -- 谢谢老师指导 |