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.