Abrir archivo PDF con Google Chrome

[integral]

Que tal amigos

Estoy creando los archivos PDF con una impresora virtual que viene instalada con el Windows 10.

Aquí el código que utilizo.

SET PRINTER TO "Microsoft Print to PDF"
REPORT FORM Rep_Stock.frx  Noconsole to file &arch_pdf

Mi problema ahora es abrir el archivo creado de forma automática con el Google Chrome.

Algun colega que me pueda ayudar a hallar  la solución

Saludos,

Integral

[Zarlu]

Buenas tardes Intregral!

Quizá así:

DECLARE INTEGER ShellExecute IN Shell32;
INTEGER hwnd,;
STRING @lpOperation,;
STRING @lpFile,;
STRING @lpParameters,;
STRING @lpDirectory,;
SHORT nshow
ShellExecute(0,'open',"chrome.exe","c:\orders.pdf",'',1)

Suerte

zarlu

Chetumal, Quintana Roo, México

[integral]

Gracias Amigo Zarlu

Resulto fácil crear el archivo PDF hoy al medio día implemente el código. y con la rutina enviada logre abrir el archivo creado con el Google Chrome.

Tan solo hace falta hacer unos pequeños ajustes.

Gracias

Hasta la próxima.

Saludos,

Integral

[integral]

Que tal Amigos .

Al tratar de crear el nombre el archivo PDF mediante una variable ahora al abrir el PDF con el Google Chrome me muestra un mensaje y al dar click en Volver a cargar aparece el 

documento PDF creado

Aquí copio el código que estoy utilizando.

     ArchiPdf = lcTextPDF + ".PDF"

DECLARE INTEGER ShellExecute IN Shell32;
INTEGER hwnd,;
STRING @lpOperation,;
STRING @lpFile,;
STRING @lpParameters,;
STRING @lpDirectory,;

LONG nShowCmd
    lcPDFfile = 'C:\MIGRACONSU\ERP_CONSUMO\REPORTS\' + ArchiPdf
    ShellExecute(0,"open","chrome.exe",m.lcPDFfile,"",0)

Adjunto una imagen donde se puede apreciar el mensaje...

Agradezco sus comentarios y sugerencias.

Atte.,

Integral

[Zarlu]

Qué tal Integral!

Quizá debas darle un tiempo de espera entre crear y abrir

Suerte

Zarlu

Chetumal, Quintana Roo, México

[Carlos X. Montes]

Intenta con

run /N  "C:\Program Files (x86)\Google\Chrome\Application\chrome.exe" C:\Users\cmontes\Desktop\E-WAPI.pdf

El jue, 7 dic 2023 a la(s) 15:31, Zarlu (not...@prodigy.net.mx) escribió:

Qué tal Integral!

Presiento que es la versión de Windows con la distinción de mayúsculas/minúsculas

Te sugiero la siguiente prueba con ese mismo archivo que te da error...

Copia en la barra del navegador el path y archivo tal cual te lo muestra el explorador de windows respetando mayúsculas y minúsculas.

Suerte

Zarlu

Chetumal, Quintana Roo, México

--
Blog de la Comunidad Visual FoxPro en Español http://comunidadvfp.blogspot.com
---
Has recibido este mensaje porque estás suscrito al grupo "Comunidad de Visual Foxpro en Español" de Grupos de Google.
Para cancelar la suscripción a este grupo y dejar de recibir sus mensajes, envía un correo electrónico a publicesvfoxp...@googlegroups.com.
Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/c3470fdb-07ce-45ff-b54c-309451760af4n%40googlegroups.com.

[Damian Lana]

Integral buenas tardes, en mi caso lo hago con  foxypreviewer, genero el reporte con preview lo abre en el programa predeterminado de pdf

LSetreportbehavior = SET("ReportBehavior")

Do Locfile("FoxyPreviewer.App")

REPORT FORM Rep_Stock.frx  Noconsole object Type 10   to file &arch_pdf  PREVIEW

Set reportbehavior 80

Set reportbehavior   &LSetreportbehavior  

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/CAHeRZ66%2BnPjugVa3fi7yfMP82UQX4gvmA2Vugj%2B8QP1rWbz9cw%40mail.gmail.com.

[integral]

Que tal Amigos :

Gracias por sus comentarios y sugerencias.

Efectivamente amigo Zarlu era cuestión de darle un minuto y medio de tiempo y listo funciona a la perfección.

Amigo Damian te comento que cuando programaba en VFP 6.0 utilizaba al principio el Pdf Creator y algunos otros programas pero con las apariciones de los nuevos sistemas operativos surgieron algunos problemas hasta que descarte la opción de crear los PDF's.

Ayer me puse a revisar en el foro varias consultas del tema y encontré como una opción al  foxypreviewer entre otras y encontré también varios casos de problemas con dicha App.

Hasta que por ahí alguien comento que era fácil y sencillo utilizar el Microsoft Print to PDF hice la prueba con solo 2 lineas de codigo y funciono muy bien.

Gracias nuevamente a todos. Adjunto imágenes de los resultados.

Hasta la próxima.

Atte.,

Integral

[Zarlu]

Qué bien Integral!

He escrito un poco a  prisa...

