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ı"