Hacer un recuadro en un informe/formulario de access

hola, quiero poner un recuadro en toda la hoja del informe, que coja el encabezado, detalle y pie de pagina, he visto este código aquí en el foro:

Sub DibujarLínea()
Dim rpt As Report, lngColor As Long
Dim sngArriba As Single, sngIzquierda As Single
Dim sngAncho As Single, sngAlto As Single
Set rpt = Reports!Informe1
' Establecer escala a píxeles.
rpt.ScaleMode = 3
' Borde interior superior.
sngArriba = rpt.ScaleTop + 5
' Borde interior izquierdo.
sngIzquierda = rpt.ScaleLeft + 5
' Ancho del borde interior.
sngAncho = rpt.ScaleWidth - 10
' Alto del borde interior.
sngAlto = rpt.ScaleHeight - 10
' Color rojo.
entColor = RGB(255, 0, 0)
' Dibujar la línea como un cuadro.
rpt.Line (sngArriba, sngIzquierda)-(sngAncho, sngAlto), entColor, B
End Sub
Private Sub Report_Page()
DibujarLínea
End Sub

el link es:

http://www.todoexpertos.com/categorias/tecnologia-e-internet/bases-de-datos/microsoft-access/respuestas/226279/recuadro-para-informe

la cosa es que el lateral derecho no me sale y también me gustaría saber como modificar el grosor de la linea

gracias