社区
API
帖子详情
如何得到和设置默认打印机???
awinder
2003-10-09 09:55:40
如题
...全文
129
3
打赏
收藏
如何得到和设置默认打印机???
如题
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
lihonggen0
2003-10-10
打赏
举报
回复
http://support.microsoft.com/default.aspx?scid=kb;EN-US;266767
HOWTO: Set Which Printer Is the System Default Printer
lihonggen0
2003-10-10
打赏
举报
回复
'***************打印机***************************
取得打印机:
If Printers.Count < 1 Then
MsgBox "系统没有安装打印机!", vbCritical, App.Title
Unload Me
Exit Sub
End If
Dim Prns As Printer
For Each Prns In Printers
List1.AddItem Prns.DeviceName
Next
List1.ListIndex = 0
设定默认打印机:
Set Printer = Printers(List1.ListIndex)
saucer
2003-10-10
打赏
举报
回复
see
http://www.absolutelydiverse.com.au/vb_tips/hardcore/tip_5.htm
http://www.developer.com/net/cplus/article.php/640491
http://www.adamswann.com/library/2001/DefaultPrinter.html
http://www.fawcette.com/vsm/2002_02/magazine/columns/desktopdeveloper/default_pf.asp
http://www.freevbcode.com/ShowCode.Asp?ID=641
获取
打印机
并
设置
默认
打印机
.rar
通过API函数获得
打印机
名称和端口号,可以是多个
打印机
,通过调用
打印机
名称,来
设置
默认
打印机
,这个例子通过VB6编程软件实现,本人已经测试成功
excel vba中
设置
打印机
的代码
在excel中通过注册表获得所有系统
打印机
,并根据需要指定其一的代码。
更改
打印机
自定义 纸张类型 强大 dll
本人编写的 可 更改 任意
打印机
的
默认
纸张类型、 大小、走纸方向的 可自定义纸张的 dll文件,使用时,可先
设置
纸张大小及方向,然后程序中调用打印,即可 按照指定 纸张大小 走纸, 控制准确,更改迅速, 更改完之后 还可 将
打印机
默认
纸张 还原为调用前的纸张类型 虽用vb编码,但其他语言也可调用此dll 详细函数调用如下 '以下函数均可独立使用 Dim p As New PrinSetUserDefine.PrintSetUserDefine '改变指定
打印机
的
默认
纸张大小及方向,指定
打印机
不一定是
默认
打印机
Call p.StartPrintUserPage(28, 24, 1, "EPSON LQ-1600K IIIH ESC/P 2") '改变当前
默认
打印机
的
默认
纸张大小及方向 Call p.StartPrintUserPage(28, 24, 1) Dim height As Double '可以获取 指定
打印机
名的 最大支持纸张高度 height = p.GetMaxPaperLength_Dmm("EPSON LQ-1600K IIIH ESC/P 2") '也可将指定
打印机
名 设为
默认
打印机
, 对于必须
设置
为
默认
打印,才可调用打印报表的程序 非常有用 Call p.SetPrinterToDefault("EPSON LQ-1600K IIIH ESC/P 2") '还原
打印机
默认
纸张为 自定义之前的纸张 Call p.EndPrintUserPage
获得缺省
打印机
名称(含97及2000版)access2000;access97
说 明:获得缺省
打印机
名称(含97及2000版)
这是针对access97/2000所做的获得缺省
打印机
名称的源码,只要运行程序即可获得你当前系统所安装的缺省
打印机
的名称.
要点:读取注册表来判断你的缺省
打印机
,需要API知识
缺点:对windows2000判断不对,且只判断本地
打印机
,网络
打印机
不行。因最近比较忙,我未做改进,网友可根据同样的方法提取,改进后别忘了EMAIL一份给我哦
VBA 获取
打印机
状态
vba 通过WMI服务,查找本机所有打印服务,通过
打印机
名称历遍所有
打印机
实施状态,如等待中.打印中等
API
1,486
社区成员
23,280
社区内容
发帖
与我相关
我的任务
API
VB API
复制链接
扫一扫
分享
社区描述
VB API
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章