Foxtable(狐表)用户栏目专家坐堂 → [求助]程序运行中打印机的动态切换


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

主题:[求助]程序运行中打印机的动态切换

帅哥哟,离线,有人找我吗?
薛翁
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:80 积分:836 威望:0 精华:0 注册:2015/8/29 18:22:00
[求助]程序运行中打印机的动态切换  发帖心情 Post By:2019/7/9 19:14:00 [只看该作者]

我用Excel模板生成了要打印的文件,如何指定打印机直接打印
Dim file As String = "D:\数据区\管理费用表2.xls"
Book.Build() '生成细节区
Book.Save(file) '保存工作簿
Dim Book1 As New XLS.Book(file)  '定义一个Excel工作簿
Dim Sheet1 As XLS.Sheet = Book1.Sheets(0) '引用工作簿的第一个工作表
 'Sheet1.PrintSetting....对工作表进行了润色
Book1.Save(file)
Dim Proc As New Process
Proc.File = file
If  e.Form.Controls("RdoButDY").checked   Then
    Proc.Verb = "Print"    '如果选择了直接打印选项就直接打印
End If
财务系统中凭证使用用平推的针式打印机,报表需激光打印机来打。
虽然用激光打印时退出系统,将其设为默认打印机,或者打印报表时用预览后打印。
可是用户不满意,能否在程序中切换?特向老师求教,恳请解答!

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106566 积分:541995 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/7/9 20:15:00 [只看该作者]

需要使用vba,参考:http://www.foxtable.com/webhelp/topics/2121.htm

看最后的打印输出部分

 回到顶部