como imprimir relatorio feito em html

[asimoes]

Porter,

Veja no anexo o coversor, basta o executável.

Sintaxe exemplo:

wkhtmltopdf.exe ROTINAS.HTML ROTINAS.PDF

[porter]

ola asimoes,
Acessei o topico abaixo, e tentei usar essa rotina para imprimir com sumatra, coloquei o SumatraPDF.exe dentro da pasta do sistema, está dando erro de compilação, acho que com xHarbour não da para compilar.

viewtopic.php?f=4&t=15225&p=89695&hilit=imprimir+um+documento+em+pdf+ja+pronto#p89695

Código: Selecionar todos

FUNCTION MAIN
	PRIVATE cPrinter:=WIN_PrinterGetDefault()  [b]<--- erro nessa linha[/b]
	   IMP_PDF("SEUPDF.PDF",.T.)
	RETURN Nil
	 
  	FUNCTION Imp_PDF( cSource,lEspera )
	LOCAL oShell, lOk:=.T., nStyle
	   HB_Default(@lEspera,.T.)                      [b]  <--- erro nessa linha[/b]
	   TRY
	      oShell:=win_OleCreateObject( "WScript.Shell" )
	   CATCH
	      TRY
	         oShell:=win_OleCreateObject( "WScript.Shell" ) [b]<--- erro nessa linha
[/b]	      CATCH
	         lOk:=.F.
	      END
	   END
	   IF lOk
	      TRY
	         /*
	         intWindowStyle
	         Description
	         0  Hides the window and activates another window.
	         1  Activates and displays a window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when displaying the window for the first time.
	         2  Activates the window and displays it as a minimized window.
	         3  Activates the window and displays it as a maximized window.
	         4  Displays a window in its most recent size and position. The active window remains active.
	         5  Activates the window and displays it in its current size and position.
	         6  Minimizes the specified window and activates the next top-level window in the Z order.
	         7  Displays the window as a minimized window. The active window remains active.
	         8  Displays the window in its current state. The active window remains active.
	         9  Activates and displays the window. If the window is minimized or maximized, the system restores it to its original size and position. An application should specify this flag when restoring a minimized window.
	         10 Sets the show-state based on the state of the program that started the application.
	         */
	         nStyle:=0
	 
	         oShell:Run("sumatrapdf.exe -print-to "+'"'+cPrinter+'"'+" -reuse-instance -lang pt "+'"'+cSource+'"', nStyle, lEspera)
	 
	      CATCH
	         lOk:=.F.
	      END
	      oShell:=Nil
	   ENDIF
	RETURN lOk

[asimoes]

Porter,

Essas funções são do harbour, você tem que usar equivalentes para xharbour.

Win_PrinterGetDefault() --> Harbour
GetDefaultPrinter() --> xHarbour

HB_Default() --> Harbour

Equivalente em xHarbour:

#include "common.ch"
DEFAULT lEspera TO .T.

oShell:=win_OleCreateObject( "WScript.Shell" ) --> Harbour
oShell:=CreateObject( "WScript.Shell" ) --> xHarbour

[porter]

bom dia asimôes,
Agora deu certo, obrigado.