FiveTech Software tech support forums

Code: Select all

#include "FiveWin.ch"

static oWnd

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

function Main()

   local oBar

   DEFINE WINDOW oWnd TITLE "IMPRIME PDF"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar ACTION ImpPdf()

   SET MESSAGE OF oWnd TO "IMPRIME PDF" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

return nil

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

function ImpPdf()

   LOCAL nRet, nPrn, cArq, PastaSistema

   cArq := "C:\FWH1701\SAMPLES\BOL-20.PDF"

   PastaSistema := "C:\INST_NFE"

   ? cArq


   // WinExec( cDirExe+"sumatra\sumatrapdf.exe -reuse-instance -lang br "+gravaPDF)   //-restrict -fullscreen

   vcomando:='c:\sumatra\sumatrapdf -print-to-default '+cArq

   WinExec(vcomando)

return nil

   nRet := PrinterSetUp()

   // nPrn := PrnGetName()

   IF (nRet#0)

      nPrn := PastaSistema+"\sumatrapdf.exe -print-to "+PrinterPortToName(PrnGetPort())+" -reuse-instance -lang br "

      WinExec( nPrn + cArq, 0 ) // sem preview

      //WinExec(PastaSistema+"\sumatrapdf.exe -reuse-instance -lang br "+cArq) // com preview
      //WinExec(PastaSistema+"\sumatrapdf.exe -print-to-default -reuse-instance -lang pt "+cArq) // sem preview

  ENDIF

/*
   IF(nRet#0)

      //WinExec(PastaSistema+"\sumatrapdf.exe -print-to "+nPrn+" -reuse-instance -lang br "+cArq) // sem preview

      //WinExec( "c:\sumatra\sumatrapdf.exe -print-to -reuse-instance -lang pt "+cFilePDF)   //-restrict -fullscreen
      WinExec( "c:\sumatra\sumatrapdf.exe -print-to "+" -lang br "+cFilePDF )



   ENDIF
*/

return nil
 

Code: Select all

// Impresion en BMP, JPG o PDF

// http://forums.fivetechsupport.com/viewtopic.php?f=6&t=38472

FUNCTION IMPDPF5()

   QuitProgamLoad( "AcroRd32.EXE" )  // Verifica si esta abierto el Acro...

   cFile := ".\Informes\Cierre Productor CSG N° "+AllTrim(PA18->CCSG)+".PDF"

   SET 3DLOOK OFF

   // cPrintPDF es una variable que contiene el nombre de una
   // impresora virtual PDF (doPDF v7)
   PRINTER oPrn TO cPrintPDF FILE cFile  PREVIEW      

   IF EMPTY( oPrn:hDC )
      RETURN NIL
   ENDIF

RETURN NIL

FUNCTION QuitProgamLoad( cProceso )

   LOCAL oBj, oServ, aProcess, objProcess

   TRY
      oBj := CreateObject( "wbemScripting.SwbemLocator" )
   CATCH
      Return nil
   END

   oServ     := oBj:ConnectServer()

   aProcess  := oServ:ExecQuery( "Select * from Win32_Process" )

   For Each objProcess in aProcess

      If UPPER(objProcess:Name) = UPPER(cProceso)
         objProcess:Terminate()
      ENDIF

   next

Return nil
 

Code: Select all

#include "FiveWin.ch"
#include "harupdf.ch"

FUNCTION Main()

   LOCAL oPdf, Page, oImage, oFont, Font1, Font2, Font3

   oPdf := HPDF_New()

   HPDF_SetCompressionMode( oPdf, HPDF_COMP_ALL )

   //*HPDF_SetPassword( oPdf, 'jaime', 'alberto' )

   page := HPDF_AddPage( oPdf )

   HPDF_Page_SetSize( page, 3, 0 ) //** 3 = A4 

   //**oImage:=HPDF_LoadJpegImageFromFile (oPdf,'png\Qr_demo.jpg')
   //**HPDF_Page_DrawImage(page, oImage, 100, 700, 100, 100)

   //HPDF_Page_SetRGBFill(page, 0.80, 0.80, 0.80) //** Para rellenar
   HPDF_Page_SetLineWidth( page, 0.5 ) // ** Grosor
   HPDF_Page_SetRGBStroke( page, 0.2, 0.6, 1.0 ) // ** Color
   HPDF_Page_Rectangle( page, 20, 760, 560, 70 )
   HPDF_Page_Stroke ( page ) //** Muestra el cuadro

   HPDF_Page_BeginText ( page )

   Font1 := HPDF_LoadTTFontFromFile( oPdf, 'C:\Windows\Fonts\Verdana.ttf', HPDF_TRUE )
   Font2 := HPDF_LoadTTFontFromFile( oPdf, 'C:\Windows\Fonts\Lucon.ttf', HPDF_TRUE )

   oFont := HPDF_GetFont( oPdf, Font1, "WinAnsiEncoding" )

   HPDF_Page_SetFontAndSize( page, oFont, 12 )
   HPDF_Page_TextOut( page, 100, 640, "Jaime Coronado 1" )

   oFont := HPDF_GetFont( oPdf, Font2, "WinAnsiEncoding" )

   HPDF_Page_SetFontAndSize( page, oFont, 9 )
   HPDF_Page_TextOut( page, 100, 700, "Jaime Coronado 2" )
   HPDF_Page_TextOut( page, 100, 670, "Programador" )
   HPDF_Page_EndText( page )

   HPDF_SaveToFile( oPdf, 'Prueba.pdf' )

   HPDF_Free( oPdf )

RETURN( nil )
 

Code: Select all

#include "FiveWin.ch"

static oWnd

FUNCTION Main()

   local oBar

   DEFINE WINDOW oWnd TITLE "Imprimir PDF"

   DEFINE BUTTONBAR oBar _3D OF oWnd

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\printer.bmp" FLAT ;
      ACTION( IMPRIMIR_PDF() ) TOOLTIP "Imprimir PDF" GROUP

   DEFINE BUTTON OF oBar FILENAME "..\bitmaps\16x16\Exit.bmp" FLAT    ;
      ACTION oWnd:End() TOOLTIP "Exit this app" GROUP

   SET MESSAGE OF oWnd TO "Imprimir PDF" NOINSET CLOCK DATE KEYBOARD

   ACTIVATE WINDOW oWnd

RETURN NIL

FUNCTION IMPRIMIR_PDF()

   // ASI, LLAMA EL ADOBE... 3
   ShellExecute(, "Print", "PROP15.PDF",,, 3 )  // Navarro

   // Con el SUMATRAPDF, no llama el adobe, es direto en la impresora.
   // Invisible.

RETURN NIL

// FIN
 

Code: Select all

#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