设置EXCEL的默认打印机

系统设置了一个默认打印机，但在EXCEL有些人喜欢用其它的打印机做默认项，这个可以通过EXCEL的workbook的事件来实现

    Private Sub Workbook_BeforePrint(Cancel As Boolean)   
    Application.ActivePrinter = "pdfFactory Pro 在 FPP3:"   
    End Sub   

 

 注意： 1、括号里打印机的名称一定不能错，如果不知道你想设置的打印机名称，可以设置默认打印机后再在EXCEL的立即窗口输入

    ?Application.ActivePrinter  

这样就能获取该打印机的完整全称

转自http://blog.csdn.net/laoyebin/article/details/5302092