dubbelzijdig afdrukken

[Niels28]

Hallo,

Ik wil van een bestand een werkblad dubbelzijdig afdrukken.
De standaard instelling van de printer is enkelzijdig.
Ik heb de volgende code geprobeerd

Sub Print2zijdig()
Sheets(4).Range("o7").Value = Application.ActivePrinter
Application.ActivePrinter = "\\HLM\PRT-17-RICOH-MPC2800.NDPS.SRV.HELMOND op Ne02:"
ExecuteExcel4Macro _
"PRINT(2,1,2,1,,,,,,,,2,""\\HLM\PRT-17-RICOH-MPC2800.NDPS.SRV.HELMOND op Ne02:"",,TRUE,,FALSE)"
End Sub

Ik krijg 2 lossen bladzijdes
Wat moet ik aanpassen om dubbelzijdig af te drukken?

Niels

 

[Niels28]

Opgelost,

moest bij de paginainstelling de eigenschappen van de printer op dubbelzijdig zetten..