• Viernes 15 de Noviembre de 2024, 07:32

Autor Tema:  Lanzar + De 1 Copia Informe De Access  (Leído 1366 veces)

ebolo

  • Miembro MUY activo
  • ***
  • Mensajes: 188
    • Ver Perfil
Lanzar + De 1 Copia Informe De Access
« en: Sábado 1 de Octubre de 2005, 10:53 »
0
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

  • Miembro MUY activo
  • ***
  • Mensajes: 188
    • Ver Perfil
Re: Lanzar + De 1 Copia Informe De Access
« Respuesta #1 en: Sábado 1 de Octubre de 2005, 14:37 »
0
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