Dim prt As accessobject
Set prt = Reports(RaporAdı).Report
With prt
.Printer = Application.Printers(YazıcıAdı)
.Printer.TopMargin = AlanT!Üst
.Printer.BottomMargin = YaziciAyar!Alt
.Printer.LeftMargin = YaziciAyar!Sol
.Printer.RightMargin = YaziciAyar!Sağ
.Printer.PaperSize = YaziciAyar!Boyut
.Printer.Orientation=YaziciAyar!Yataydikey
.Printer.PaperSize = YaziciAyar!Boyut
End With
bu arada ben de @alicimri hocam gibi biliyorum raporu tasarlarken zaten yazıcı çıktısına göre ayar yapılıyor bilgisayardan bağımsız