Standaard printer veranderen naar andere printer vooraleer afdrukken

[ame225]

Beste,

Weet iemand een code om volgende mogelijk te maken?

Ik zou graag een werkblad in excel willen afdrukken op een andere printer dan deze die als standaard is ingesteld.
Dit omdat de afdruk in A3 formaat en in kleur zou moeten afgedrukt worden. Dus graag ook een code die dit instelt.
Na de afdruk zou de vorige printer wel weer als standaard moeten ingesteld staan.

Kan iemand hierop een antwoord geven?

Vriendelijke groeten,

Peter

 

[OctaFish]

Zomaar wat opdrachten waar je mee kunt stoeien:

Dim PrintOrie As Printer, prt As Printer
    Set PrintOrie = Application.Printer
    MsgBox PrintOrie.DeviceName
    For Each prt In Application.Printers
        MsgBox prt.DeviceName
    Next prt
    Set Application.Printer = Application.Printers(0)
    ' Hier je printopdrachten
    Set Application.Printer = PrintOrie

 

[ame225]

Beste,

Ik krijg een compileerfout

Een door de gebruike gedefinieerde gegevenstype is niet gedefineerd.

Hij selecteert: printorie as printer

 

[OctaFish]

Hij kent Printer blijkbaar niet in Excel; ik heb de code uit een Access voorbeeldje gehaald waar hij prima werkt. Voor Excel kun je eens naar dit voorbeeldje kijken. Wellicht dat je er wat aan hebt .