Spausdintuvo pasirinkimas „Excel“ makro

• Problema
• Sprendimas

Problema

Turiu Excel failą (2007), kuriame spausdinu lapus per 2 tinklo spausdintuvus.

• Aš parašiau makrokomandą, kad galėčiau pasirinkti spausdintuvus, jis veikia mano kompiuteryje, bet nebūtinai kitam.
• Noriu, kad visi vartotojai galėtų naudotis savo pasirinktu spausdintuvu per makrokomandą, ar tai įmanoma?

Sprendimas

Išbandyti šį:

 Sub testas () Dim DefaultPrinter Kaip eilutė, Imprimante1 kaip eilutė, Imprimante2 kaip styginių eilutė „Standartas nominalaus prielaida“, „Parametrai“, „Printer“ # 1 pasirinkimas Programos parinktys. Dialogai (xlDialogPrinterSetup) .Show Imprimante1 = Application.ActivePrinter 'Printer # 2 pasirinkimas Application.Dialogs (xlDialogPrinterSetup) .Show Imprimante2 = Application.ActivePrinter' Rodyti kintamuosiuose saugomus pavadinimus MsgBox Printer1 MsgBox Printer2 'Atstatyti numatytąjį spausdintuvą: Application.ActivePrinter = DefaultPrinter End Sub 

Ačiū pikaju už šį patarimą.