Foros del Web » Soporte técnico » Ofimática »

Botón imprimir para tres casos distintos en el mismo formulario access

Estas en el tema de Botón imprimir para tres casos distintos en el mismo formulario access en el foro de Ofimática en Foros del Web. 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 ...
  #1 (permalink)  
Antiguo 30/12/2014, 18:18
Avatar de edmund8  
Fecha de Ingreso: diciembre-2012
Mensajes: 2
Antigüedad: 6 años, 9 meses
Puntos: 0
Pregunta Botón imprimir para tres casos distintos en el mismo formulario access

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

Etiquetas: access, vba
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 06:47.