Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: AxioUK en Octubre 19, 2014, 04:51:03 am

Título: Impresion por Lotes (Archivos HTML)
Publicado por: AxioUK 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:
(http://i1115.photobucket.com/albums/k552/AxioUK/2014-10-1904_41_06-.png)

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
Título: Re:Impresion por Lotes (Archivos HTML)
Publicado por: AxioUK 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
Título: Re:Impresion por Lotes (Archivos HTML)
Publicado por: Jeronimo 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
Título: Re:Impresion por Lotes (Archivos HTML)
Publicado por: coco 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").
Título: Re:Impresion por Lotes (Archivos HTML)
Publicado por: AxioUK en Octubre 25, 2014, 03:28:43 am
Este es el control del Mozilla, http://www.iol.ie/~locka/mozilla/control.htm (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