+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Rapor Boyutlarını Sabitleme (/konu-rapor-boyutlarini-sabitleme.html)
RE: Rapor Boyutlarını Sabitleme - ates2014 - 03/11/2020
Berduş hocam ilginiz için çok teşekkür ederim,
galiba bu olay çok çeterfilli, vaz geçelim o zaman.
Kendinize iyi bakın...
RE: Rapor Boyutlarını Sabitleme - alicimri - 03/11/2020
sayın @ates2014
Merak ettim, Akşam evde evde tasarımını yaptığınız raporun boyut değerlerimi not alın, işyerinizde bu değerleri kontrol edin.
Ofis Programlarında versiyon değişikliği var mı?
Değişik yazıcılarda bazen kaymalar olabiliyor.
RE: Rapor Boyutlarını Sabitleme - ates2014 - 03/11/2020
sayın alicimri,
Evdeki pc de yazıcı yok,
olayı otomatikleştirmeye çalışıyorum,
her seferinde yeniden rapor ayarı yapmamak gayemiz.
RE: Rapor Boyutlarını Sabitleme - berduş - 03/11/2020
üst alt sağ sol için girdiğiniz değerler santimetre mi
RE: Rapor Boyutlarını Sabitleme - berduş - 03/11/2020
ilk olarak belirteyim hem gerçek yazıcı olmadığı hem de nasıl bir çıktı görmek istediğinizi bilmediğimden aşağıdaki çalışmanın işinize yarayıp yaramayacağını bilmiyorum ama en azından bir fikir verir diye düşünüyorum.
yazdırma kodu
RaporAdi = Me.RaporAdi
YazıcıAdi = Me.BelirliYaziciLinki
DoCmd.OpenReport RaporAdi, acViewPreview
With Reports(RaporAdi)
.Printer = Application.Printers(YazıcıAdi)
.Printer.TopMargin = Me.Ust * 567 'Twips-Santimetre dönüşümü
.Printer.BottomMargin = Me.Alt * 567 '
.Printer.LeftMargin = Me.Sol * 567
.Printer.RightMargin = Me.Sag * 567
.Printer.PaperSize = Me.Boyut
.Printer.Orientation = Me.Dikey_Yatay
' .Printer.PaperSize = YaziciAyar!Boyut
End With
DoCmd.OpenReport RaporAdi, acViewNormal
dilerim işinize yarar.
RE: Rapor Boyutlarını Sabitleme - berduş - 04/11/2020
dosyayı deneyebildiniz mi?