Access - Error al imprimir subformulario filtrado

 
Vista:

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.

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 String
 
    NombreInforme = "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 NombreInforme
    End If
 
    Me.Volver.SetFocus
 
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder