Imprimir página | Cerrar ventana

REPORTES: Papel pijama en informes

Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Tus Funciones Favoritas & Aportaciones & Artí­culos
Descripción del foro: Para publicar código interesante, aportaciones y artículos
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=77323
Fecha de impresión: 08/Abril/2020 a las 05:33


Tema: REPORTES: Papel pijama en informes
Publicado por: admin
Asunto: REPORTES: Papel pijama en informes
Fecha de publicación: 14/Agosto/2013 a las 20:49
Emilio Sancha 2004

Esta es una rutina para crear el clasico efecto "papel pijama" en los informes.

'*******************************************************************************

'* PapelPijama

'* cambia el color de registros alternos de un informe

'* Argumentos:

'* uso: Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)

'*      PapelPijama

'*      End Sub

'* ESH 04/11/04 13:49

'*******************************************************************************

 

 

Sub PapelPijama()

    Const VerdeClaro = 11645283

   

    On Error GoTo PapelPijama_TratamientoErrores

   

    If Me.CurrentRecord Mod 2 = 0 Then

        Me.Section(acDetail).BackColor = VerdeClaro

    Else

        Me.Section(acDetail).BackColor = vbWhite

    End If

   

PapelPijama_Salir:

    On Error GoTo 0

    Exit Sub

   

PapelPijama_TratamientoErrores:

   

    MsgBox "Error " & Err.Number & " en proc.: PapelPijama de Documento VBA: Report_Aplicaciones (" & Err.Description & ")"

    GoTo PapelPijama_Salir

   

End Sub         ' PapelPijama




Imprimir página | Cerrar ventana