Foxtable(狐表) → 用户栏目 → 专家坐堂 → 打印份数问题


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

主题：打印份数问题
帅哥哟，离线，有人找我吗？
puyouliang
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：67 积分：703 威望：0 精华：0 注册：2010/11/23 23:03:00 		打印份数问题  发帖心情 Post By：2011/12/24 21:43:00 [只看该作者]

我用EXCEL模板打印，用什么代码可以指定打印份数啊，直接打印不预览

 回到顶部
美女呀，离线，留言给我吧！
yangming
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

试试窗口中加一个文本框,加一按钮,按钮代码如下:

Dim t As Integer=e.Form.Controls("TextBox1").Value
For i As Integer = 1 To t
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.Verb = "Print" '指定动作
Proc.Start()
Next
 回到顶部
帅哥哟，离线，有人找我吗？
puyouliang
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：67 积分：703 威望：0 精华：0 注册：2010/11/23 23:03:00 		  发帖心情 Post By：2011/12/24 23:30:00 [只看该作者]

用这代码等于重新生成一次表，打印速度太慢

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


加好友 发短信 一级勋章
等级：超级版主 帖子：7235 积分：40568 威望：0 精华：16 注册：2008/8/31 23:23:00 		  发帖心情 Post By：2011/12/25 1:08:00 [只看该作者]

打印预览，直接在excel中打印时设置打印份数可否？

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