先测试打印机状态：MsgBox Application.ActivePrinter测试结果形如：HP LaserJet 1020 在 Ne01:最后指定打印机：Application.ActivePrinter = "HP LaserJet 1020 在 Ne01:这样可以在宏中指定非默认打印机打印文件。
这个好像要用的Qbaisc加到excel里面来做吧
