AccessTr.neT

Berduş hocam ilginiz için çok teşekkür ederim,
galiba bu olay çok çeterfilli, vaz geçelim o zaman.
Kendinize iyi bakın...

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.

sayın alicimri,
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

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ştirmemeli
dilerim işinize yarar.

dosyayı deneyebildiniz mi?