Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]


  共有11990人关注过本帖树形打印复制链接

主题：[求助]
帅哥哟，离线，有人找我吗？
tungwun
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00 		[求助]  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		  发帖心情 Post By：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
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00 		如何自定不同标记?  发帖心情 Post By：2011/9/24 18:40:00 [只看该作者]

统计後月结单指定发给个人名,公司名?
[此贴子已经被作者于2011-9-24 18:41:58编辑过]
 回到顶部
美女呀，离线，留言给我吧！
yangming
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：超级版主 帖子：4109 积分：23338 威望：0 精华：21 注册：2008/9/1 20:07:00 		  发帖心情 Post By：2011/9/24 19:03:00 [只看该作者]

可以在窗口中插入一个文本框，由用户自行输入公司名，然后在代码中代入这个文本框的text,就可以了

 回到顶部
帅哥哟，离线，有人找我吗？
czy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章 三级勋章 二级勋章
等级：超级版主 帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00 		  发帖心情 Post By：2011/9/24 19:31:00 [只看该作者]

看半天没明白具体想要什么。

 回到顶部
帅哥哟，离线，有人找我吗？
tungwun
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00 		请给个代码个例子  发帖心情 Post By：2011/9/24 21:31:00 [只看该作者]

请给个代码例子?谢谢!
可以在窗口中插入一个文本框，由用户自行输入公司名，然后在代码中代入这个文本框的text,就可以了

 回到顶部
帅哥哟，离线，有人找我吗？
mr725
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级：MVP荣誉狐 帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00 		  发帖心情 Post By：2011/9/24 22:34:00 [只看该作者]

自己做个例子上来，得到回答就要快得多····

 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：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
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：423 积分：4243 威望：0 精华：0 注册：2009/5/16 21:42:00 		  发帖心情 Post By：2011/9/25 10:01:00 [只看该作者]

谢谢!

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06738 秒, 4 次数据查询