Hola, estoy programando un mismo botón para imprimir tres distintos reportes según sea el caso, es decir quiero que según sea el List Box Visible que se encuentre en ese momento True que sea ese el que imprima, si no hay ningún activo pues que ese botón se mantenga bloqueado.  Para empezar por el momento tengo este código el cual me da error de compilación dice que no se ha definido etiqueta.
[CODEPrivate Sub CmdImpSegunCaso_Click()
If Me.LstInvPrest.Visible = False Or Me.LstInvPormenor.Visible = False And Me.LstInvgral.Visible = True Then
    On Error GoTo err_PrintOut
        ' paramos la actualización de pantalla
        Application.Echo False
        ' abrimos el informe
        DoCmd.OpenReport "IMPRIMIR01A_ConInvGraLibros", acViewPreview
        ' imprimimos 1 copias,
        ' en calidad borrador
        DoCmd.PrintOut acPages, , , acDraft, 1
        ' cerramos el informe
        DoCmd.Close acReport, "IMPRIMIR01A_ConInvGraLibros"
        ' activamos la actualización de pantalla
        Application.Echo True
    On Error GoTo 0
    Exit Sub
 
ElseIf Me.LstInvgral.Visible = False Or Me.LstInvPormenor.Visible = False And LstInvPrest.Visible = True Then
    On Error GoTo err_PrintOut
        Application.Echo False
        DoCmd.OpenReport "IMPRIMIR01B_ConInvPresLibros", acViewPreview
        DoCmd.PrintOut acPages, , , acDraft, 1
        DoCmd.Close acReport, "IMPRIMIR01B_ConInvPresLibros"
        Application.Echo True
    On Error GoTo 0
Exit Sub
 
ElseIf Me.LstInvgral.Visible = False Or Me.LstInvPrest.Visible = False And LstInvPormenor.Visible = True Then
       On Error GoTo err_PrintOut
        Application.Echo False
        DoCmd.OpenReport "IMPRIMIR01C_ConInvPormLibros", acViewPreview
        DoCmd.PrintOut acPages, , , acDraft, 1
        DoCmd.Close acReport, "IMPRIMIR01C_ConInvPormLibros"
        Application.Echo True
    On Error GoTo 0
    Exit Sub
 
End If
 
End Sub][/CODE]
De antemano muy agradecido por cualquier ayuda[EMAIL="[email protected]"][email protected][/EMAIL]
Saludos!!! 
  
 

