kodu aynen raporuna yapıştır
Private Sub Report_Page()
On Error Resume Next
'çizgi kalınlığı
Me.DrawWidth = 35
'çizgi tipi 1 den 6 kadar
Me.DrawStyle = 0
'(sağ, yukarı)-(yükseklik, genişlik), renk, B box kutu demek BF hem kutu hemde içi dolu renkli demek
Me.Line (0, 2500)-(11000, 11500), vbBlack, B
End Sub
meşhur çin atasözü "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz