Sayın berduş hocam,
tablodaki bilgileri bu şekilde her raporun içine alsam,
nasıl komut vermem gerek ?
Sub ayarlar()
.Printer.TopMargin = Dlookup ("Ust", "TblRaporBoyut", "RaporAdi='" & Me.Name & "'")
.Printer.BottomMargin = Dlookup ("Alt", "TblRaporBoyut", "RaporAdi='" & Me.Name & "'")
.Printer.LeftMargin = Dlookup ("sol", "TblRaporBoyut", "RaporAdi='" & Me.Name & "'")
.Printer.RightMargin = Dlookup ("sağ", "TblRaporBoyut", "RaporAdi='" & Me.Name & "'")
.Printer.PaperSize = Dlookup ("Boyut", "TblRaporBoyut", "RaporAdi='" & Me.Name & "'")
' .Printer.Orientation = YaziciAyar!Yataydikey
' .Printer.PaperSize = YaziciAyar!Boyut
' .Printer = Application.Printers(YazıcıAdı)
End Sub
Rapor Boyutlarını Sabitleme
Konuyu Okuyanlar: 1 Ziyaretçi