Nyomtató kiválasztása Excel makróban

• Probléma
• Megoldás

Probléma

Van egy Excel-fájl (2007), amelyben két hálózati nyomtatón keresztül nyomtatok lapokat.

• Írtam egy makrót, hogy kiválasszam a nyomtatókat, a PC-ben működik, de nem feltétlenül egy másikra.
• Azt akarom, hogy minden felhasználó hozzáférjen a választott nyomtatóhoz egy makró segítségével, ez lehetséges?

Megoldás

Próbáld ezt:

 Sub teszt () Dim DefaultPrinter karakterláncként, Imprimante1 karakterláncként, Imprimante2 Stringként „Stocke le nom de l'imprimante par défaut, pour la remettre en fin de modul DefaultPrinter = Application.ActivePrinter” # 1 választás Application.Dialogs (xlDialogPrinterSetup) .Show Imprimante1 = Application.ActivePrinter '2-es választás Application.Dialogs (xlDialogPrinterSetup) .Show Imprimante2 = Application.ActivePrinter' Változókban tárolt nevek megjelenítése MsgBox Printer1 MsgBox nyomtató2 'Alapértelmezett nyomtató visszaállítása: Application.ActivePrinter = DefaultPrinter vége 

Köszönjük a pikaju-nak ezt a tippet.