3.2.2.12 SetDefaultPrinter 方法
功能描述：
设置指定打印机为系统默认的打印机，并返回当前系统默认打印机名。通过返回的原来默认打印机名，您可以在使用完后，再把默认打印机恢复。
使用注意：需要在实际打印程序运行前设置默认打印机，才会使此程序的默认打印机为指定值，如打印程序已运行，则需要用打印程序内置的方法设置。例如：通过程序调用Word打印，需要在Word对象创建前设置默认打印机，才会生效；如Word对象已经创建了，则可以用Word软件自带的接口设置活动打印机方法来设置。
方法语法：
|
Function SetDefaultPrinter( ByVal s_PrinterName As String, ByRef s_OriginalName As String ) As Boolean |
方法参数：
|
参数名 |
类型 |
描述 |
|
s_PrinterName |
String |
打印机名 |
|
s_OriginalName |
String |
返回类型，原来的打印机名 |
返回值：
|
类型 |
描述 |
|
Boolean |
true：成功 false：失败 |
调用示例：
|
'设置默认打印机为eWebPrinter，并返回原来的打印机名，便于使用完后恢复 Dim s_OriginalName As String b = obj.SetDefaultPrinter("eWebPrinter", s_OriginalName)
'实际的一系列打印相关操作 wordapp = CreateObject("Word.Application") '创建Word对象 wordapp.Documents.Open "c:\1.doc" '打开文档 wordapp.ActiveDocument.PrintOut '打印文档 wordapp.Quit '退出
'恢复原来打印机为默认 b = obj.SetDefaultPrinter(s_OriginalName, s_OriginalName) |