以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]excel报表编号如何打印连续打印?  (http://www.foxtable.com/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
--  
谢谢老师指导