Imprimir varias copias de informes
¿Cómo se puede hacer para imprimir una número determinado de copias de un informe a través de código?
Yo he puesto el siguiente:
DoCmd. OpenReport "PREVISION2", acViewNormal, "MENSUAL2", "", donde mensual 2 es una consulta que solicita el mes que deseo imprimir, aunque a la hora de la verdad, solo me imprime una copia. Después ha eintentado poner la siguiente línea DoCmd. OpenReport "PREVISION2", acViewNormal otra vez para ver si imprimía una segunda vez, pero no respeta el registro que deseo e imprime todos los registros.
Si me puedes ayudar te lo agradecería
Yo he puesto el siguiente:
DoCmd. OpenReport "PREVISION2", acViewNormal, "MENSUAL2", "", donde mensual 2 es una consulta que solicita el mes que deseo imprimir, aunque a la hora de la verdad, solo me imprime una copia. Después ha eintentado poner la siguiente línea DoCmd. OpenReport "PREVISION2", acViewNormal otra vez para ver si imprimía una segunda vez, pero no respeta el registro que deseo e imprime todos los registros.
Si me puedes ayudar te lo agradecería
2 respuestas
Respuesta de madern
1
Ahora te voy a "machacar"... si te pierdes no dudes en remitirme cualquier aclaración...
Para imprimir más de una copia de un informe puedes (que no debes) hacerlo de la siguiente forma:
Abres el informe en vista previa (acViewPreview) para que pida el mes a imprimir... una vez abierto escribe el siguiente código..
DoCmd. SelectObject AcReport, "NombreInforme"
DoCmd. PrintOut,,,, nCopias
Y si ahora quieres cerrarlo..
DoCmd. Close acReport, "NombreInforme"
La variable nCopias indicará las copias a imprimir.. pero tienes que tener en cuenta que lo imprimirá directamente a la impresora establecida por defecto en cada equipo..
Saludos.
Jordi Madern i Pérez
Mataró (Barcelona)
Para imprimir más de una copia de un informe puedes (que no debes) hacerlo de la siguiente forma:
Abres el informe en vista previa (acViewPreview) para que pida el mes a imprimir... una vez abierto escribe el siguiente código..
DoCmd. SelectObject AcReport, "NombreInforme"
DoCmd. PrintOut,,,, nCopias
Y si ahora quieres cerrarlo..
DoCmd. Close acReport, "NombreInforme"
La variable nCopias indicará las copias a imprimir.. pero tienes que tener en cuenta que lo imprimirá directamente a la impresora establecida por defecto en cada equipo..
Saludos.
Jordi Madern i Pérez
Mataró (Barcelona)
Respuesta de bang
1
Es una chapuza, pero te recomiendo lo siguiente:
En el formulario que llama al openreport mete un campo que se llame MES
Ahora modifica tu consulta MENSUAL2 y en lugar del parámetro para que consulte el mes metes: forms!miformulario![mes]
Ahora haces el openreport todas las veces que quieras:
DoCmd. OpenReport "PREVISION2", acViewNormal, "MENSUAL2", "",
Al basarse la consulta en el formulario no te preguntará cada vez y al menos consigues simular la impresión de dos copias...
Suerte.
En el formulario que llama al openreport mete un campo que se llame MES
Ahora modifica tu consulta MENSUAL2 y en lugar del parámetro para que consulte el mes metes: forms!miformulario![mes]
Ahora haces el openreport todas las veces que quieras:
DoCmd. OpenReport "PREVISION2", acViewNormal, "MENSUAL2", "",
Al basarse la consulta en el formulario no te preguntará cada vez y al menos consigues simular la impresión de dos copias...
Suerte.