Merhaba arkadaşlar,
pc ye format atıldığında veya prg başka pc ye taşındığında raporların boyutları değişiyor,
bu rapor boyutlarını bir tabloya kaydetsek, bu sorunlardan kurtulabilirmiyiz?
nasıl bir kod yazmamız gerekir?
![Çözüldü](images/icons/cozuldu.png)
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