乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 141|回复: 8

如何用vba程序控制打印输出到哪台打印机?

[复制链接]

31

主题

129

帖子

5

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
253
发表于 2004-4-30 21:56:00 | 显示全部楼层 |阅读模式
各位大虾:我的机子上连接着好几台打印机(型号不同)我想用vba程序控制打印输出到哪台打印机?也就是说打印时用方法:ThisDrawing.Plot.PlotToDevice 时能否指定那台打印机?
谢谢!!
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2004-4-30 22:24:00 | 显示全部楼层
可以使用ConfigName来指定打印机,使用GetPlotDeviceNames来获取打印机列表。
回复

使用道具 举报

23

主题

122

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
214
发表于 2005-2-26 23:10:00 | 显示全部楼层
请问如何设置为默认打印机?当更换打印机时,程序不用动
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2005-2-27 09:31:00 | 显示全部楼层
默认打印机为“Default Windows System Printer.pc3”
回复

使用道具 举报

23

主题

122

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
214
发表于 2005-2-27 20:12:00 | 显示全部楼层
ThisDrawing.PaperSpace.Layout.ConfigName =Default Windows System Printer.pc3不行啊?
ThisDrawing.PaperSpace.Layout.ConfigName =“Default Windows System Printer.pc3”
也不行啊?
请问应用默认打印机的格式是什么?
回复

使用道具 举报

158

主题

2315

帖子

10

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2951
发表于 2005-2-28 21:43:00 | 显示全部楼层
什么出错内容?
一般来说,在个性打印机前应先调用 ThisDrawing.ActiveLayout.RefreshPlotDeviceInfo 来刷新打印设备。
回复

使用道具 举报

23

主题

122

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
214
发表于 2005-2-28 21:56:00 | 显示全部楼层
运行时错误'-2145386493(80200003):
输入无效
回复

使用道具 举报

23

主题

122

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
214
发表于 2005-2-28 22:05:00 | 显示全部楼层
输入时错误:'-2145386493(80200003):
输入无较
回复

使用道具 举报

23

主题

122

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
214
发表于 2005-2-28 22:53:00 | 显示全部楼层
Private Sub CommandButton1_Click()
ZoomExtents
ThisDrawing.ActiveLayout.RefreshPlotDeviceInfo
ThisDrawing.PaperSpace.Layout.ConfigName = "Default Windows System Printer.pc3"
'设计为草图打印,不计比例
        ThisDrawing.PaperSpace.Layout.StandardScale = acScaleToFit
        ' 设置打印份数为a
ThisDrawing.Plot.NumberOfCopies = a
' 开始范围打印
ThisDrawing.SendCommand "-plot" + Chr(13) + "y" + Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) + "e" + Chr(13) + Chr(13) + "居中打印" + Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) + Chr(13) + "y" + Chr(13)
Unload UserForm8
        End Sub
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-16 20:51 , Processed in 0.478858 second(s), 70 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表