[求助]请帮忙解决一个超菜鸟的问题----[已解决]

frainer

办公室装上EastFax传真软件以后，Word多出了一个虚拟打印机名称为EastFax，用于把Word文档转换成tif传真文件。我希望能在工具栏里面添加一个按钮，点此按钮可以一步实现使用此虚拟打印机完成打印的功能，从而省去每次都要去打印选项里面的下拉菜单挑选打印机的麻烦。

各位大大有什么好的解决办法吗？小弟再次先行谢过~~~

[此贴子已经被作者于2007-2-1 8:36:54编辑过]

dew

虚拟打印机EastFax设为默认打印机即可

frainer

QUOTE:

以下是引用dew在2007-1-31 14:23:26的发言：
虚拟打印机EastFax设为默认打印机即可

 

这样的话要使用正常打印机又要切换回去，我就是不希望在虚拟打印机和正常打印机之间频繁切换所以才希望能够给虚拟打印机单独设置一个按钮阿~~~ [em09]

可以帮忙解决吗？

守柔

请参考：

http://club.excelhome.net/viewthread.php?tid=156953&replyID=332668&skin=0

可以使用ActivePrinter属性设置打印机，打印完毕，再回复原来的名称。

Option Explicit
Sub Example()
    Selection.InsertAfter Application.ActivePrinter
End Sub
Sub myPrint()
    Dim OldPrinter As String, NewPrinter As String
    With Application
        OldPrinter = .ActivePrinter
        NewPrinter = "ABCD"
        .ActivePrinter = NewPrinter
        .PrintOut
        .ActivePrinter = OldPrinter
    End With
End Sub
前一个代码可以知道你当前打印机的名称，修改默认打印机为你需要的打印机名称，运行此宏取得你需要的打印机名称，替换第二个代码中的“ABCD”，然后把第二个宏（myPrint)指定到工具栏即可（自定义）

frainer

Oh yeah!成功解决了[em02]~~！超级感谢守柔版主，您真的帮了偶大忙了，谢谢！[em05]~~~