Berduş hocam ilginiz için çok teşekkür ederim,
galiba bu olay çok çeterfilli, vaz geçelim o zaman.
Kendinize iyi bakın...
Rapor Boyutlarını Sabitleme
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.
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.
sayın alicimri,
Evdeki pc de yazıcı yok,
olayı otomatikleştirmeye çalışıyorum,
her seferinde yeniden rapor ayarı yapmamak gayemiz.
Evdeki pc de yazıcı yok,
olayı otomatikleştirmeye çalışıyorum,
her seferinde yeniden rapor ayarı yapmamak gayemiz.
üst alt sağ sol için girdiğiniz değerler santimetre mi
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
dilerim işinize yarar.
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
Not: sizde neden farklı sonuçlar veriyor bilmiyorum ama raporlar kaydettiğiniz özelliklere göre çıktı vermeli format yada başka bilgisayar olması raporun çıktı özelliklerini değiştirmemelidilerim işinize yarar.
dosyayı deneyebildiniz mi?
Konuyu Okuyanlar: 1 Ziyaretçi