Výběr tiskárny v makru aplikace Excel

• Problém
• Řešení

Problém

Mám soubor Excel (2007), ve kterém tisknu listy přes 2 síťové tiskárny.

• Napsal jsem makro, abych vybral tiskárny, funguje to v mém PC, ale ne nutně pro další.
• Chci, aby všichni uživatelé měli přístup k tiskárně podle svého výběru prostřednictvím makra, je to možné?

Řešení

Zkuste to:

 Sub test () Dim DefaultPrinter As String, Imprimante1 As String, Imprimante2 As String 'Skladem nominální hodnota jako dekomprimace, po úpravě modulu DefaultPrinter = Application.ActivePrinter' Printer # 1 volba Application.Dialogs (xlDialogPrinterSetup) .Show Imprimante1 = Application.ActivePrinter 'Tiskárna # 2 volba Application.Dialogs (xlDialogPrinterSetup) .Show Imprimante2 = Application.ActivePrinter' Zobrazit názvy uložené v proměnných MsgBox Printer1 MsgBox Printer2 'Obnovit výchozí tiskárnu: Application.ActivePrinter = DefaultPrinter End Sub 

Díky pikaju za tento tip.