| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]程序运行中打印机的动态切换 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=137566) |
| -- 作者：薛翁 -- 发布时间：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 财务系统中凭证使用用平推的针式打印机，报表需激光打印机来打。 虽然用激光打印时退出系统，将其设为默认打印机，或者打印报表时用预览后打印。 可是用户不满意，能否在程序中切换？特向老师求教，恳请解答！
|
| -- 作者：有点蓝 -- 发布时间：2019/7/9 20:15:00 -- 需要使用vba，参考：http://www.foxtable.com/webhelp/topics/2121.htm 看最后的打印输出部分
|