Re: Genral Reporte De Un Horario
Nada mas imprime la cabecera.......
y deberia imprimirme el tableview... compreto
PUBLIC SUB Button2_Click()
DIM ruta AS String
DIM archivo AS File
DIM i, j AS Integer
ruta = User.Home &/ "reporte.html"
'OPEN "/tmp/reportpersonales.html" FOR CREATE AS #archivo
OPEN ruta FOR WRITE CREATE AS #archivo
PRINT #archivo, "<html>"
PRINT #archivo, "<head><title>Reporte en HTML de Visitas</title></head>"
PRINT #archivo, "<body topmargin='0' leftmargin='0'>"
PRINT #archivo, "<table border='1' width='500' cellpadding='4' cellspacing='0' aling='Center'>"
PRINT #archivo, " <tr>"
PRINT #archivo, " <td colspan='6' align='center'>"
PRINT #archivo, " <h3>Listado de Visitas</h3>"
PRINT #archivo, " </td>"
PRINT #archivo, " </tr>"
PRINT #archivo, " <tr>"
PRINT #archivo, " <td width='15%' align='center'>Lunes</td>"
PRINT #archivo, " <td align='center'>Martes</td>"
PRINT #archivo, " <td align='center'>Miercoles</td>"
PRINT #archivo, " <td align='center'>Jueves</td>"
PRINT #archivo, " <td align='center'>Viernes</td>"
PRINT #archivo, " <td align='center'>Sabado</td>"
PRINT #archivo, " </tr>"
FOR i = 0 TO tb1.rows.Count - 1
PRINT #archivo, " <tr>"
FOR j = 0 TO tb1.Columns.Count - 1
PRINT #archivo, " <td>" & tb1[i, j].Text & "</td>"
NEXT
PRINT #archivo, " </tr>"
NEXT
PRINT #archivo, "</table>"
PRINT #archivo, "</body>"
PRINT #archivo, "</html>"
CLOSE #archivo
Message.Info("Se ha generado con exito el archivo html")
END
|