- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]帮修改一下代码 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=32883)
-- 发布时间：2013/5/9 20:16:00
-- [求助]帮修改一下代码
Dim Book As New XLS.Book(ProjectPath & "Attachments\\生产计划单.xls")
Dim fl As String = ProjectPath & "Reports\\生产计划单.xls"
Book.Build() \'生成细节区
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Verb = "Print" \'指定动作
Proc.Start()
求帮修改一下代码，要求如下：
1。指定到名为 TSC TTP-342 Pro (副本 1) 的打印机
2。打印前不显示工作表就直接打印
[此贴子已经被作者于2013-5-10 8:01:13编辑过]
-- 发布时间：2013/5/10 5:02:00
--
-- 发布时间：2013/5/10 7:27:00
--
EXCEL报表中打印不就可以了吗？
-- 发布时间：2013/5/10 8:00:00
--
我是用EXCEL报表打印呀！
自已不懂代码，帮改一下1楼的代码吧？
-- 发布时间：2013/5/11 0:46:00
--
又沉了
-- 发布时间：2013/5/11 6:49:00
--
是不是要打印用模板生成的报表，就得
Dim Proc As New Process \'打开工作簿
才行了？
如果不想显示报表就直接打印，只有用专业报表了？
-- 发布时间：2013/5/11 13:05:00
--
也可以直接打印的：
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()
-- 发布时间：2013/5/12 1:14:00
--
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.PrinterName = "TSC TTP-342 Pro (副本 1)"
Proc.Verb = "Print" \'指定动作
Proc.Start()
提示
编译错误:PrinterName不是Process的成员
错误代码:Proc.PrinterName = "TSC TTP-342 Pro (副本 1)"
-- 发布时间：2013/5/12 21:51:00
--
-- 发布时间：2013/5/13 8:04:00
--
8楼
提示
编译错误:PrinterName不是Process的成员
错误代码:Proc.PrinterName = "TSC TTP-342 Pro (副本 1)"