PrintOut van double naar single sided

[maomanna]

ik heb momenteel 1 knop waarmee ik rechtstreeks kan printen.

Helaas is de standaardprinter altijd dubbelzijdig en dat wil ik met de DoCMD.PrintOut verhelpen.

Momenteel heb ik wel dat hij de lade overruled naar handinvoer (paperbin), nu moet ik alleen van de double sided naar single sided gaan.

mijn huidige code:

Private Sub Etiket_Print_Click()
        Dim rpt As Report
DoCmd.OpenReport "Etiketten afdrukken", acViewPreview
Set rpt = Reports("Etiketten afdrukken")
rpt.Printer.PaperBin = acPRBNManual
DoCmd.PrintOut acPrintPage = acPrintAll, , 1, acHigh, 1
DoCmd.Close acReport, "Etiketten afdrukken", acSaveNo

End Sub

Ik heb geen idee waar ik de voorwaarde kan toevoegen, jullie een idee?

 

[dnties]

Schot in het donker:
Misschien door dit toe te voegen?

rpt.Printer.Duplex = acPRDPSimplex

Tijs.

 

[maomanna]

Geweldig! dat werkt!

De code is nu:

Dim rpt As Report
DoCmd.OpenReport "Etiketten afdrukken", acViewPreview
Set rpt = Reports("Etiketten afdrukken")
rpt.Printer.PaperBin = acPRBNManual
rpt.Printer.Duplex = acPRDPSimplex
DoCmd.PrintOut acPrintPage = acPrintAll
DoCmd.Close acReport, "Etiketten afdrukken", acSaveNo

 

[dnties]

Fijn dat je ermee geholpen bent.

Wel nog even deze vraag de status opgelost geven, ajb.

Tijs.

 

[OctaFish]

Ik zou de oude instellingen wel weer terug zetten, lijkt mij wel netjes.

Dim rpt As Report
Dim rpt1 As Variant, rpt2 As Variant
DoCmd.OpenReport "Etiketten afdrukken", acViewPreview
Set rpt = Reports("Etiketten afdrukken")
with rpt
     rpt1 = .Printer.PaperBin 
     rpt2 = .Printer.Duplex  
     .Printer.PaperBin = acPRBNManual
     .Printer.Duplex = acPRDPSimplex
     .DoCmd.PrintOut acPrintPage = acPrintAll
     .Printer.PaperBin = rpt1
     .Printer.Duplex = rpt2
     .DoCmd.Close acReport, .Name
End With