Creo que "para esperar" sería mejor que con un ciclo (y un algún mensaje dinámico) verifiques se haya creado el PDF. De esa manera no tendrías que esperar mucho o poco, dependerá de la velocidad de la pc entre otros factores.

Suerte

zarlu

Chetumal, Quintana Roo, México

[integral]

Que tal Amigo Zarlu

Hice una prueba en una laptop i3 con 8 de memoria  

WAIT WINDOW "[ Abriendo el archivo PDF... : " + Archipdf + " ]"  TIMEOUT .5               

Un proceso de 15 paginas y lo hace bien rapido.

Gracias amigo por tu apoyo.

Saludos,

Integral

[José Antonio Peña Martínez]

Integral, Zarlu tiene razón, haz de una vez un ciclo de espera para que no tengas problema con diferentes capacidades de equipos ...

el ciclo sería algo como esto:

WAIT windows "Generando PDF, espere ... (Esc Cancelar)" NOWAIT NOCLEAR
DO WHILE !FILE(ALLTRIM(XmlFile) + ".pdf") AND INKEY()<>27
ENDDO
WAIT clear
IF FILE(ALLTRIM(XmlFile) + ".pdf")

else

endif

Saludos!

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/67d73020-710c-47f4-88bb-6169fca30201n%40googlegroups.com.

--

Desarrollo de Sistemas TecnoPro

José Antonio Peña

Saludos!

[integral]

José Antonio

Te agradezco por el código mostrado.

En verdad el comando Do White ya no lo utilizo desde que programaba en Foxpro 2.6 para D.O.S.

En resumen el proceso que realizo para crear el archivo PDF lo hace de forma correcta y rapida. 

Luego que creo el archivo PDF. Verifico si existe el archivo y de existir luego de la validación utilizo la rutina para abrir con el Google Chrome el archivo PDF...

Adjunto una imagen que muestra parte del proceso que realizo.

Atte.,

Integral

[José Antonio Peña Martínez]

Cuando ejecutes el mismo programa en otro equipo de la red (no se cuantos equipos tengas con tu sistema) algunos responderán más lento, por x causa, esos equipos te darán error si el PDF aun no se crea, si no ha terminado de hacerlo el equipo simplemente no tendrá archivo por abrir y el usuario deberá volverlo a generar ...

En esto de la programación son gustos ... Suerte.

Saludos!

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/b199ba47-5af1-4e68-9a2b-1c42025a3718n%40googlegroups.com.

[integral]

Buenos Días

Lo que planteas es un supuesto que todo programador debe tener en cuenta al momento de la validación. Y de esta forma evitar fallos en el Sistema.

Cada cliente posee una PC o Laptop de diferentes características. Pero al igual que las matemáticas existirá mas de una forma de realizar dicha validación.

Con el transcurrir de los años mi forma de programar y los comandos a utilizar a ido mejorando.  A lo largo de mas de 20 años tuve 2 jefes de programación que me enseñaron los buenos hábitos de la programación. Así como también los ejemplos aprendidos de algunos expertos de este foro que en su momento cuando los necesite me ayudaron y les estoy eternamente agradecido y además seguí sus consejos como el de aprender la utilización de los Comandos del SQL de VFP. Que me sirvió en la migración a la Base de Datos...

Me queda claro que cada uno adopta un estilo de programar y lo respeto.

Copio el código que realiza la validación de la creación del archivo PDF.

 

Ej.-

        IF FILE('C:\MIGRACONSU\ERP_CONSUMO\REPORTS\PDFS\' + ArchiPdf)              && Busca si fue Creado el Archivo PDF
        lresptaPdf = Messagebox("Archivo " + ArchiPdf + " Generado." + CHR(13) + ;
                             "¿ Desea Visualizar el Archivo PDF ?", 4+32+256,"Aviso del Sistema")
        Do CASE
               CASE lresptaPdf = 6                                             && SI

           
  DECLARE INTEGER ShellExecute IN Shell32;
INTEGER hwnd,;
STRING @lpOperation,;
STRING @lpFile,;
STRING @lpParameters,;
STRING @lpDirectory,;
LONG nShowCmd

    lcPDFfile = 'C:\MIGRACONSU\ERP_CONSUMO\REPORTS\PDFS\' + ArchiPdf
    ShellExecute(0,"open","chrome.exe",lcPDFfile,"",0)
 
 
        ELSE
            MESSAGEBOX("El Archivo : " + ArchiPdf + " No se ha podido Crear.",16+0,TITLE_LOC)
            RETURN .F.
        ENDIF

Hasta la próxima

Integral

(Lima-Perú)

[José Antonio Peña Martínez]

Te vuelvo a repetir lo mismo, no es lo mismo validar que exista un PDF a esperar que exista... Saludos y suerte.

Para ver esta conversación en el sitio web, visita https://groups.google.com/d/msgid/publicesvfoxpro/df085b0b-2529-4187-94f6-89553d2da3c5n%40googlegroups.com.

[Ramón Rodríguez Martínez]

Uniocamente tienes que invertir las diagonales :

C:/MIGRACONSU/ERP_CONSUMO/REPORTS\PDFS/' + ArchiPdf