How to show and print a pdf file?

[vilian]

Hi Guys,

I have a PDF file that i must to show and possibly allow the user print it. how could i to do this?

[karinha]

Code: Select all  Expand view

   ShellExecute( 0, "Print", WNOMBREARQPDF,,, 3 )
 

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

Regards, saludos.

[vilian]

Thank you. I'll try it.

[vilian]

Karinha,
This command prints the PDF directly and I wanted to show it before print. Is it possible ?

[leandro]

try

Code: Select all  Expand view

Shellexecute( 0, "Open", WNOMBREARQPDF )
 

[karinha]

Vilian, eu uso o PDFMACHINE White(Impressoara Virtual) e o SUMATRAPDF.exe para visualizar(bem levinho).

https://broadgun.com/pdfmachine/pdfmachine-white/

https://www.sumatrapdfreader.org/free-pdf-reader

Muito simples de usar.

abs.

Regards, saludos.

[Marc Venken]

I show my PDF from a Xbrowse. Put link to pdf in Xbrowse or a reference.

R-Click and show a popup with option to view, print, etc..
Works very well.

Code: Select all  Expand view

//  Xbrowse
   :bRClicked        := {|nRow, nCol| PopRappel( nRow,nCol, oOmzet ),oOmzet:refresh() }


procedure Poprappel( nRow,nCol, oBrw )
local oMenu
   czieFact = "\\CAROLIEN-PC\DATA\EXEL\"+str(facturen->factuur,6)+".pdf"
   MENU oMenu POPUP
      MENUITEM "Mark Selection" ACTION   markrappels( oBrw )
      MENUITEM "Show PDF" ACTION  shellexecute( 0, "OPEN" , cZiefact)
      MENUITEM "Print PDF" ACTION  druk_fac()
   ENDMENU
   ACTIVATE POPUP oMenu AT nRow, nCol OF oBrw
return NIL

[karinha]

Perfect Marc.

Code: Select all  Expand view

#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()

   //ShellExecute(, "Print", "C:\TEMP\FWINTRO.PDF",,, 3 )  // Navarro

   ShellExecute( 0, "OPEN", "C:\TEMP\FWINTRO.PDF" )       // Acrobat

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

RETURN NIL

// FIN
 

Regards, saludos.

[vilian]

Thank you Guys

[Antonio Linares]

You can easily have a great PDF viewer using Class TWebView (and now using the new Class TWebView2 that does not require DLLs)

[vilian]

Mr Antonio,
Is there an example of that ?

[alerchster]

Code: Select all  Expand view

#include "fivewin.ch"

function Main()

   local cFile, aGetFiles:={}, i

   FW_SetUnicode( .f. )

   cFile := cGetFile( "select one file  (*.pdf)|*.pdf|", ;
            "webview pdf" )
   webview( cFile )
   
   aGetFiles:=aGetFiles( "multiselect (*.pdf)|*.pdf|", "Multiple webview pdf" )
   XBrowser( aGetFiles )
   for i=1 to len(aGetFiles)
      webview(aGetFiles[i])
   next

return nil
 
 

function webview(cFile)
   local oWebView
   
   if cFile=NIL
      return nil
   endif
   
   oWebView:= TWebView():New()

   oWebView:Navigate(cfile)
   oWebView:SetTitle( "Microsoft Edge WebView working from FWH" )
   oWebView:SetSize( 1200, 800 )
   oWebView:Run()
   oWebView:Destroy()
return nil

 

[vilian]

Thank you,

With your sample, which dll file i must save together my system ?

[Antonio Linares]

Vilian,

If you use the new Class TWebView2 in FWH 24.02 then you don't need any DLL