Tilbage til standardprinter

Jeg ved ikke om der findes en funktion, der direkte henviser til standardprinteren. Hvis det, du er ude efter, er at skrive ud på en anden printer og så vende tilbage til den oprindelige printer kan du f.eks. bruge følgende kode:

xOriginalPrinter = Application.ActivePrinter
Application.ActivePrinter = "My LaserPrinter"
ActiveSheet.PrintOut
Application.ActivePrinter = xOriginalPrinter

I første linie lægges den aktuelle printers navn over i variablen xOriginalPrinter
I anden linie vælges så en ny printer.
I tredie linie skrives regnearket ud.
I sidste linie sættes printeren tilbage til den oprindelige printer.

Ovenstående kan i øvrigt også klares med kun én programlinie:

ActiveSheet.PrintOut ActivePrinter:="My LaserPrinter"

Denne linie skriver ud til en anden printer UDEN at ændre på printervalget.

Det virker fint tusind tak, hvis du ligger et svar får du dine point.

Ok :0)