IMPRIMIR UN ARCHIVO PDF

[jbrita]

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]

Muestra como estás haciendo con SUMATRAPDF.EXE.

Saludos.

[jbrita]

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]

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

Intenta asi, porfa:

Code: Select all | Expand

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
 

[jbrita]

karina no funciono

saludos

[karinha]

karina no funciono

saludos

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

[jbrita]

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

saludos

[karinha]

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

[karinha]

Mira:

Code: Select all | Expand

   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

[karinha]

Intenta ahora:

Code: Select all | Expand

#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.

[karinha]

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.

[jbrita]

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]

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