Kolay gelsin. Herkese iyi çalışmalar.
İki sayfalık herhangi bir raporu çift taraflı yazdırma kodu olan var mı?
Varsa paylaşabilir mi?
İki Taraflı Yazdırma
Teşekkür ederim.
Ben arkalı önlü yazdırmak istiyorum.
Ben arkalı önlü yazdırmak istiyorum.
Son Düzenleme: 27/08/2021, 13:28, Düzenleyen: fenerli6774.
(Sebep: Düzeltme)
Bazı yazıcıların o özelliği var. Yazıcın da o özellik varsa arkalı önlü yazar.
https://accesstr.net/konu-cift-tarafli-y...B6nl%C3%BC
Bir de bu konuya bak.
https://accesstr.net/konu-cift-tarafli-y...B6nl%C3%BC
Bir de bu konuya bak.
Ç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
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
Son Düzenleme: 26/09/2021, 09:42, Düzenleyen: fenerli6774.
çözümü paylaştığınız için teşekkürler
iyi çalışmalar
iyi çalışmalar
Konuyu Okuyanlar: 1 Ziyaretçi