Access - Codigo

Hola amigos tengo este codigo para imprimi lineas en un informe en detalle...el problema es que no imprime las lineas horizontales no doy con ellas..
Haber si ustedes ven algo..

Private Sub Report_Page()
'Definimos los vertices del cuadro envolvente
PosX1 = Me.Etiqueta42.Left
PosY1 = Me.Etiqueta42.Top
PosX2 = Me.Etiqueta56.Left + Me.Etiqueta56.Width
PosY2 = Me.ScaleHeight - Me.Section(0).Height
'Parametrizamos el informe
Me.DrawStyle = 0
Me.FillColor = 0
Me.FillStyle = 1
Me.DrawWidth = 6
'Creamos el cuadro
PosY2 = PosY1 * 2.27
Me.Line (PosX1 - Me.DrawWidth, PosY1 - Me.DrawWidth)-(PosX2 + Me.DrawWidth, PosY2 + Me.DrawWidth), 0, B

'Linea que separa las cabeceras
DatoN = Me.Etiqueta52.Left - Me.DrawWidth / 2
Me.Line (DatoN, PosY1)-(DatoN, PosY2)

'Lineas verticales
'PosY2 = DatoN - PosY1 * 6.8
Me.DrawWidth = 2 'Modificamos el ancho del trazo

DatoN = Me.Etiqueta43.Left 'Modificamos la posicion horizontal
Me.Line (DatoN, PosY1)-(DatoN, PosY2)
DatoN = Me.Etiqueta53.Left 'Modificamos la posicion horizontal
Me.Line (DatoN, PosY1)-(DatoN, PosY2)
DatoN = Me.Etiqueta44.Left ' Modificamos la posicion horizontal
Me.Line (DatoN, PosY1)-(DatoN, PosY2)
DatoN = Me.Etiqueta45.Left ' Modificamos la posicion horizontal
Me.Line (DatoN, PosY1)-(DatoN, PosY2)
DatoN = Me.Etiqueta54.Left ' Modificamos la posicion horizontal
Me.Line (DatoN, PosY1)-(DatoN, PosY2)
DatoN = Me.Etiqueta46.Left ' Modificamos la posicion horizontal
Me.Line (DatoN, PosY1)-(DatoN, PosY2)
DatoN = Me.Etiqueta55.Left ' Modificamos la posicion horizontal
Me.Line (DatoN, PosY1)-(DatoN, PosY2)
DatoN = Me.Etiqueta56.Left ' Modificamos la posicion horizontal
Me.Line (DatoN, PosY1)-(DatoN, PosY2)

'Esta seccion imprime las lineas horizontales del subreport 1
PosX2 = Me.Etiqueta42.Left - Me.DrawWidth
Me.DrawWidth = 2
M_Conta = 0
For DatoN = Me.Section(0).Height To Me.ScaleHeight - Me.Section(0).Height Step Me.Sub1.Report.Section(0).Height
Me.Line (PosX1, DatoN)-(PosX2, DatoN)
M_Conta = M_Conta + 1: If M_Conta = 16 Then Exit For
Next DatoN

'Esta seccion imprime las lineas horizontales del subreport 2
PosX1 = PosX2
PosX2 = Me.Etiqueta56.Left + Me.Etiqueta56.Width
M_Conta = 0
For DatoN = Me.Section(0).Height To Me.ScaleHeight - Me.Section(0).Height Step Me.Sub2.Report.Section(0).Height
Me.Line (PosX1, DatoN)-(PosX2, DatoN)
M_Conta = M_Conta + 1: If M_Conta = 16 Then Exit For
Next DatoN
End Sub

S@ludos

SABES, PERDONAME PERO NI SIQUIERA VI EL CODIGO

LO QUE PASA ES QUE A MI ME PASABA ALGO PARECIDO Y NO ME IMPRIMIA LAS LINEAS

LO QUE PASA ES QUE EN MI CASO, LAS LINEAS SE IMPRIMIAN DEPENDIENDO DE LA CALIDAD DE IMPERSION QUE LE DABA

ASI QUE ANTES QUE NADA, INDICANOS SI EN TODAS LAS CALIDADES DE TU IMPRESORA, NO LAS IMPRIME

SI ES ASI, TE MIRO EL CODIGO

Asi es con la calidad que sea no quiere es decir se que el error estaba en el codigo.. ya lo resolvi pero tengo otro lio con otro parecido...pero este esta un poco mas complicado...

S@ludos