Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助，这样如何设置指定打印机打印？


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

主题：求助，这样如何设置指定打印机打印？
帅哥哟，离线，有人找我吗？
baoxyang
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00 		求助，这样如何设置指定打印机打印？  发帖心情 Post By：2012/5/28 10:16:00 [只看该作者]

    Dim fl As String = ProjectPath & "打印\托运单.xls"
    Book.Save(fl) '保存工作簿
    Dim Proc As New Process '打开工作簿
    Proc.File = fl
    Proc.Verb = "print" '指定动作
    Proc.Start()
以上如何写代码来指定打印机打印呢？谢谢指点！
 回到顶部
帅哥哟，离线，有人找我吗？
狐狸爸爸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：管理员 帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00 		  发帖心情 Post By：2012/5/28 11:19:00 [只看该作者]

这个没办法设置打印机。

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


加好友 发短信
等级：狐精 帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00 		  发帖心情 Post By：2012/5/28 11:32:00 [只看该作者]

图片点击可在新窗口打开查看

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


加好友 发短信
等级：小狐 帖子：302 积分：1860 威望：0 精华：0 注册：2012/4/27 11:34:00 		  发帖心情 Post By：2012/5/28 11:46:00 [只看该作者]

 用VBA
Dim fl As String = ProjectPath & "打印\托运单.xls"
 Dim App As New MSExcel.Application
 Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open(fl)
 Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1)

Ws.PrintOut(From:=1,To:=10,Copies:=3,Preview:=True,ActivePrinter:="pdfFactory Pro")
 回到顶部
帅哥哟，离线，有人找我吗？
baoxyang
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3313 积分：23146 威望：0 精华：1 注册：2009/3/31 11:25:00 		  发帖心情 Post By：2012/5/28 13:54:00 [只看该作者]

多谢指点!OK!!

 回到顶部
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 次数据查询