-- 作者:狐狸爸爸
-- 发布时间:2014/2/27 14:21:00
--
你可以看看这个帖子: 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
[此贴子已经被作者于2014-2-27 14:21:48编辑过]
|