https://foro.gambas-es.org/viewtopic.php?f=1&t=1349 ----------------------------------- homny Viernes, 28 Enero 2011, 02:53 Problema Al Intentar Imprimir Un Tableview En Formato Html ----------------------------------- [size=12][size=14][size=12]Hola mister mi problema es el siguiente quiero imprimir unos registros de un tableview en formato html pero me dice error en null key. una pequeña parte del código... FOR i = 0 TO (tabla.Count - 1) PRINT #formulario, "" FOR h = 0 TO (tabla.Columns.Count - 1) PRINT #formulario, "" & tabla[i][h] & "" 'aqui me da el error NULL KEY... NEXT PRINT #formulario, "" NEXT[/size][/size][/size] ----------------------------------- shordi Viernes, 28 Enero 2011, 08:55 Re: Problema Al Intentar Imprimir Un Tableview En Formato Html ----------------------------------- Prueba con PRINT #formulario, "" & tabla[i,h].Text & "" Suerte. ----------------------------------- homny Lunes, 31 Enero 2011, 04:22 Re: Problema Al Intentar Imprimir Un Tableview En Formato Html ----------------------------------- hermano disculpa, el objeto es un columview, lo hice de la forma que me dijisteis PRINT #formulario, "" & tabla[i,h].Text & "" y nada, da error too many arguments, es algo que tiene que ver con el key La información que está en la tabla está organizada por un order by y la quiero impresa en html, allí creo es que pierde el orden de los apuntadores o algo así. el código par imprimir... PUBLIC SUB btreporte_Click() DIM formulario AS File DIM nominforme AS String DIM ho AS Result DIM i, h AS Integer IF (tabla.Count > 0 AND tabla.Columns.Count > 0) THEN OPEN Application.Path & "/informes/reporte1.html" FOR WRITE CREATE AS #formulario IF (TextBox1.Length > 0) THEN nominforme = TextBox1.Text ELSE nominforme = InputBox("Nombre del Encabezado del Informe") ENDIF PRINT #formulario, "" & nominforme & "" PRINT #formulario, "" PRINT #formulario, "" PRINT #formulario, "" PRINT #formulario, "

" & nominforme & "

" PRINT #formulario, "" FOR i = 0 TO (tabla.Columns.Count - 1) PRINT #formulario, "" NEXT PRINT #formulario, "" FOR i = 0 TO (tabla.Count - 1) PRINT #formulario, "" FOR h = 0 TO (tabla.Columns.Count - 1) PRINT #formulario, "" 'aqui es que da el error de null key... 'PRINT #formulario, "" NEXT PRINT #formulario, "" NEXT PRINT #formulario, "
" & tabla.Columns[i].Text & "
" & tabla[i][h] & "" & tabla[i, h].Text & "


" PRINT #formulario, "

Reporte Impreso el Dia: " & Format(Date, "dd/mm/yyyy") & "

" PRINT #formulario, "" PRINT #formulario, "" CLOSE #formulario SHELL ("firefox " & Application.Path & "/informes/reporte1.html") ENDIF END