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
aşağıdaki kodu yazdır butonuna ekleyip dener misiniz