reportes PDF en visual basic 6

[sepulman]

bueno , finalmente hice algo que no me convencio mucho pero que funciona.
Genero un reporte en word, con el formato que quiera.
Luego le paso datos por parametros desde visual basic a "marcadores" en word.
Desde visual imprimo el word y la impresora por defecto es cutepdf que lleva los documentos a pdf, asi que despues de eso por codigo cierro el word y abro el pdf. El efecto que hace entre que abre word, lo cierra y finalmente queda abierto en acrobat es lo que no me convence pero bueno, keria evitar que me tomen el word y lo modifiquen....

no se si me explique bien pero les adjunto el codigo que utilice.

Dim documento As Word.Application
Set documento = CreateObject("Word.Application")
producto = "C:\SourceSafe\Mercosur\mercosur.doc"
documento.Documents.Open producto, , False
On Error Resume Next
documento.Visible = True


documento.Documents.Item(1).Bookmarks.Item("FECHA_ DESDE").Range.Text = dReporte.FECHA_DESDE
documento.Documents.Item(1).Bookmarks.Item("FECHA_ HASTA").Range.Text = dReporte.FECHA_HASTA
documento.Documents.Item(3).Bookmarks.Item("PLAN_C ONTRATADO").Range.Text = dReporte.PLAN_CONTRATADO
documento.Documents.Item(1).Bookmarks.Item("NOMBRE ").Range.Text = dReporte.NOMBRE
documento.Documents.Item(1).Bookmarks.Item("APELLI DO_PATERNO").Range.Text = dReporte.APELLIDO_PATERNO
documento.Documents.Item(1).Bookmarks.Item("APELLI DO_MATERNO").Range.Text = dReporte.APELLIDO_MATERNO
documento.Documents.Item(1).Bookmarks.Item("COMUNA ").Range.Text

documento.PrintOut False, , , producto ' aqui lleva a pdf
documento.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
documento.Documents.Close
documento.Quit

Bueno, saludos a todos.!