Pemilihan pencetak dalam Excel macro

• Isu
• Penyelesaian

Isu

Saya mempunyai fail Excel (2007), di mana saya mencetak helaian melalui 2 pencetak rangkaian.

• Saya telah menulis makro untuk memilih pencetak thename, ia berfungsi dalam PC saya, tetapi tidak semestinya untuk yang lain.
• Saya mahu semua pengguna mempunyai akses kepada pencetak pilihan mereka melalui makro, adakah mungkin?

Penyelesaian

Cuba ini:

 Sub test () Dim DefaultPrinter Sebagai String, Imprimante1 Sebagai String, Imprimante2 Sebagai String 'stok yang digunakan untuk mengatasi masalah ini, tambahkan semula dengan modul DefaultPrinter = Application.ActivePrinter' Printer # 1 pilihan Application.Dialogs (xlDialogPrinterSetup) . Tunjukkan Imprimante1 = Application.AialivePrinter 'Pencetak # 2 pilihan Application.Dialogs (xlDialogPrinterSetup). Tunjukkan Imprimante2 = Application.ActivePrinter' Tunjukkan nama yang tersimpan dalam pembolehubah MsgBox Printer1 MsgBox Printer2 'Reset pencetak lalai: Application.ActivePrinter = DefaultPrinter End Sub 

Terima kasih kepada pikaju untuk hujung ini.