aşağıda bazı yazıcı ayarları var düzenleme verilerini tablodan alabilirler ama çalışabilmesi için ya tablodaki verilerin accessin anlayacağı yapıya dönüştürülmesi yada çalışma anında if yada case gibi kontrol komutlarıyla accessin anlayacağı komutlara çevrilmesi gerekir

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