SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: ebolo en Sábado 1 de Octubre de 2005, 10:53

Título: Lanzar + De 1 Copia Informe De Access
Publicado por: ebolo en Sábado 1 de Octubre de 2005, 10:53

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.

Título: Re: Lanzar + De 1 Copia Informe De Access
Publicado por: ebolo en Sábado 1 de Octubre de 2005, 14:37

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

1.  
2.     Dim obj As Object
3.     Dim strReportName As String
4.    
5.     Set obj = GetObject("RutaBd")
6.     strReportName = "NombreInforme"
7.     obj.DoCmd.OpenReport strReportName, acViewPreview
8.     obj.DoCmd.PrintOut , , , , nºcopias
9.     obj.DoCmd.Close acReport, strReportName
10.  
11.     obj.Quit
12.     Set obj = Nothing  
13.  
14.  

Saludos