topic-34038

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

IMPRIMIR UN ARCHIVO PDF
Posted: Tue May 09, 2017 12:48 AM

Hola amigos necesito imprimir un archivo pdf, esta ocupando sumatrapdf, anda bien en tamaños carta pero cuando son pdf en tamaño ticket sale mal, aqui la imagen

si se fijan hay 2 imagenes una con sumatrapdf y con acrobat, y si fijan salen con mucho espacio en blanco, prove tambien con PDF24 CREATOR pero no se como hacer por linea de comando
gracias

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: IMPRIMIR UN ARCHIVO PDF
Posted: Tue May 09, 2017 12:32 PM

Muestra como estás haciendo con SUMATRAPDF.EXE.

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: IMPRIMIR UN ARCHIVO PDF
Posted: Tue May 09, 2017 02:04 PM

gracias por contestar

function BoletaPdf(cFilePdf)
*----------------------------
local cSumatra := ".\SumatraPdf.exe"
local cPrinter := PrnGetName()
local cFile,cCmd

cFile := cFilePdf
cCmd := cSumatra + ' -Print-to "' + ;
alltrim( StrToken( cPrinter, 1, "," ) ) + ;
'" -exit-on-print ' + cFile

MsgRun( "Imprimiendo archivo "+cFile, "Espere..", { || winexec( cCmd, SW_HIDE ) } )

Return nil

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: IMPRIMIR UN ARCHIVO PDF
Posted: Tue May 09, 2017 03:10 PM

https://www.notion.so/Command-line-arguments-0c53a79e91394eccb7535ef6fed0678e

Intenta asi, porfa:

Code (fw): Select all Collapse

function BoletaPdf(cFilePdf)
*----------------------------
local cSumatra := ".\SumatraPdf.exe"
local cPrinter := PrnGetName()
local cFile,cCmd


cFile := cFilePdf
cCmd := cSumatra + ' -Print-to "' + ;
alltrim( StrToken( cPrinter, 1, "," ) ) + ;
'" -exit-on-print ' + cFile

// MsgRun( "Imprimiendo archivo "+cFile, "Espere..", { || winexec( cCmd, SW_HIDE ) } )

   WinExec( cSumatra+" -reuse-instance -lang es "+cFile)   //-restrict -fullscreen

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: IMPRIMIR UN ARCHIVO PDF
Posted: Wed May 10, 2017 01:27 PM

karina no funciono

saludos

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: IMPRIMIR UN ARCHIVO PDF
Posted: Wed May 10, 2017 02:37 PM

jbrita wrote:karina no funciono

saludos

Cual és el error? Como genera el .PDF? saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: IMPRIMIR UN ARCHIVO PDF
Posted: Thu May 11, 2017 12:06 AM

no sale error, solo lo muestra por pantalla y yo lo quiero directo a la impresora

saludos

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: IMPRIMIR UN ARCHIVO PDF
Posted: Thu May 11, 2017 12:04 PM

enviame el archivo.pdf para pruebas acá, porfa. kapiabafwh@gmail.com saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: IMPRIMIR UN ARCHIVO PDF
Posted: Thu May 11, 2017 03:21 PM

Mira:

Code (fw): Select all Collapse

   nRet := PrinterSetUp()

   nPrn := PrnGetName()

   IF( nRet # 0 )

      // WinExec(PastaSistema+"\sumatrapdf.exe -print-to "+nPrn+" -reuse-instance -lang br "+cArq) // sem preview
      // WinExec( cDirExe+"sumatra\sumatrapdf.exe -print-to-default -reuse-instance -lang pt "+gravaPDF)   //-restrict -fullscreen
      WinExec( cDirExe+"sumatra\sumatrapdf.exe -print-to "+nPrn+" -reuse-instance -lang es "+gravaPDF)   //-restrict -fullscreen

   ENDIF

Saludos

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: IMPRIMIR UN ARCHIVO PDF
Posted: Thu May 11, 2017 06:38 PM

Intenta ahora:

Code (fw): Select all Collapse

#include "FiveWin.ch"

static oWnd

//----------------------------------------------------------------//

function Main()

   local oBar

   DEFINE WINDOW oWnd TITLE "IMPRIME PDF CON SUMATRAPDF.EXE"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION ImpPdf()

   SET MESSAGE OF oWnd TO "IMPRIME PDF CON SUMATRAPDF.EXE" NOINSET CLOCK DATE ;
       KEYBOARD

   ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------//

function ImpPdf()

   LOCAL cArchivo, vcomando

   // Donde esta el .PDF
   cArchivo := "C:\FWH1701\SAMPLES\BOL-20.PDF" 

   // Llama la impresora default. En mi caso: pdfmachine.exe Impresora Virtual
   vcomando := 'c:\sumatra\sumatrapdf -print-to-default ' + cArchivo

   WinExec( vcomando )

return nil

// fin

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: IMPRIMIR UN ARCHIVO PDF
Posted: Fri May 12, 2017 01:55 PM

Buen dia, esto no tien nada con el sumatra y si con la generación del *.pdf ó del qrcode. intenta con 300 x 300

Una duda: estás generando como .PDF ó .JPG? el 1º archivo que enviastes: .PDF y el 2º .JPG ???

http://i.imgur.com/8yOXxNA.jpg

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

jbrita

Posts: 537

Joined: Mon Jan 16, 2006 03:42 PM

Re: IMPRIMIR UN ARCHIVO PDF
Posted: Fri May 12, 2017 09:07 PM

sabes son pdf, solo la jpg es la imagen del ticket para que veas como sale, si te fijas no ocupa todos los margenes y ademas me deja todos esa parte blanca, la de arriba
no se, lo he probado con pdf24 creator para ver si pasaba lo mismo y no pasa lo mismo lo tira bien, solo que pdf24 hay q tomar manualmente el archivo e imprimirlo
y yo lo quiero hacerlo por comando

saludos

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: IMPRIMIR UN ARCHIVO PDF
Posted: Fri May 12, 2017 09:47 PM

haga una busqueda por HARUPDF, és sencillo generar el QRCODE con el. Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion