Imprimir un informe y después otro consecutivamente

06/05/2010 - 23:31 por Pascual | Informe spam
Hola compañeros os dejo aquí esta sencilla pregunta que no debe ser difícil
resolver, quiero programar una macro para que al hacer click sobre un botón
me imprima en papel dos informes consecutivamente. es decir. cuando la
impresora termine de imprimir "Informe1", a continuación imprima "Informe2".
¿Es difícil hacer esta tarea??

Muchas gracias de antemano.

Saludos
Pascual

Preguntas similare

Leer las respuestas

#1 JANTHER
06/05/2010 - 23:51 | Informe spam
Hola Pascual

Es muy sencillo lo que necesitas te dejo el codigo al hacer clic

Private Sub Comando127_Click()

DoCmd.OpenReport "Informe1", acViewReport, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "Informe1"
DoCmd.OpenReport "Informe2", acViewReport, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "Informe2"

End Sub

Ten cuidado con los saltos de linea
Saludos a

J. Antonio Hernández B.
Respuesta Responder a este mensaje
#2 Pascual
07/05/2010 - 00:51 | Informe spam
Ok, muchas gracias janther... voy a probarlo a ver que tal,
muchas gracias por responderme compañero.

Saludos
Pascual

*****************************
*****************************
"JANTHER" <janther> escribió en el mensaje de noticias
news:

Hola Pascual

Es muy sencillo lo que necesitas te dejo el codigo al hacer clic

Private Sub Comando127_Click()

DoCmd.OpenReport "Informe1", acViewReport, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "Informe1"
DoCmd.OpenReport "Informe2", acViewReport, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "Informe2"

End Sub

Ten cuidado con los saltos de linea
Saludos a

J. Antonio Hernández B.
Respuesta Responder a este mensaje
#3 Pascual
14/05/2010 - 21:57 | Informe spam
Aunque sea con retraso, decir que hace unos dias comprobé el código
y funciona a la perfección. Así que, como no puede ser de otra forma
muchas gracias por ayudarme.

Saludos
Pascual
"Pascual" escribió en el mensaje de noticias
news:
Ok, muchas gracias janther... voy a probarlo a ver que tal,
muchas gracias por responderme compañero.

Saludos
Pascual

*****************************
*****************************
"JANTHER" <janther> escribió en el mensaje de noticias
news:

Hola Pascual

Es muy sencillo lo que necesitas te dejo el codigo al hacer clic

Private Sub Comando127_Click()

DoCmd.OpenReport "Informe1", acViewReport, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "Informe1"
DoCmd.OpenReport "Informe2", acViewReport, "", "", acNormal
DoCmd.PrintOut acPrintAll, , , acHigh, 1, True
DoCmd.Close acReport, "Informe2"

End Sub

Ten cuidado con los saltos de linea
Saludos a

J. Antonio Hernández B.



email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida