Error al imprimir subformulario filtrado
Publicado por dunedai (3 intervenciones) el 04/06/2019 14:25:05
Hola, mi problema es que cuando filtro el formulario (vía botonera) tengo un botón para imprimir lo filtrado. Me genera un reporte con los datos filtrados correctamente y me los imprime, pero se me queda bloqueado acces. No encuentro el motivo.
Os pongo el código de impresión.
Os pongo el código de impresión.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Impresion_Selectiva_Click()
'On Error Resume Next
Dim NombreInforme As String, Filtro As StringNombreInforme = "INFORME_SOLICITUD"
DoCmd.OpenReport NombreInforme, acViewPreview ', criterio
Reports(NombreInforme).Filter = Me.Filter
'Reports(NombreInforme).FilterOn = True
If MsgBox("Deseas enviar a impresión?", vbYesNo) = vbYes Then
DoCmd.OpenReport NombreInformeEnd If
Me.Volver.SetFocus
End Sub
Valora esta pregunta
0