Nesse vídeo demonstraremos a utilização da função PrinterPreview, que serve para abrir um relatório gerado pelo sistema, por exemplo, aqueles arquivos com a extensão prt.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
#Include "TopConn.ch"
/*/{Protheus.doc} User Function zExe392
Abre um arquivo gerado pelo printer.exe antes da impressão
@type Function
@author Atilio
@since 28/03/2023
@obs
Função PrinterPreview
Parâmetros
Objeto que terá o arquivo aberto
Retorno
Função não tem retorno
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe392()
Local aArea := FWGetArea()
Local cArqRelat := ""
Local oPrinter
//Definindo o arquivo que será aberto
cArqRelat := "\spool\matr680.prt"
//Criando um objeto de impressão e setando o arquivo
oPrinter := TMSPrinter():New()
oPrinter:SetFile(cArqRelat,.F.)
oPrinter:SetPortrait()
oPrinter:SetPaperSize(9)
//Exibe o relatório em tela
PrinterPreview(oPrinter)
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
