Programación General > Visual Basic 6.0 e inferiores

 Lanzar + De 1 Copia Informe De Access

(1/1)

ebolo:
Hola a todos.
Hasta ahora cuando quería lanzar + de 1 copia de un informe de access hacía un bucle y  ya estaba. La impresora estaba conectada a PC directamente.
Pero ahora han cambiado la impresora y han puesto una de red, con lo que se ha hecho ligeramente más lenta la impresión, y la gente se pone nerviosa por tener que esperar 5 segundos.
Claro lo ideal sería lanzar un informe y que salieran tantas copias como queremos. Pero no me sale.
Lo que si puedo hacer es lanzar previsualización del informe y ahí que elijan las copias que quieran, pero claro lo quieren más automático.
Si se os ocurre algo os estaré agradecido.
Saludos.

ebolo:
Hola de nuevo, por fin lo he sacado después de 1 tarde y una mañana de pruebas.

El tema consiste en lanzar el informe siempre como AcViewPreview, luego usar la propiedad PrintOut y Cerrar el informe. Más o menos ésto:

IMPRIMIR MÁS DE UNA COPIA DE UN INFORME DESDE VB
-------------------------------------------------------------------

--- Código: Text ---     Dim obj As Object    Dim strReportName As String        Set obj = GetObject("RutaBd")    strReportName = "NombreInforme"    obj.DoCmd.OpenReport strReportName, acViewPreview    obj.DoCmd.PrintOut , , , , nºcopias    obj.DoCmd.Close acReport, strReportName     obj.Quit    Set obj = Nothing    
Saludos

Navegación

[0] Índice de Mensajes