¿Como Imprimir informe en access 2003?
Necesito imprimir un informe, que al dar click al boton, me abra directamente la caja imprimir donde yo seleccione la impresora en la cual voy a mandar a imprimir, sin que se imprima el formulario, si no, el informe
Intente de estas maneras
//Imprime pero no quiero que se vea la vista preeeliminar
DoCmd. OpenReport "Reporte de Robo", acViewPreview
DoCmd. RunCommand acCmdPrint
DoCmd. Close acReport, "Reporte de Robo"
//No se ve la vista preeeliminar pero imprime el formulario
DoCmd. OpenReport "Reporte de Robo", acViewPreview,,, acHidden
DoCmd. RunCommand acCmdPrint
DoCmd. Close acReport, "Reporte de Robo"
1 respuesta
¡Gracias! me sirvio DoCmd. SelectObject.
Pero ahora ¿ como hago para que no cambie la pantalla al ejecutar DoCmd.OpenForm ?
quiero se quede en la pantalla de mi formulario principal
Repito mi pregunta la escribí mal
Pero ahora ¿como hago para que no cambie la pantalla al ejecutar DoCmd. SelectObject.?
Quiero se quede en la pantalla de mi formulario principal
Selección de impresora en la impresión de un informe
A ver si te sirve
Gracias lo chekare
no me sirve no puedo resolver mi problema
Si el problema es que con selectobject se te queda en el informe, vuelve a usarlo para volver al formulario. Así " a lo bruto":
Abres el informe oculto (OpenReport... acHidden)
Lo seleccionas (SelectObjet "informe")
Lo imprimes ()
Vuelves al form (SelectObject "formulario")
DoCmd.OpenReport "Reporte", acViewPreview, , , acHidden
DoCmd.SelectObject acReport, "Reporte"
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, "Reporte de Robo"
asi lo puse pero igual aunq lo ponga oculto sale la vista preeliminar
Corrijo código
DoCmd.OpenReport "Reporte", acViewPreview, , , acHidden
DoCmd.SelectObject acReport, "Reporte"
DoCmd.RunCommand acCmdPrint
DoCmd.Close acReport, "Reporte"
Ya esta ya lo resolví
La falla era que tenia que poner en el reporte
Private Sub Report_Activate()
DoCmd.RunCommand acCmdPrint
DoCmd.Close
End Sub
Anda! Pues no se me había ocurrido de esa forma... Una cosa nueva que aprendo.
Un saludo.
