Tulostimen valinta Excel-makroissa

• Ongelma
• Ratkaisu

Ongelma

Minulla on Excel-tiedosto (2007), jossa tulostan arkkia 2 verkkotulostimen kautta.

• Olen kirjoittanut makron, jonka avulla voit valita tulostimet, se toimii tietokoneessani, mutta ei välttämättä toiselle.
• Haluan, että kaikilla käyttäjillä on pääsy heidän valitsemaansa tulostimeen makron kautta, onko se mahdollista?

Ratkaisu

Kokeile tätä:

 Sub-testi () Dim DefaultPrinter-merkkijono merkkijonona, Imprimante1: na merkkijonona, Imprimante2 String-muodossa "Stocke le nom de l'imprimante par défaut, pour la remettre en fin de module DefaultPrinter = Application.ActivePrinter" Tulostin # 1 valinta Application.Dialogs (xlDialogPrinterSetup) .Show Imprimante1 = Application.ActivePrinter 'Printer # 2 valinta Application.Dialogs (xlDialogPrinterSetup) .Show Imprimante2 = Application.ActivePrinter' Näytä muuttujiin tallennetut nimet MsgBox Printer1 MsgBox Printer2 'Palauta oletustulostin: Application.ActivePrinter = DefaultPrinter End Sub 

Kiitos pikaju tästä vinkistä.