Saludos,
Estoy haciendo un par de consultas de categorias y sus subcategorias
Pero para mostrarlas de primeras hegenerado html (con listas,tablas da igual) y elproblema es que quiero optimizar el espacio de esos listados, es decir si se pudiera escribir en dos columnas o algo asi (u otro formato que no sea html).
Este es el codigo para que veais como va imrpiendo (me deja mucho espacio del papel)
necesito ideasss por favor....(ojala el html se pudiera en columnas a lo word
)
Dim nF As Integer
nF = FreeFile
Open "C:\listadocat.html" For Output As nF
Print #nF, "<html><head><title>LISTADO</title></head><body>"
Set rs = cmCat.Execute
rs.MoveFirst
While rs.EOF = False
Print #nF, "<table border=1 bordercolor=black width=22%><tr><th align=left><font size=2>" & rs!descrip_esp & "</font></th></tr></table>"
cmSCat.Parameters("par1").Value = Mid(rs!codigo, 1, 2)
Set rs2 = cmSCat.Execute
If rs2.RecordCount <> 0 Then
rs2.MoveFirst
While rs2.EOF = False
Print #nF, "<font size=1>" & rs2!descrip_esp & "</font><br>"
rs2.MoveNext
Wend
End If
rs.MoveNext
Wend
Print #nF, "</body></html>"
Close nF