aqui les dejo el codigo que generé del reporte en html y la imagen de lo que quisiera poder hacer con gb.report que tiene un pequeño error en la tabla carcteristicas pero basicamente es lo que quiero mostrar :
If CInt(modulofunciones.nivel) < 2 Then
consultareport = modulofunciones.conexion.Exec("select tblequipos.descrip,tblequipos.cod_refe, tblequipos.status,tblequipos.motivo,tblequipos.cod_equipo from tblequipos where 1=1 " & cadena1 & cadena2 & cadena3 & " ")
Else
consultareport = modulofunciones.conexion.Exec("select tblequipos.descrip,tblequipos.cod_refe, tblequipos.status,tblequipos.motivo,tblequipos.cod_equipo from tblequipos where tblequipos.cod_espe=" & modulofunciones.codigo_especialidad & " " & cadena1 & cadena2 & cadena3 & " ")
Endif
' primera parte del reporte - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Open "/tmp/reporte.html" For Create As #Reporte
Reporte = Open "/tmp/reporte.html" For Create
Print #Reporte, "<html>"
'
Print #Reporte, " <head><title>Reporte de equipos-</title></head>"
Print #Reporte, " <body topmargin = '2' leftmargin='2'>"
Print #Reporte, " <table align = 'center' width = 1200 border = '2' cellpadding='0' cellspacing='0'>"
'
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center' width=100><b> <IMG SRC='/home/eduardo/Escritorio/laboratorios/iconos/iutai.jpeg' width=100 height=100 ></b> </td>"
Print #Reporte, " <td align = 'center'width= 800><b> Republica Bolivariana de Venezuela</b> <br><b> Ministerio del Poder Popular para la Educacion</b><br><b> Instituto Universitario de Tecnologia Agro-Industrial</b></td>"
Print #Reporte, " </tr>"
Print #Reporte, " </table>"
Print #Reporte, " <br> "
Print #Reporte, " <br> "
'
'
'
For i = 0 To consulta.Count - 1
'
vector[i] = consulta[4]
'
'
Print #Reporte, " <table align = 'center' width = 1200 border = '2' cellpadding='0' cellspacing='0'>" ' inicio tabla mayor
Print #Reporte, " <tr bgcolor='#CCCC99'>" 'inicio fila mayor
Print #Reporte, " <td align = 'center'>" "" ' inicio columna mayor
Print #Reporte, " <table align = 'center' width = 1200 border = '2' cellpadding='0' cellspacing='0'>"
Print #Reporte, " <caption><h2>EQUIPO</h2></caption>"
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center' width= 300><b>DESCRIPCION</b></td>"
Print #Reporte, " <td align = 'center'width= 800><b>CODIGO DE REFERENCIA</b></td>"
Print #Reporte, " <td align = 'center'width= 380><b>ESTATUS</b></td>"
Print #Reporte, " <td align = 'center'width= 200><b>MOTIVO DE ANULACION</b></td>"
Print #Reporte, " </tr>"
Print #Reporte, " <tr>"
'
'
'
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center'>" & consulta[0] & " </td>"
Print #Reporte, " <td align = 'center'>" & consulta[1] & " </td>"
If CInt(consulta[2]) = 0 Then
Print #Reporte, " <td align = 'center'> ACTIVO </td>"
Else
Print #Reporte, " <td align = 'center'> ANULADO </td>"
Endif
Print #Reporte, " <td align = 'center'>" & consulta[3] & " </td>"
Print #Reporte, " <tr>"
consulta.MoveNext
'
Print #Reporte, " </table>"
'
' 'segunda parte del reporte-----------------------------------------------------------------------
'
' 'SEGUNDA TABLA-------------------------------------------------------------
'
If CInt(modulofunciones.nivel) < 2 Then
consulta1 = modulofunciones.conexion.Exec("select tbldispositivos.descrip,to_char(tblequipodisp.fecha_regi,'DD/MM/YYYY'),tbldispositivos.status,tbldispositivos.motivo from tbldispositivos inner join tblequipodisp on(tbldispositivos.cod_dispositivo=tblequipodisp.cod_dispositivo) where tblequipodisp.cod_equipo=" & CInt(vector[i]) & " order by tbldispositivos.descrip")
Else
consulta1 = modulofunciones.conexion.Exec("select tbldispositivos.descrip,to_char(tblequipodisp.fecha_regi,'DD/MM/YYYY'),tbldispositivos.status,tbldispositivos.motivo from tbldispositivos inner join tblequipodisp on(tbldispositivos.cod_dispositivo=tblequipodisp.cod_dispositivo) where tblequipodisp.cod_equipo=" & CInt(vector[i]) & " and tbldispositivos.cod_espe=" & modulofunciones.codigo_especialidad & " order by tbldispositivos.descrip")
Endif
'
If consulta1.Count > 0 Then
'
Print #Reporte, " <br> "
'
'
Print #Reporte, " <table align = 'center' width = 1200 border = '2' cellpadding='0' cellspacing='0'>"
Print #Reporte, " <caption><h2>DISPOSITIVOS DEL EQUIPO</h2></caption>"
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center' width= 300><b>DESCRIPCION</b></td>"
Print #Reporte, " <td align = 'center'width= 800><b>FECHA DE REGISTRO</b></td>"
Print #Reporte, " <td align = 'center'width= 380><b>ESTATUS</b></td>"
Print #Reporte, " <td align = 'center'width= 200><b>MOTIVO DE ANULACION</b></td>"
Print #Reporte, " </tr>"
'
'
For j = 0 To consulta1.Count - 1
'
Print #Reporte, " <tr>"
'
'
'
Print #Reporte, " <td align = 'center'>" & consulta1[0] & " </td>"
Print #Reporte, " <td align = 'center'>" & consulta1[1] & " </td>"
If CInt(consulta1[2]) = 0 Then
Print #Reporte, " <td align = 'center'>ACTIVO</td>"
Else
Print #Reporte, " <td align = 'center'>ANULADO</td>"
Endif
Print #Reporte, " <td align = 'center'>" & consulta1[3] & " </td>"
Print #Reporte, " </tr>"
consulta1.MoveNext
Next
'
'
Endif
'
Print #Reporte, " </table>"
' ' FIN DE SEGUNDA TABLA---------------------------------------------------------------
'
'
' ' TERCERA TABLA---------------------------------------------------------------------
'
If CInt(modulofunciones.nivel) < 2 Then
consulta2 = modulofunciones.conexion.Exec("select tblmacs.dir_mac,tblmacs.status,tblmacs.motivo from tblmacs inner join tblequipos on(tblequipos.cod_equipo=tblmacs.cod_equipo) where tblequipos.cod_equipo=" & vector[i] & " order by tblequipos.descrip")
Else
consulta2 = modulofunciones.conexion.Exec("select tblmacs.dir_mac,tblmacs.status ,tblmacs.motivo from tblmacs inner join tblequipos on(tblequipos.cod_equipo=tblmacs.cod_equipo) where tblequipos.cod_equipo=" & vector[i] & " and tblequipos.cod_espe=" & modulofunciones.codigo_especialidad & " order by tblequipos.descrip")
Endif
If consulta2.Count > 0 Then
Print #Reporte, " <br> "
'
'
Print #Reporte, " <table align = 'center' width = 1200 border = '2' cellpadding='0' cellspacing='0'>"
Print #Reporte, " <caption><h2>MACS DEL EQUIPO</h2></caption>"
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center' width= 300><b>MAC</b></td>"
Print #Reporte, " <td align = 'center'width= 800><b>ESTATUS</b></td>"
Print #Reporte, " <td align = 'center'width= 380><b>MOTIVO DE ANULACION</b></td>"
Print #Reporte, " </tr>"
For j = 0 To consulta2.Count - 1
'
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center'>" & consulta2[0] & " </td>"
If CInt(consulta2[1]) Then
Print #Reporte, " <td align = 'center'>ACTIVO</td>"
Else
Print #Reporte, " <td align = 'center'>ANULADO</td>"
Endif
Print #Reporte, " <td align = 'center'>" & consulta2[2] & " </td>"
Print #Reporte, " </tr>"
consulta2.MoveNext
Next
Endif
Print #Reporte, " </table>"
'
'
' ' FIN DE TERCERA TABLA--------------------------------------------------------------
'
' 'ULTIMA TABLA------------------------------------------------------------------------
'
If CInt(modulofunciones.nivel) < 2 Then
consulta3 = modulofunciones.conexion.Exec("select tbltipocaracteristica.descrip,tblcaracteristicas.tarjeta,tblcaracteristicas.procesador,tblcaracteristicas.memoria,tblcaracteristicas.disco from tblequipos inner join tblequipodisp on(tblequipos.cod_equipo=tblequipodisp.cod_equipo) inner join tbldispositivos on(tblequipodisp.cod_dispositivo=tbldispositivos.cod_dispositivo) inner join tbltipocaracteristica on(tbldispositivos.cod_tipocaracteristica=tbltipocaracteristica.cod_tipocaracteristica) inner join tblcaracteristicas on(tbltipocaracteristica.cod_tipocaracteristica=tblcaracteristicas.cod_tipocaracteristica) where tblequipos.cod_equipo=" & vector[i] & " order by tblequipos.descrip ")
Else
consulta3 = modulofunciones.conexion.Exec("select tbltipocaracteristica.descrip,tblcaracteristicas.tarjeta,tblcaracteristicas.procesador,tblcaracteristicas.memoria,tblcaracteristicas.disco from tblequipos inner join tblequipodisp on(tblequipos.cod_equipo=tblequipodisp.cod_equipo) inner join tbldispositivos on(tblequipodisp.cod_dispositivo=tbldispositivos.cod_dispositivo) inner join tbltipocaracteristica on(tbldispositivos.cod_tipocaracteristica=tbltipocaracteristica.cod_tipocaracteristica) inner join tblcaracteristicas on(tbltipocaracteristica.cod_tipocaracteristica=tblcaracteristicas.cod_tipocaracteristica) where tblequipos.cod_equipo=" & vector[i] & " and tblequipos.cod_espe = " & modulofunciones.codigo_especialidad & " order by tblequipos.descrip ")
Endif
If consulta3.Count > 0 Then
Print #Reporte, " <br> "
Print #Reporte, " <table align = 'center' width = 1200 border = '2' cellpadding='0' cellspacing='0'>"
Print #Reporte, " <caption><h2>CARACTERISTICAS DEL CASE</h2></caption>"
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center' width= 300><b>TIPO CASE</b></td>"
Print #Reporte, " <td align = 'center'width= 800><b>TARJETA MADRE</b></td>"
Print #Reporte, " <td align = 'center'width= 380><b>PROCESADOR</b></td>"
Print #Reporte, " <td align = 'center'width= 380><b>MEMORIA</b></td>"
Print #Reporte, " <td align = 'center'width= 380><b>DISCO</b></td>"
Print #Reporte, " </tr>"
For j = 0 To consulta3.Count - 1
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center'>" & consulta3[0] & " </td>"
Print #Reporte, " <td align = 'center'>" & consulta3[1] & " </td>"
Print #Reporte, " <td align = 'center'>" & consulta3[2] & " </td>"
Print #Reporte, " <td align = 'center'>" & consulta3[3] & " </td>"
Print #Reporte, " <td align = 'center'>" & consulta3[4] & " </td>"
Print #Reporte, " </tr>"
consulta3.MoveNext
Next
Endif
Print #Reporte, " </table>"
'
' 'FIN DE ULTIMA TABLA
'
'
'
'
Print #Reporte, "</td>" ' fin de columna mayor
Print #Reporte, " </tr>" ' fin de fila mayor
Print #Reporte, " </table>" 'fin de tabla mayor
Print #Reporte, " <br> "
Print #Reporte, " <br> "
Print #Reporte, " <br> "
Print #Reporte, " <br> "
Next ' NEXT DE FOR I
Print #Reporte, " <form>"
Print #Reporte, " <center>"
Print #Reporte, " <HR width=1200> "
Print #Reporte, " <br> "
Print #Reporte, " <br> "
Print #Reporte, " <input type='button' value='Imprimir' OnClick='window.print()'>"
' PRINT #Reporte, " <input type='button' value='Cerrar' OnClick='window.close()'>"
Print #Reporte, " </center>"
Print #Reporte, "</form>"
Print #Reporte, " </body>"
Print #Reporte, "</html>"
Close #Reporte
Exec ["firefox", "/tmp/reporte.html"]
consultareport = modulofunciones.conexion.Exec("select tblequipos.descrip,tblequipos.cod_refe, tblequipos.status,tblequipos.motivo,tblequipos.cod_equipo from tblequipos where 1=1 " & cadena1 & cadena2 & cadena3 & " ")
Else
consultareport = modulofunciones.conexion.Exec("select tblequipos.descrip,tblequipos.cod_refe, tblequipos.status,tblequipos.motivo,tblequipos.cod_equipo from tblequipos where tblequipos.cod_espe=" & modulofunciones.codigo_especialidad & " " & cadena1 & cadena2 & cadena3 & " ")
Endif
' primera parte del reporte - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Open "/tmp/reporte.html" For Create As #Reporte
Reporte = Open "/tmp/reporte.html" For Create
Print #Reporte, "<html>"
'
Print #Reporte, " <head><title>Reporte de equipos-</title></head>"
Print #Reporte, " <body topmargin = '2' leftmargin='2'>"
Print #Reporte, " <table align = 'center' width = 1200 border = '2' cellpadding='0' cellspacing='0'>"
'
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center' width=100><b> <IMG SRC='/home/eduardo/Escritorio/laboratorios/iconos/iutai.jpeg' width=100 height=100 ></b> </td>"
Print #Reporte, " <td align = 'center'width= 800><b> Republica Bolivariana de Venezuela</b> <br><b> Ministerio del Poder Popular para la Educacion</b><br><b> Instituto Universitario de Tecnologia Agro-Industrial</b></td>"
Print #Reporte, " </tr>"
Print #Reporte, " </table>"
Print #Reporte, " <br> "
Print #Reporte, " <br> "
'
'
'
For i = 0 To consulta.Count - 1
'
vector[i] = consulta[4]
'
'
Print #Reporte, " <table align = 'center' width = 1200 border = '2' cellpadding='0' cellspacing='0'>" ' inicio tabla mayor
Print #Reporte, " <tr bgcolor='#CCCC99'>" 'inicio fila mayor
Print #Reporte, " <td align = 'center'>" "" ' inicio columna mayor
Print #Reporte, " <table align = 'center' width = 1200 border = '2' cellpadding='0' cellspacing='0'>"
Print #Reporte, " <caption><h2>EQUIPO</h2></caption>"
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center' width= 300><b>DESCRIPCION</b></td>"
Print #Reporte, " <td align = 'center'width= 800><b>CODIGO DE REFERENCIA</b></td>"
Print #Reporte, " <td align = 'center'width= 380><b>ESTATUS</b></td>"
Print #Reporte, " <td align = 'center'width= 200><b>MOTIVO DE ANULACION</b></td>"
Print #Reporte, " </tr>"
Print #Reporte, " <tr>"
'
'
'
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center'>" & consulta[0] & " </td>"
Print #Reporte, " <td align = 'center'>" & consulta[1] & " </td>"
If CInt(consulta[2]) = 0 Then
Print #Reporte, " <td align = 'center'> ACTIVO </td>"
Else
Print #Reporte, " <td align = 'center'> ANULADO </td>"
Endif
Print #Reporte, " <td align = 'center'>" & consulta[3] & " </td>"
Print #Reporte, " <tr>"
consulta.MoveNext
'
Print #Reporte, " </table>"
'
' 'segunda parte del reporte-----------------------------------------------------------------------
'
' 'SEGUNDA TABLA-------------------------------------------------------------
'
If CInt(modulofunciones.nivel) < 2 Then
consulta1 = modulofunciones.conexion.Exec("select tbldispositivos.descrip,to_char(tblequipodisp.fecha_regi,'DD/MM/YYYY'),tbldispositivos.status,tbldispositivos.motivo from tbldispositivos inner join tblequipodisp on(tbldispositivos.cod_dispositivo=tblequipodisp.cod_dispositivo) where tblequipodisp.cod_equipo=" & CInt(vector[i]) & " order by tbldispositivos.descrip")
Else
consulta1 = modulofunciones.conexion.Exec("select tbldispositivos.descrip,to_char(tblequipodisp.fecha_regi,'DD/MM/YYYY'),tbldispositivos.status,tbldispositivos.motivo from tbldispositivos inner join tblequipodisp on(tbldispositivos.cod_dispositivo=tblequipodisp.cod_dispositivo) where tblequipodisp.cod_equipo=" & CInt(vector[i]) & " and tbldispositivos.cod_espe=" & modulofunciones.codigo_especialidad & " order by tbldispositivos.descrip")
Endif
'
If consulta1.Count > 0 Then
'
Print #Reporte, " <br> "
'
'
Print #Reporte, " <table align = 'center' width = 1200 border = '2' cellpadding='0' cellspacing='0'>"
Print #Reporte, " <caption><h2>DISPOSITIVOS DEL EQUIPO</h2></caption>"
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center' width= 300><b>DESCRIPCION</b></td>"
Print #Reporte, " <td align = 'center'width= 800><b>FECHA DE REGISTRO</b></td>"
Print #Reporte, " <td align = 'center'width= 380><b>ESTATUS</b></td>"
Print #Reporte, " <td align = 'center'width= 200><b>MOTIVO DE ANULACION</b></td>"
Print #Reporte, " </tr>"
'
'
For j = 0 To consulta1.Count - 1
'
Print #Reporte, " <tr>"
'
'
'
Print #Reporte, " <td align = 'center'>" & consulta1[0] & " </td>"
Print #Reporte, " <td align = 'center'>" & consulta1[1] & " </td>"
If CInt(consulta1[2]) = 0 Then
Print #Reporte, " <td align = 'center'>ACTIVO</td>"
Else
Print #Reporte, " <td align = 'center'>ANULADO</td>"
Endif
Print #Reporte, " <td align = 'center'>" & consulta1[3] & " </td>"
Print #Reporte, " </tr>"
consulta1.MoveNext
Next
'
'
Endif
'
Print #Reporte, " </table>"
' ' FIN DE SEGUNDA TABLA---------------------------------------------------------------
'
'
' ' TERCERA TABLA---------------------------------------------------------------------
'
If CInt(modulofunciones.nivel) < 2 Then
consulta2 = modulofunciones.conexion.Exec("select tblmacs.dir_mac,tblmacs.status,tblmacs.motivo from tblmacs inner join tblequipos on(tblequipos.cod_equipo=tblmacs.cod_equipo) where tblequipos.cod_equipo=" & vector[i] & " order by tblequipos.descrip")
Else
consulta2 = modulofunciones.conexion.Exec("select tblmacs.dir_mac,tblmacs.status ,tblmacs.motivo from tblmacs inner join tblequipos on(tblequipos.cod_equipo=tblmacs.cod_equipo) where tblequipos.cod_equipo=" & vector[i] & " and tblequipos.cod_espe=" & modulofunciones.codigo_especialidad & " order by tblequipos.descrip")
Endif
If consulta2.Count > 0 Then
Print #Reporte, " <br> "
'
'
Print #Reporte, " <table align = 'center' width = 1200 border = '2' cellpadding='0' cellspacing='0'>"
Print #Reporte, " <caption><h2>MACS DEL EQUIPO</h2></caption>"
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center' width= 300><b>MAC</b></td>"
Print #Reporte, " <td align = 'center'width= 800><b>ESTATUS</b></td>"
Print #Reporte, " <td align = 'center'width= 380><b>MOTIVO DE ANULACION</b></td>"
Print #Reporte, " </tr>"
For j = 0 To consulta2.Count - 1
'
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center'>" & consulta2[0] & " </td>"
If CInt(consulta2[1]) Then
Print #Reporte, " <td align = 'center'>ACTIVO</td>"
Else
Print #Reporte, " <td align = 'center'>ANULADO</td>"
Endif
Print #Reporte, " <td align = 'center'>" & consulta2[2] & " </td>"
Print #Reporte, " </tr>"
consulta2.MoveNext
Next
Endif
Print #Reporte, " </table>"
'
'
' ' FIN DE TERCERA TABLA--------------------------------------------------------------
'
' 'ULTIMA TABLA------------------------------------------------------------------------
'
If CInt(modulofunciones.nivel) < 2 Then
consulta3 = modulofunciones.conexion.Exec("select tbltipocaracteristica.descrip,tblcaracteristicas.tarjeta,tblcaracteristicas.procesador,tblcaracteristicas.memoria,tblcaracteristicas.disco from tblequipos inner join tblequipodisp on(tblequipos.cod_equipo=tblequipodisp.cod_equipo) inner join tbldispositivos on(tblequipodisp.cod_dispositivo=tbldispositivos.cod_dispositivo) inner join tbltipocaracteristica on(tbldispositivos.cod_tipocaracteristica=tbltipocaracteristica.cod_tipocaracteristica) inner join tblcaracteristicas on(tbltipocaracteristica.cod_tipocaracteristica=tblcaracteristicas.cod_tipocaracteristica) where tblequipos.cod_equipo=" & vector[i] & " order by tblequipos.descrip ")
Else
consulta3 = modulofunciones.conexion.Exec("select tbltipocaracteristica.descrip,tblcaracteristicas.tarjeta,tblcaracteristicas.procesador,tblcaracteristicas.memoria,tblcaracteristicas.disco from tblequipos inner join tblequipodisp on(tblequipos.cod_equipo=tblequipodisp.cod_equipo) inner join tbldispositivos on(tblequipodisp.cod_dispositivo=tbldispositivos.cod_dispositivo) inner join tbltipocaracteristica on(tbldispositivos.cod_tipocaracteristica=tbltipocaracteristica.cod_tipocaracteristica) inner join tblcaracteristicas on(tbltipocaracteristica.cod_tipocaracteristica=tblcaracteristicas.cod_tipocaracteristica) where tblequipos.cod_equipo=" & vector[i] & " and tblequipos.cod_espe = " & modulofunciones.codigo_especialidad & " order by tblequipos.descrip ")
Endif
If consulta3.Count > 0 Then
Print #Reporte, " <br> "
Print #Reporte, " <table align = 'center' width = 1200 border = '2' cellpadding='0' cellspacing='0'>"
Print #Reporte, " <caption><h2>CARACTERISTICAS DEL CASE</h2></caption>"
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center' width= 300><b>TIPO CASE</b></td>"
Print #Reporte, " <td align = 'center'width= 800><b>TARJETA MADRE</b></td>"
Print #Reporte, " <td align = 'center'width= 380><b>PROCESADOR</b></td>"
Print #Reporte, " <td align = 'center'width= 380><b>MEMORIA</b></td>"
Print #Reporte, " <td align = 'center'width= 380><b>DISCO</b></td>"
Print #Reporte, " </tr>"
For j = 0 To consulta3.Count - 1
Print #Reporte, " <tr>"
Print #Reporte, " <td align = 'center'>" & consulta3[0] & " </td>"
Print #Reporte, " <td align = 'center'>" & consulta3[1] & " </td>"
Print #Reporte, " <td align = 'center'>" & consulta3[2] & " </td>"
Print #Reporte, " <td align = 'center'>" & consulta3[3] & " </td>"
Print #Reporte, " <td align = 'center'>" & consulta3[4] & " </td>"
Print #Reporte, " </tr>"
consulta3.MoveNext
Next
Endif
Print #Reporte, " </table>"
'
' 'FIN DE ULTIMA TABLA
'
'
'
'
Print #Reporte, "</td>" ' fin de columna mayor
Print #Reporte, " </tr>" ' fin de fila mayor
Print #Reporte, " </table>" 'fin de tabla mayor
Print #Reporte, " <br> "
Print #Reporte, " <br> "
Print #Reporte, " <br> "
Print #Reporte, " <br> "
Next ' NEXT DE FOR I
Print #Reporte, " <form>"
Print #Reporte, " <center>"
Print #Reporte, " <HR width=1200> "
Print #Reporte, " <br> "
Print #Reporte, " <br> "
Print #Reporte, " <input type='button' value='Imprimir' OnClick='window.print()'>"
' PRINT #Reporte, " <input type='button' value='Cerrar' OnClick='window.close()'>"
Print #Reporte, " </center>"
Print #Reporte, "</form>"
Print #Reporte, " </body>"
Print #Reporte, "</html>"
Close #Reporte
Exec ["firefox", "/tmp/reporte.html"]