如何在EXECL中不同的活頁中設定不同的印表機？【求助】

[mr.house]

我有兩台印表機，一台是點陣式印表機EPSON570，一台是噴墨印表機EPSON460，
請問我該如何在EXECL中不同的活頁中設定不同的印表機？
例如：活頁1設定點陣式印表機EPSON570，活頁2設定噴墨印表機EPSON460

[leonchou]

最好是選定一台為預設印表機, 才不會影響到其他工作表的列印--
除非確定此活頁簿中只有這兩張工作表(活頁).
例如以 EPSON460 做為預設印表機:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
printer = "EPSON460"
If ActiveSheet.Name = "活頁1" Then printer = "EPSON570"
Application.ActivePrinter = printer
End Sub

它的作用是在此活頁簿列印前判斷工作表名稱, 並設定印表機.
這個巨集請放在該活頁簿的 ThisWorkbook 模組中才能正確運作.
而且僅適用這個活頁簿 (其他活頁簿列印時雖然不會執行到這
個程式, 但可能會使用到這個程式前一次設定的印表機.)