主题：[求助]如何打带号码的标签，连号的！

你可以看看这个帖子：
http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=46619&page=1&star=1
 
1、定义一个全局变量：
    public index as integer
 
2、设计个窗口，一个文本框，一个打印按钮，文本框输入起始编号。

3、打印按钮的代码：

index  = e.form.Controls("文本框").value
Dim Book As New XLS.Book(ProjectPath & "Attachments\模版名称.xls")
Dim fl As String = ProjectPath & "Reports\模版名称.xls"
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process '打开工作簿
Proc.File = fl
Proc.Start()
 

4、报表的BeforeBuild事件加上代码：

Select e.Book.TempLate
    Case "模版名称"
        e.Book.Marks.Add("编号",Format(Index,"0000000"))
end Select
 
需要注意的是，TempLate返回的模板文件名称是不包括路径和后缀名的， 例如你使用的模板文件名称“出库单.xls”，那么TempLate属性的值等于“出库单”。

5、BuildDetail事件加上代码：

Static i As integer
Select Case e.Book.TempLate
    Case "模板名称"
       index = index + 1
       e.Book.Marks("编号") = format(index,"00000000")
End Select