FiveTech Support Forums

// C:\FWH\SAMPLES\HTML2PDF.PRG - kapiabafwh@gmail.com - https://wkhtmltopdf.org/
// USE: wkhtmltopdf.exe

#include 'fivewin.ch'

FUNCTION Main()

   LOCAL cHtmlFile, cPdfFile, cWkHtmlToPdfPath, cCommand

   cHtmlFile := "C:\TEMP\CHAT.html"  // origem  -> ex: C\TEMP
   cPdfFile  := ".\OUTPUT.pdf"       // destino -> ex: C:\FWH\SAMPLES

   IF FILE( cPdfFile )

    FErase( cPdfFile )

   ENDIF

   IF FILE( cPdfFile )

     ? [AQUI, PROBLEMAS EN EL *.PDF]

     QUIT

     RETURN NIL

ENDIF

   // https://wkhtmltopdf.org/ ->  o de otro sitio mejor. a Tu gosto personal.
   // C:\wkhtml\bin  -> mi ejemplo en testes perfectos.
   // cWkHtmlToPdfPath := "C:\Path\To\wkhtmltopdf.exe" // Adjust path as necessary
   cWkHtmlToPdfPath := "C:\wkhtml\bin\wkhtmltopdf.exe"

   // Command to convert the HTML file to a PDF file
   cCommand := cWkHtmlToPdfPath + " " + cHtmlFile + " " + cPdfFile

   // Execute the command (uses 'RUN' for simplicity; other functions like HB_RUN might be better for capturing output/errors)
   // RUN ( cCommand )
   MYRUN ( cCommand )

   // Check if the file was created and handle errors
   IF FILE( cPdfFile ) // Si ejiste...

   // Success: proceed with opening or managing the PDF file
   MsgInfo( "PDF generated successfully!" )

   cCommand := "START " +cPdfFile

   // RUN ( cCommand )
   MYRUN ( cCommand )  // ADOBE ACROBAT

   ELSE

    // Error handling: might need to check command line exit code for detailed errors
    MsgStop( "Failed to generate PDF. Check if wkhtmltopdf is installed and accessible." )

   ENDIF

RETURN NIL

FUNCTION MYRUN( cComando )

   Local oShell, RET, lOk:=.T.

   TRY
      #IFDEF __XHARBOUR__
         oShell := CreateObject( "WScript.Shell" )
      #ELSE
         oShell := Win_OleCreateObject( "WScript.Shell" )
      #ENDIF

   CATCH

  TRY
     #IFDEF __XHARBOUR__
        oShell := CreateObject( "WScript.Shell" )
     #ELSE
        oShell := Win_OleCreateObject( "WScript.Shell" )
     #ENDIF

  CATCH

     lOk:=.F.

    END
   END

   IF lOk

  TRY

      //.F. = Nao espera a aplicacao fechar, .T. espera.
      oShell:Run( "%comspec% /c " + cComando, 0, .T. ) 

  CATCH

      lOk:=.F.

  END

  oShell := NIL

   ENDIF

   //--   RET := oShell:Run( "%comspec% /c " + cComando, 0)  //, .T. )

RETURN( lOk )

// FIN / END                     kapiabafwh@gmail.com