Raporda kutu çizmek

Merhaba arkadaşlar,
öncelikle herkese sağlıklı ve güzel günler diliyorum. Hazırladığım küçük çaplı çalışmada bir yerde takıldım. Yardımcı olursanız sevinirim.
Çalışmamdaki RprOda raporunda baskı ön izlemede görünen kimliklerin hepsinin tek bir kare içerisinde olmasını istiyorum. Örnek bir resim ekliyorum.
Yardımlarınız için şimdiden teşekkürler.
İyi çalışmalar.

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

Sayın Esrefigit yardımınız için çok teşekkürler. Tam istediğim gibi oldu.
İyi ki varsınız.

Tekrar teşekkürler.