Makro vælg printer

prøv med

dim DefPrinter as string

DefPrinter = Application.Activeprinter
Application.Activeprinter = [nyt printernavn]
sheets([arknavn]).printout copies:=1
Application.Activeprinter = DefPrinter

Koden ændrer defaultprinter til ny printer og resetter til oprindelig defaultprinter.

Hej Tryphon


Tak for dit.

Gider du sende et svar så jeg kan give point ?


MVH

Tony

Naturligvis :-)