reportes PDF en visual basic 6

[sepulman]

Buenas amigos del foro. Quisiera saber si alguno de ustedes pudiera compartir sus conocimientos de como podria generar un reporte en pdf desde visual basic. He tenido problemas con crystal , datareport, word y me gustaria probar con pdf ahora.
Saludos desde Santiago-Chile.

[sepulman]

se me ocurrio una idea... si llevo el reporte a word que es mas facil y lo guardo en cierto directorio, tomo el word y lo imprimo desde la impresora virtual cuteprinterpdf y ese me genera el pdf, todo esto por codigo visual.... es una idea. Voy a ver como me va y lo posteo...
salu2

[Eternal Idol]

http://www.forosdelweb.com/f14/subforo-visual-basic-267585/
http://www.forosdelweb.com/f69/

[leoj90]

No se suponia q se creó un foro de Visual Basic para q alli se haga todo lo de vb y aqui todo lo demás (c/c++..)?

[David]

Iniciado por leoj90

No se suponia q se creó un foro de Visual Basic para q alli se haga todo lo de vb y aqui todo lo demás (c/c++..)?

Sí, pero la gente "estoy demasiado peresozo para hacer click en el Link VISUAL BASIC" no quiere entender... Ahora, me pregunto ¿Dónde estará vuestro moderador?

[Eternal Idol]

¿Vuestro? Bueno ... estara haciendo otras cosas, ningun moderador puede estar atento todo el tiempo a mensajes mal ubicados.

[sepulman]

OK, creo que me equivoque. Sorry.
Moderador , puede redireccionarme a Visual por favor.
Gracias.

[GeoAvila]

no tardaremos en redirigir el mensaje ya estando allá te doy la solución

nos vemos..

[RootK]

Los llevo al subforo de visual basic.. ;)

Salu2

movido desde foro de programacion

[ramoncito]

jaja y nadie respondio la pregunta...

Mira yo la forma más facil de extaer reportes en pdf de vb6 es que cargo cualquier informe por ejemplo en un richtextbox o una grilla, un gráfico, lo que quieras imprimir, puedes utilizar el ejemplo de imprimir que está en los faqs y ahi imprimes a un DocuPrinter o algo asi para que salga en PDF, o acerlos exportables a rtf

[GeoAvila]

podes usar los Crystal Reports te exportan a PDF..

nos vemos..

[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.!

[ramoncito]

Y desde tu aplicación no puedes llegar y hacer que impriman en la CUTE PDF ?? asi lo hago yo para generar reportes en pdf,

[sepulman]

NO PUEDO!!! NO PUEDO!!! NO PUEDO!!! NO PUEDO!!! NO PUEDO!!! NO PUEDO!!! NO PUEDO!!!


cuando le doy la ruta local funciona de maravilla. Cuando llevo el archivo a un servidor y le doy la ruta se cae
Alguien sabe por que puede pasar. help!

Dim documento As Word.Application
Set documento = CreateObject("Word.Application")
producto = "c:\sistema\Mercosur.doc"
producto = "\\servidor\sistema\Mercosur.doc"
documento.Documents.Open producto, , False
documento.Visible = True
documento.PrintOut False, , , producto
documento.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
documento.Documents.Close
documento.Quit

[GeoAvila]

Iniciado por sepulman

producto = "c:\sistema\Mercosur.doc"
producto = "\\servidor\sistema\Mercosur.doc"

conecta mejor una unidad de red para que te funcione mejor, al igual como funcionaba foxpro 2.X en red.. agregas una unidad de red y únicamente ser verá así

producto = "F:\sistema\Mercosur.doc"

nos vemos..

[sepulman]

Bueno, encontre la solucion y se me habia olvidado colocarla pero aqui va.
le pasa a cualquiera jojojo


Dim documento As Word.Application
Set documento = CreateObject("Word.Application")
producto = "c:\sistema\Mercosur.doc"
producto = "\\servidor\sistema\Mercosur.doc"
documento.Documents.Open producto, , False
documento.Visible = True
documento.PrintOut False, , , producto 'error, si quiero llevar a pdf no piedo colocar "c:\sistema\Mercosur.doc" asi que solo queda asi:
documento.PrintOut False
documento.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
documento.Documents.Close
documento.Quit


bueno, he encontrado la solucion asi que he espero que el codigo le sirva a alguien mas.

saludos

[Jefe_Negro]

En esta pagina colgue una DLL activeX para generar documentos pdf desde VB. Por favor, agradecere cualquier sugerencia o comentario.
http://www.mygnet.com/codigos/vb/21/

Un Saludo:
Jefe Negro

[jc_moty]

Originalmente Escrito por: Jefe_Negro
En esta pagina colgue una DLL activeX para generar documentos pdf desde VB. Por favor, agradecere cualquier sugerencia o comentario.
http://www.mygnet.com/codigos/vb/21/

WOW!!!!, a falta de otra palabra la DLL es perfecta, y yo que generaba reportes con HTML :-p ahora tengo lo que durante mucho tiempo he buscado y no habia encontrado.

Mil Gracias
Saludos

PD: luego la probare mas a fondo, y si tengo algun comentario, sugerencia o duda, la colgare por aqui.

[Jefe_Negro]

Cree una pagina de soporte para la libreria, para descargas, comentarios o sugerencias, por favor, diriganse a ella:

www.opdf.tk

Un Saludo:
Jefe Negro.