Merhaba Arkadaşlar,
Raporda kenar boşluklarını kodla nasıl sıfırlayabilirim. Her seferinde başka pc kurduğumda yazdırma seçeneklerini sıfırlıyorum.
Kodla daha nasıl pratik yapılabilir. Yardımlarınız için şimdiden teşekkürler.

Formların boyutlarını alttaki kodla belirliyorum siz raporun açıldığında olay yordamına yazarak bir deneyin

Private Sub Form_Load()
On Error Resume Next
    DoCmd.MoveSize , , 5000, 3000
    Me.Caption = "FORM BAŞLIIGI"
HataBul (Err.Number)
End Sub

aşağıdaki kodu yazdır butonuna ekleyip dener misiniz

       DoCmd.OpenReport "raporadı", acViewPreview

With Reports!raporadı.Printer

.TopMargin = 0     'üst aralık

.BottomMargin = 0  'alt aralık

.LeftMargin = 0    'sol aralık

.RightMargin = 0   'sağ aralık

End With

        DoCmd.OpenReport "raporadı", acViewNormal

Teşekkürler denedim oldu. Ancak bunu kaydetme olayı olsa dahi iyi olurdu. her seferinde butona tıklayınca ayar yapıyor.

kodu aşağıdaki ile değiştirip dener misiniz

DoCmd.OpenReport "raporadı", acViewPreview

With Reports!raporadı.Printer

.TopMargin = 0     'üst aralık

.BottomMargin = 0  'alt aralık

.LeftMargin = 0    'sol aralık

.RightMargin = 0   'sağ aralık

End With

DoCmd.Save acReport, "raporadı"

(04/04/2019, 12:22)haliliyas yazdı: kodu aşağıdaki ile değiştirip dener misiniz

Denedim olmadı