论坛首页 精选版块
移动开发
iOSAndroidQtWP
云计算
IaaSPass/SaaS分布式计算/Hadoop
Java技术
Java SEJava Web 开发Java EEJava其他相关
.NET技术
.NET FrameworkC#.NET分析与设计ASP .NETVB .NET
Web开发
PHPJavaScriptASPHTML(CSS)HTML5Apache
开发语言/框架
DelphiVC/MFCVBC/C++C++ Builder其他开发语言
数据库开发
MS-SQL ServerOraclePowerBuilderInformatica其他数据库开发
硬件/嵌入式开发
嵌入开发(WinCE)驱动开发/核心开发硬件设计单片机/工控汇编语言VxWorks开发
Linux/Unix社区
系统维护与使用区应用程序开发区内核源代码研究区驱动程序开发区CPU和硬件区
 论坛牛人 排行榜 论坛地图 我要发贴
论坛帮助
CSDN论坛 > VB > API

如何得到和设置默认打印机？？？ [问题点数：0分]

更多帖子
空间 博客
awinder
Bbs1
本版专家分：29
Blank
红花 2002年2月 其他开发语言大版内专家分月排行榜第一
Blank
蓝花 2002年8月 其他开发语言大版内专家分月排行榜第三
结帖率 100%
回复次数3
引用 ・ 举报 ・ 楼主
如题
问题点数：0分
CSDN推荐
CSDN今日推荐
更多帖子
空间 博客
saucer
Bbs6
本版专家分：8734
Blank
名人 年度总版至少三次排名前十即授予名人勋章
Blank
状元 2002年 总版技术专家分年内排行榜第一
Blank
榜眼 2003年 总版技术专家分年内排行榜第二
Blank
探花 2004年 总版技术专家分年内排行榜第三
引用 ・ 举报 ・ #1 得分：0
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
更多帖子
空间 博客
李洪根，MS MVP，标准...
Bbs10
本版专家分：123378
Blank
进士 2003年 总版技术专家分年内排行榜第十
Blank
铜牌 2003年7月 总版技术专家分月排行榜第三
Blank
微软MVP 2013年7月 荣获微软MVP称号
2012年7月 荣获微软MVP称号
2006年1月 荣获微软MVP称号
2008年1月 荣获微软MVP称号
2007年1月 荣获微软MVP称号
2005年1月 荣获微软MVP称号
2003年9月 荣获微软MVP称号
Blank
红花 2003年9月 VB大版内专家分月排行榜第一
2003年8月 VB大版内专家分月排行榜第一
2003年7月 VB大版内专家分月排行榜第一
2003年6月 VB大版内专家分月排行榜第一
2003年5月 VB大版内专家分月排行榜第一
2003年4月 VB大版内专家分月排行榜第一
引用 ・ 举报 ・ #2 得分：0
'***************打印机***************************
取得打印机:
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)
更多帖子
空间 博客
李洪根，MS MVP，标准...
Bbs10
本版专家分：123378
Blank
进士 2003年 总版技术专家分年内排行榜第十
Blank
铜牌 2003年7月 总版技术专家分月排行榜第三
Blank
微软MVP 2013年7月 荣获微软MVP称号
2012年7月 荣获微软MVP称号
2006年1月 荣获微软MVP称号
2008年1月 荣获微软MVP称号
2007年1月 荣获微软MVP称号
2005年1月 荣获微软MVP称号
2003年9月 荣获微软MVP称号
Blank
红花 2003年9月 VB大版内专家分月排行榜第一
2003年8月 VB大版内专家分月排行榜第一
2003年7月 VB大版内专家分月排行榜第一
2003年6月 VB大版内专家分月排行榜第一
2003年5月 VB大版内专家分月排行榜第一
2003年4月 VB大版内专家分月排行榜第一
引用 ・ 举报 ・ #3 得分：0
http://support.microsoft.com/default.aspx?scid=kb;EN-US;266767


HOWTO: Set Which Printer Is the System Default Printer
注册
匿名用户不能发表回复！
其他相关推荐
Lodop设置指定打印机打印，避免默认打印机被修改
SET_PRINTER_INDEX(oIndexOrName);按序号或名称指定打印机，选定后禁止手工重选； CreateOneFormPage(); LODOP.SET_PRINT_MODE(&quot;TRYLINKPRINTER_NOALERT&quot;,true);//这个语句设置网络共享打印机连接不通时是否提示一下 if (LODOP.SET_PRINTER_INDEX(0))//这里指定第0号打印机打...
获取并设置机器默认打印机(PB90)
获取并设置机器默认打印机,里面的两个函数主要作用是,获取当前默认打印机,将指定的打印机设置成默认打印机,还原默认打印机
VB读取和设置默认打印机
代码完美优化过，绝对可用， 可以把系统所有打印机显示在列表中，并显示当前默认打印机， 可以设置默认打印机，同时把设置的默认打印机存入 ini 文件中， 可以从ini文件中读取上一次设置的默认打印机 设置为当前默认打印机。
C#修改打印机设置，修改其自定义纸张的默认大小值，获取当前设置的纸张名称和打印方向
本程序为一个测试程序，主要测试ModifyPageSetting.dll的功能。 ModifyPageSetting.dll没有上传源码，有需要给我空间留言。 ModifyPageSetting.dll真实可用，使用方法见测试程序 主要包括3个功能，修改打印机默认设置 获取打印纸名称，获取当前打印方向
PB获取系统打印机
PB使用小技巧:PB程序通过注册表信息获取系统打印机列表,并找出默认打印机,希望对大家有所帮助! 先在窗口中添加一个下拉控件,在窗口的open事件中添加如下代码: 本文章转载至:http://www.52bcnet.com/show.aspx?id=1E32ED83A0839690long　ls_row string　ls_prints[] for　ls_row=　1　to　ddlb_1.Tota
C#控制打印机直接打印，设置默认打印机
C#控制打印机直接打印，设置默认打印机,窗体运用窗体运用窗体运用窗体运用窗体运用
js 打印时如何 选择默认打印机
js JavaScript 默认打印机 打印 不提示 选择 打印机
浏览器如何设置默认打印机的纸张类型
浏览器如何设置默认打印机的纸张类型 浏览器默认打印时是A4打印纸,但是软件大多使用自定义纸张类型， 很多用户发现在打印时设置纸张类型为自定义后，下次打印还需要设置很是麻烦，能否设置一次以后不用修改了呢？ 答案是修改打印机的默认纸张类型为自定义类型即可，下面说说如何设置打印纸的默认纸张类型
pb 设置打印机
最近遇到关于打印的一些问题。 在数据窗口中实现了检索的数据，但需要打印出来，不知如何进行打印窗口设置。我的代码如下： printsetup()//设置打印机属性 dw_tj_result.Object.DataWindow.Print.Preview  = "yes"//进行打印预览 dw_tj_result.Object.DataWindow.Print.Preview.Rulers =
FastReport 指定打印机
frxReport1.Report.PrintOptions.Printer := ‘打印机名称’;一台电脑安装多台打印机，目前默认打印机为A4纸张的打印机，现在需要在 界面上增加一个条码打印按钮，和一个条码打印机设置界面，由操作人员自己设置条码打印机的名称，然后程序点击条码打印机打印的时候，打印机直接取设置的条码打印机~我现在是把条码打印机设置界面，设置的打印机名称添加到fastreport...
关闭
关闭