Çift taraflı yazdırmak için Araştırmalarım sonucunda şöyle bir şey buldum:
Yazdır butonunun olay sekmesine tıklatıldığında olayına;

On Error GoTo Yazdır_Click

Dim strReport As String 'rprİmzakontrolformu'
strReport = "rprİmzakontrolformu"
Dim rpt As Access.Report
Dim prtr As Access.Printer

Set Application.Printer = Nothing
Set prtr = Application.Printer
prtr.Duplex = acPRDPHorizontal

Set rpt = Reports(strReport)
Set rpt.Printer = prtr
prtr.Copies = 1
DoCmd.OpenReport strReport, acNormal
DoCmd.Close
Exit_Yazdır_Click:
Exit Sub

Yazdır_Click:
MsgBox Err.Description
Resume Exit_Yazdır_Click
DoCmd.Close acReport, "rprİmzakontrolformu"
DoCmd.OpenForm "frmKayıtbilgileri"

---

Konuyu cevaplanmış sorulara taşıyabilirz. Teşekkür edderim