Gerar PDF de um arquivo Html

Tenho um arquivo html gerado em Advpl. Esse html é um recibo de pagamento chamado no contas as pagar. Eu gostaria de gerar um pdf desse html sem a necessidade de abrir o html e teclar CTRL + P.

Usando o OLECREATELINK, sai todo desconfigurado.

Alguém tem alguma dica para fazer essa solução?

Você pode tentar utilizar uma biblioteca externa, como o WkHtmlToPdf.

Faça o download do WkHtmlToPdf e adicione o executavel em um diretório de fácil acesso: https://wkhtmltopdf.org/.

No fonte, você pode usar a função EXECSCRIPT para chamar o WkHtmlToPdf com o arquivo HTML

//Bibliotecas

Include "Protheus.ch"

USER FUNCTION ConvertHtmlToPdf()

LOCAL cHtmlFile := "C:\Caminho\Para\Seu\Arquivo\Input.html"

LOCAL cPdfFile := "C:\Caminho\Para\Seu\Arquivo\Output.pdf"

LOCAL cCommand

cCommand := "wkhtmltopdf """ + cHtmlFile + """ """ + cPdfFile + """"

EXECSCRIPT(cCommand)

IF FILE(cPdfFile)

MSGINFO("Arquivo PDF gerado com sucesso em " + cPdfFile)

ELSE

MSGINFO("Falha ao gerar o arquivo PDF")

ENDIF

RETURN NIL

cHtmlFile com o caminho para o seu arquivo HTML de entrada.

cPdfFile com o caminho onde o arquivo PDF de saída será salvo.

cCommand: string para chamar o WkHtmlToPdf com os caminhos dos arquivos HTML e PDF.

Boa tarde Andreas! Essa função EXECSCRIPT é padrão? Pq aqui está dizendo “Opcao nao disponivel no protheus”. E também está com erro de sintaxe nesta linha: cCommand := “wkhtmltopdf “”” + cHtmlFile + “”" “”" + cPdfFile + “”“”