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!!!