¿por que imprime el formulario y no el informe?
Publicado por antonio (114 intervenciones) el 29/09/2011 12:25:22
Hola a todos
He puesto en mi botón de imprimir informe de un determinado formulario el código de abajo y cuando selecciono la impresora pdf que tengo en la oficina, me imprime el formulario.
¿sabría alguien decirme como hago que imprima el registro del informe?
On Error GoTo err_DoCmd
' abrimos el informe en vista previa
DoCmd.OpenReport "detalleterceroincio", acViewPreview
' si queremos ocultar el informe podemos usar esta línea
Reports("detalleterceroincio").Visible = False
' mostramos el cuadro Imprimir ...
DoCmd.RunCommand acCmdPrint
' cerramos el informe
DoCmd.Close acReport, "detalleterceroincio"
On Error GoTo 0
' si este código pertenece a una función
' la siguiente línea sería Exit Function
Exit Sub
err_DoCmd:
'la acción RunCommand se canceló
If Err.Number = 2501 Then
Resume Next
Else ' otro tipo de error
MsgBox "Se ha producido el error " & Err.Number _
& vbCrLf & Err.Description
End If
Gracias
He puesto en mi botón de imprimir informe de un determinado formulario el código de abajo y cuando selecciono la impresora pdf que tengo en la oficina, me imprime el formulario.
¿sabría alguien decirme como hago que imprima el registro del informe?
On Error GoTo err_DoCmd
' abrimos el informe en vista previa
DoCmd.OpenReport "detalleterceroincio", acViewPreview
' si queremos ocultar el informe podemos usar esta línea
Reports("detalleterceroincio").Visible = False
' mostramos el cuadro Imprimir ...
DoCmd.RunCommand acCmdPrint
' cerramos el informe
DoCmd.Close acReport, "detalleterceroincio"
On Error GoTo 0
' si este código pertenece a una función
' la siguiente línea sería Exit Function
Exit Sub
err_DoCmd:
'la acción RunCommand se canceló
If Err.Number = 2501 Then
Resume Next
Else ' otro tipo de error
MsgBox "Se ha producido el error " & Err.Number _
& vbCrLf & Err.Description
End If
Gracias
Valora esta pregunta


0