Kode til specifik printerindstilling

Har brug for hjælp til lidt kode. Følgende kode udskriver et antal rækker fra vores ark, og virker upåklageligt:

---------------
   
Række = Application.WorksheetFunction.Match("ååå", Range("B2:B204"), 0)

    Application.ScreenUpdating = False
    Range("A2:H" & Række).Select
    Selection.PrintOut Copies:=1, Collate:=True
    Range("G2").Select
    Application.ScreenUpdating = True

---------------

Nu har vi på kontoret fået indstillet printerne til som standard at udskrive dobbeltsidet, hvilket er uhensigtsmæssigt med det her dokument. Jeg har forsøgt at optage en makro hvor jeg laver de rigtige indstillinger, men den vil ikke optage indstillingen om enkelt/dobbeltsidet udskrivning.

Kan nogen supplere med den rette kode?

På forhånd tak!