CAD的VBAexcel vba 选择打印机程序，怎么设置excel vba 选择打印机机

来源：蜘蛛抓取(WebSpider) 时间：2017-04-16 01:47 标签： vba指定打印机
君，已阅读到文档的结尾了呢~~
CAD-VBA批量打印程序程序,CAD,VBA,批量打印,vba,vba程序,cad
扫扫二维码，随身浏览文档
手机或平板扫扫即可继续访问
CAD-VBA批量打印程序
举报该文档为侵权文档。
举报该文档含有违规或不良信息。
反馈该文档无法正常浏览。
举报该文档为重复文档。
推荐理由：
将文档分享至：
分享完整地址
文档地址：
粘贴到BBS或博客
flash地址：
支持嵌入FLASH地址的网站使用
html代码：
&embed src='/DocinViewer-4.swf' width='100%' height='600' type=application/x-shockwave-flash ALLOWFULLSCREEN='true' ALLOWSCRIPTACCESS='always'&&/embed&
450px*300px480px*400px650px*490px
支持嵌入HTML代码的网站使用
您的内容已经提交成功
您所提交的内容需要审核后才能发布，请您等待！
3秒自动关闭窗口查看: 3504|回复: 8
指定打印机打印
阅读权限10
在线时间 小时
& &由于单位需要套打证件，电脑上安装有多台打印机，套打时需指定用针式打印机，在论坛学习良久，现将自己学习组合的打印程序发出共享。可在Sheet1表里面建一个命令按钮来调用。第一次运行时选择自己需要的打印机并写入设置，以后可直接指定打印机打印。 &&Function NameExist(sName As String) As Boolean& & '判断定义名称是否存在函数
Dim NameCount As Integer
NameExist = False
For NameCount = 1 To Workbooks(1).Names.Count
& & If Workbooks(1).Names(NameCount).NameLocal = sName Then
& && &&&NameExist = True
& && &&&Exit Function
& & End If
Next
End Function
Private Sub FindPrint()&&'判断指定的打印机是否存在
& && &If Application.ActivePrinter = Evaluate(ActiveWorkbook.Names(&printname&).Value) Then
& &&&Exit Sub
& &&&Else
& && && & Call Printsetup& & '调用打印机设置并定义名称
& && && & Exit Sub
& & End If
End Sub
Private Sub Printsetup()& & '调用打印机设置并定义名称，把设定的打印机写入Excel名称
Dim n As Boolean, dyj$
& & n = Application.Dialogs(xlDialogPrinterSetup).Show& && & '调用打印机设置
& && &If n = True Then
& && &&&dyj = Application.ActivePrinter
& && &&&ActiveWorkbook.Names.Add Name:=&printname&, RefersTo:=dyj& &'写入名称
& && &Exit Sub
& && &End If
End Sub
Private Sub CommandButton1_Click()& && &'打印
Dim n As Boolean, dyj$
If NameExist(&printname&) Then '判断是否有打印机名称定义存在，如没有调用打印机设置
Dim printyb, duankou, i%, j%
Call FindPrint&&'判断指定的打印机是否存在
Sheet1.PrintOut Application.ActivePrinter = Evaluate(ActiveWorkbook.Names(&printname&).Value)
Else
& & Call Printsetup&&'调用打印机设置
& & Sheet1.PrintOut Application.ActivePrinter = Evaluate(ActiveWorkbook.Names(&printname&).Value)& &'打印Sheet1表格，可自行设定。
End If
End Sub
复制代码
阅读权限10
在线时间 小时
自己感觉判断系统是否有安装指定打印机的语名有点不对，请版主能否想个办法，否则每次都跳出选择打印机
阅读权限20
在线时间 小时
太好用了，谢谢分享！
阅读权限50
在线时间 小时
& & & & & & & &
如果你默认打印机为激光，当打印某表时需用针式打印机
可设置以下代码点击按扭时改为针式，打好后又恢复激光
Sub 在代码中直接写入打印机名()
& & Set net = CreateObject(&WScript.Network&)
& & net.SetDefaultPrinter &Jolimark FP-570K&
& & ActiveSheet.PrintPreview&&'打印预览
& & net.SetDefaultPrinter &HP LaserJet Professional P 1102w&
End Sub
Sub 在工作表中引用打印机名()
& & Set net = CreateObject(&WScript.Network&)
& & net.SetDefaultPrinter Range(&L1&)
& & ActiveSheet.PrintPreview&&'打印预览
& & net.SetDefaultPrinter Range(&L2&)
End Sub复制代码
阅读权限10
在线时间 小时
太好了，感谢分享，完美实现打印机选择！
阅读权限10
在线时间 小时
啊嘞，你这个代码啊，一颗赛艇！基本可以结束全部关于vba选打印机的问题喽。
阅读权限10
在线时间 小时
感谢感谢，这段代码帮了大忙了！
阅读权限10
在线时间 小时
太强大了，解决了我的难题！
阅读权限20
在线时间 小时
学习了，现在在研究VBA
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师

我要回帖

更多关于 vba指定打印机 的文章

 

随机推荐