Access - ¿por que imprime el formulario y no el informe?

   
Vista:

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

¿por que imprime el formulario y no el informe?

Publicado por Esperanza Pérez eperezmario@terra.es (5 intervenciones) el 29/09/2011 14:21:38
Hola, yo tengo en mi programa las siguientes instrucciones y funciona bien, es decir, imprime el informe por la impresora que tengo predeterminada (uso access 2010):

Private Sub Imprimir_Listado_Click()
' Sacamos el listado que hay en la base de datos y que tira de la tabla Temporal Datagrid

Dim wdapp As Object

'modo de presentar la informacion.
Const acViewNormal = 0 'modo impresion
Const acViewDesing = 1 'modo diseño
Const acViewPreview = 2 'modo preview

'creamos el objeto
Set wdapp = CreateObject("Access.Application")

'abrimos la B.D. que nos interesa
wdapp.OpenCurrentDatabase "\\Servidor\Esperanza\Consultas.accdb"

'Lanzamos el informe que nos interesa
wdapp.DoCmd.OpenReport "Informe1", acViewNormal

Set wdapp = Nothing

End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar