Kolay gelsin. Herkese iyi çalışmalar.
İki sayfalık herhangi bir raporu çift taraflı yazdırma kodu olan var mı?
Varsa paylaşabilir mi?
Teşekkür ederim.
Ben arkalı önlü yazdırmak istiyorum.
Ç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
çözümü paylaştığınız için teşekkürler
iyi çalışmalar