'Copiar y pegar este código detrás del informe.


Private Sub Report_Page()
'Al paginar

'Reply-To: "Eduardo Olaz" <eduardo@olaz.net>
'From: "Eduardo Olaz" <eduardo@olaz.net>
'Subject: Re: Informes más profesionales
'Newsgroups: microsoft.public.es.Access

        Const conIzquierda As Long = 50
        Const conDerecha As Long = 9000
        Const conArriba As Long = 100
        Const conAbajo As Long = 12000
        Const conEstrecho As Long = 1
        Const conAncho As Long = 50
        Const conLineas As Long = 40

        Dim i As Long
        Dim Y As Long
        Dim X As Long
        Dim lngIncremento As Long

        lngIncremento = (conAbajo - conArriba) / conLineas

        DrawWidth = conEstrecho
        Line (conIzquierda, conArriba)-(conIzquierda, conAbajo)
        DrawWidth = conAncho
        Line (conIzquierda, conAbajo)-(conDerecha, conAbajo)
        DrawWidth = conEstrecho
        Line (conDerecha, conAbajo)-(conDerecha, conArriba)
        DrawWidth = conAncho
        Line (conDerecha, conArriba)-(conIzquierda, conArriba)

        DrawWidth = conEstrecho
        For i = 1 To conLineas - 1
            Y = conArriba + i * lngIncremento
            Line (conIzquierda, Y)-(conDerecha, Y)
        Next i
        X = conIzquierda + (conDerecha - conIzquierda) / 8
        Line (X, conArriba)-(X, conAbajo)
        X = conIzquierda + (conDerecha - conIzquierda) / 2
        Line (X, conArriba)-(X, conAbajo)
        X = conDerecha - (conDerecha - conIzquierda) / 4
        Line (X, conArriba)-(X, conAbajo)
        DrawWidth = conAncho / 2
        'También se puede dibujar un rectángulo con la opción B
        Line (conIzquierda, conAbajo + 500)-(conDerecha, conAbajo + 1000), , B
        
End Sub