以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=13011)
--  作者：tungwun
--  发布时间：2011/9/24 10:10:00
--  [求助]
请问在Excel报表模板中插入一个标记的格式,如何自定不同标记?


Dim Book As New XLS.Book(ProjectPath & "Attachments\\月结单.xls")
Dim fl As String = ProjectPath & "Reports\\月结单.xls"
Book.Marks.Add("公司名",User.Name)  如何自定不同标记?
Book.Build()
Book.Save("c:\\reports\\test.xls") 
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
--  作者：yangming
--  发布时间：2011/9/24 15:50:00
--  
以下是引用tungwun在2011-9-24 10:10:00的发言：
请问在Excel报表模板中插入一个标记的格式,如何自定不同标记?


Dim Book As New XLS.Book(ProjectPath & "Attachments\\月结单.xls")
Dim fl As String = ProjectPath & "Reports\\月结单.xls"
Book.Marks.Add("公司名",User.Name)  如何自定不同标记?
Book.Build()
Book.Save("c:\\reports\\test.xls") 
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()

你要自定怎么不同的标记？
--  作者：tungwun
--  发布时间：2011/9/24 18:40:00
--  如何自定不同标记?
统计後月结单指定发给个人名,公司名?
[此贴子已经被作者于2011-9-24 18:41:58编辑过]
--  作者：yangming
--  发布时间：2011/9/24 19:03:00
--  
可以在窗口中插入一个文本框，由用户自行输入公司名，然后在代码中代入这个文本框的text,就可以了
--  作者：czy
--  发布时间：2011/9/24 19:31:00
--  
看半天没明白具体想要什么。
--  作者：tungwun
--  发布时间：2011/9/24 21:31:00
--  请给个代码个例子
请给个代码例子?谢谢!
可以在窗口中插入一个文本框，由用户自行输入公司名，然后在代码中代入这个文本框的text,就可以了
--  作者：mr725
--  发布时间：2011/9/24 22:34:00
--  
自己做个例子上来，得到回答就要快得多····
--  作者：狐狸爸爸
--  发布时间：2011/9/25 9:22:00
--  

在窗口加入一个文本框，一个打印按钮，文本框用于输入公司名，假定这个文本框的名称是TextBox1，打印按钮的代码是：

 

Dim Book As New XLS.Book(ProjectPath & "Attachments\\月结单.xls")
Dim fl As String = ProjectPath & "Reports\\月结单.xls"
Book.Marks.Add("公司名",e.Form.Controls("TextBox1").Value)
Book.Build()
Book.Save("c:\\reports\\test.xls")
Dim Proc As New Process
Proc.File = "c:\\reports\\test.xls"
Proc.Start()
--  作者：tungwun
--  发布时间：2011/9/25 10:01:00
--  
谢谢!