Ç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
Cevapla
Son Düzenleme: 26/09/2021, 09:42, Düzenleyen: fenerli6774.