Foxtable(狐表)用户栏目专家坐堂 → [求助]电脑联两台打印机,如何使用指定的打印机打印?


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

主题:[求助]电脑联两台打印机,如何使用指定的打印机打印?

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


加好友 发短信
等级:婴狐 帖子:12 积分:151 威望:0 精华:0 注册:2024/3/3 11:40:00
[求助]电脑联两台打印机,如何使用指定的打印机打印?  发帖心情 Post By:2024/4/7 17:33:00 [只看该作者]

电脑连接两台打印机:
当需要单页凭证时用激光打印机打印(已设默认打印机)
当需要两页或三页时用针式打印机压感纸打印

存在问题:
不管选那个打印机,都是电脑系统设置的默认打印机在打印
无法按需打印
请老师看看问题在哪里?
谢谢! 

打印机名称是这样得到的:
Dim printers As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim clist As String = "默认打印机"
For Each p As String In InstalledPrinters
    clist = "|" & p
Next
printers.ComboList = clist
打印机名称存在全局代码 _Mrdyj

…………
Book.Save(pfile) '保存工作簿


If _Mrdyj = "默认打印机" Then 
    Dim Proc As New Process
    Proc.File = pfile
    Proc.Verb = "Print" '指定动作
    Proc.Start()
Else
    ' MessageBox.Show(_Mrdyj)  ’测试是否进入目的打印机
    Dim App As New MSExcel.Application
    Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(pfile)
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)
    wb.saved = True
    App.DisplayAlerts = False
    App.Visible = True
    Ws.PrintOut(Preview:=False, ActivePrinter:=" & _Mrdyj & ") '直接打印;
    App.Quit
End If


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


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

Ws.PrintOut(Preview:=False, ActivePrinter:=_Mrdyj)

 回到顶部
帅哥哟,离线,有人找我吗?
薛翁19480514
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:12 积分:151 威望:0 精华:0 注册:2024/3/3 11:40:00
  发帖心情 Post By:2024/4/8 14:01:00 [只看该作者]

谢谢,可以打印了。

 回到顶部