VB6-Generar listado

[mullins]

gracias por la respuesta,no es que me lie con el html es que queria enmarcar los encabezados con cuadros ya que su destino era serimpreso y asi se veia mejor

al fina idee unas macros en word para que melo fuera mostrando con formato y a partir de ahi ya era libre de mostrarlo en dos o mas columnas.En total son 6 hojas para mil y pico registros a fuente 7 lo que no esta nada mal.

PD:

Public sesion As OraSession
Public db As OraDatabase
Public dina As OraDynaset
Public rs As OraDynaset

Sub main()
Set sesion = CreateObject("OracleInProcServer.XOraSession")
Set db = sesion.OpenDatabase("pruebas", "***********", 0&)
Set dina = db.CreateDynaset("select nvl(descrip_esp,descrip) descrip_esp,codigo FROM espri_categorias where tipo='090' and activa='S' and visible!='I' ORDER BY codigo ASC", 0&)
importa
End Sub
Sub importa()
Dim c As Integer
If dina.RecordCount <> 0 Then
dina.MoveFirst
Do Until dina.EOF
c = c + 1

Selection.TypeText Text:=dina.Fields("codigo").Value & " - " & dina.Fields("descrip_esp").Value
Selection.MoveLeft Unit:=wdCharacter, Count:=Len(dina.Fields("codigo").Value & " - " & dina.Fields("descrip_esp").Value), Extend:=wdExtend
Selection.Font.Bold = wdToggle



Selection.EndKey Unit:=wdLine
Selection.TypeParagraph 'pulsar enter
Selection.MoveUp Unit:=wdLine, Count:=1

With Selection.Borders(wdBorderTop)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderLeft)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderBottom)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
With Selection.Borders(wdBorderRight)
.LineStyle = Options.DefaultBorderLineStyle
.LineWidth = Options.DefaultBorderLineWidth
.Color = Options.DefaultBorderColor
End With
Selection.MoveDown Unit:=wdLine, Count:=1


Selection.Font.Bold = wdToggle


'-------------------------------------------------
Set rs = db.CreateDynaset("select nvl(descrip_esp,'JJJJ') descrip_esp,codigo,descrip,cod_padre FROM espri_categorias where tipo='100' and cod_padre='" & Mid(dina.Fields("codigo").Value, 1, 2) & "' and activa='S' and visible!='I' ORDER BY codigo ASC", 0&)
If rs.RecordCount <> 0 Then
rs.MoveFirst
Do Until rs.EOF
c = c + 1
If rs.Fields("descrip_esp").Value = "JJJJ" Or rs.Fields("descrip_esp").Value = "?" Then
Selection.TypeText Text:=vbTab & rs.Fields("codigo").Value & " - " & rs.Fields("descrip").Value
Selection.TypeParagraph

Else
Selection.TypeText Text:=vbTab & rs.Fields("codigo").Value & " - " & rs.Fields("descrip_esp").Value
Selection.TypeParagraph

End If
rs.MoveNext
Loop
End If
dina.MoveNext
Loop

End If
MsgBox c
End Sub