Autor Tema: Impresion por Lotes (Archivos HTML)  (Leído 3724 veces)

0 Usuarios y 1 Visitante están viendo este tema.

AxioUK

  • Megabyte
  • ***
  • Mensajes: 108
  • Reputación: +17/-1
  • Modulos GSL
    • Ver Perfil
Impresion por Lotes (Archivos HTML)
« en: Octubre 19, 2014, 04:51:03 am »
Estimados:
    Estoy trabajando en una App para control de Calibraciones de equipos, guarda pocos datos, y se requiere que los informes sean generados en HTML para reducir espacio al mínimo, pues si bien son pocos datos por equipo, son entre 200 y 300 equipos que se ingresan mensualmente, por lo que la se genera la misma cantidad de reportes. he conseguido sin problemas generar los reportes "por lotes" con un bucle, lo que no he conseguido es realizar una impresion por lotes de los mismos, probe con WebBrowser:
Código: (VB) [Seleccionar]
MZweb.Navigate sFileName
MZweb.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

pro me dá el siguiente error:


y con :
Código: (VB) [Seleccionar]
ShellExecute hwnd, "print", "C:\Archivo.HTML", vbNullString, App.Path, 0 imprime el código como un TXT...

Alguien conoce alguna forma de ir abriendo e imprimiendo una serie de archivos HTML, o simplemente enviarlos a imprimir tal como se haría en un navegador (sin que imprima el código html) y de preferencia sin cuadros de dialogo...

Saludos Cordiales

_____________________________
Sé un poco de todo y mucho de nada... ;)

AxioUK

  • Megabyte
  • ***
  • Mensajes: 108
  • Reputación: +17/-1
  • Modulos GSL
    • Ver Perfil
Re:Impresion por Lotes (Archivos HTML)
« Respuesta #1 en: Octubre 23, 2014, 11:54:03 pm »
Solucionado reemplazando el WebBrowser control del Internet Explorer por el de Mozilla....
no sé por qué, pero una vez más Internet Explorer no funciona para mí (que de Navegadores prefiero el Opera o el Chrome)....

Código: (VB) [Seleccionar]
Private Sub cmdPrintAll_Click()
'On Error Resume Next
lblMsg.Caption = " Imprimiendo Certificados..."
picMsg.Visible = True
picMsg.Refresh
  fnCreateCerts
For iRow = 1 To lstFiles.ListCount - 1
  lstFiles.ListIndex = iRow
  mzWeb.Navigate lstFiles.Text
  DoEvents
  mzWeb.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER    '<----- Ahora Funciona OK!
Next iRow
ucProg.Visible = False
picIcon.Visible = True
lblMsg.Caption = "   OK!"

End Sub

Saludos Cordiales
« última modificación: Octubre 23, 2014, 11:57:20 pm por AxioUK »

_____________________________
Sé un poco de todo y mucho de nada... ;)

Jeronimo

  • Gigabyte
  • ****
  • Mensajes: 402
  • Reputación: +33/-2
    • Ver Perfil
Re:Impresion por Lotes (Archivos HTML)
« Respuesta #2 en: Octubre 24, 2014, 09:04:42 am »
Qué bueno que encontraste la solución. Yo no tenía idea.
Muchas gracias por compartirlo.

Jerónimo

coco

  • Administrador
  • Terabyte
  • *****
  • Mensajes: 548
  • Reputación: +63/-3
    • Ver Perfil
Re:Impresion por Lotes (Archivos HTML)
« Respuesta #3 en: Octubre 24, 2014, 10:21:41 pm »
Que control del "mozilla"? Tiene que ser alguno "de un tercero" ya que mozilla no lo ofrece junto a su paquete.
PD: No es la mejor idea guardar data en html (pesa bastante comparado a escribir "registros").
'-     coco
(No me cabe: Java, Python ni Pascal)
SQLite - PIC 16F y 18F - ARM STM32 - ESP32 - Linux Embebido - VB6 - Electronica - Sonido y Ambientacion

AxioUK

  • Megabyte
  • ***
  • Mensajes: 108
  • Reputación: +17/-1
  • Modulos GSL
    • Ver Perfil
Re:Impresion por Lotes (Archivos HTML)
« Respuesta #4 en: Octubre 25, 2014, 03:28:43 am »
Este es el control del Mozilla, http://www.iol.ie/~locka/mozilla/control.htm

En cuanto a crear/imprimir los HTML, es simplemente porque los Clientes requieren copias de los reportes de Calibración, verás entonces que no les enviaré la DB o parte de ella, sino los reportes en HTML/PDF vía mail ó una copia impresa de los mismos. La Información Original estará toda guardada en una flamante DB Firebird... :thumbup:

Saludos Cordiales
« última modificación: Octubre 25, 2014, 03:34:07 am por AxioUK »

_____________________________
Sé un poco de todo y mucho de nada... ;)