Este artigo irá explicar como gerar um arquivo PDF utilizando a classe FWMSPrinter para impressão via SPOOL, sem utilizar a tela de setup.

Configuração Inicial

Para gerar corretamente o arquivo PDF sem a tela de setup, o parâmetro cPrinter da classe FwMsPrinter() deve conter o nome completo da impressora, exemplo: "Microsoft Printer to PDF".

Código de Exemplo

Abaixo, segue um exemplo de código que demonstra como utilizar a classe FWMSPrinter para gerar um arquivo PDF:

#INCLUDE "RPTDEF.CH"
#INCLUDE "FWPrintSetup.ch"
#INCLUDE "TOTVS.ch"

User Function MyCod128()
local cCodBar := "789001006189"
Local cCodINt25 := "34190184239878442204400130920002152710000053475"
Local cLocal := ""
Local cPrinter := "Microsoft Print to PDF"
Local lAdjustToLegacy := .F.
Local lDisabeSetup := .T.
Local lPDFAsPNG := .F.
Local lRaw := .T.
Local lServer := .F.
local lTReport := .F.
Local lViewPDF := .T.
Local n := 0
Local nI := 0
Local nQtdCopy := 1
Local oPrint

rpcsetenv("99","01")

nLinC := 10 //Linha que será impresso o Código de Barra
nColC := 0.90 //Coluna que será impresso o Código de Barra
nWidth := 0.0164 //Numero do Tamanho da barra. Default 0.025 limite de largura da etiqueta ? 0.0164
nHeigth := 1.5 //Numero da Altura da barra. Default 1.5 --- limite de altura ? 0.3
lBanner := .T. //Se imprime a linha com o código embaixo da barra. Default .T.
nPFWidth := 0.2 //Número do índice de ajuste da largura da fonte. Default 1
nPFHeigth := 0.2 //Número do índice de ajuste da altura da fonte. Default 1
lCmtr2Pix := .T. //Utiliza o método Cmtr2Pix() do objeto Printer.Default .T.
cFilePrintert := "Boleto"+ALLTRIM(STR(int(SECONDS())))+"Nota"
cPathInServer := "\SPOOL\"//Caminho onde vai ser gerado o boleto grafico abaixo do System

for n:=1 to 1
cFilePrintert := "Boleto"+ALLTRIM(STR(int(SECONDS())))
cNameArq:=cPathInServer+cFilePrintert+".PDF"
oPrint := FWMSPrinter():New(cFilePrintert ,IMP_SPOOL/*IMP_PDF*/, lAdjustToLegacy, /*cPathInServer*/, lDisabeSetup , lTReport, /*@oPrintSetup*/, cPrinter, lServer, lPDFAsPNG, /*lRaw*/, /*lViewPDF*/, /*nQtdCopy*/ )
oPrint:SetResolution(72)
oPrint:SetPortrait()
oPrint:SetPaperSize(DMPAPER_A4)
oPrint:SetMargin(60,60,60,60) // nEsquerda, nSuperior, nDireita, nInferior
oPrint:cPathPDF:="C:\teste\"
oPrint:lInJob := .F.

oFont8 := TFont():New("Arial",9,8,.T.,.F.,5,.T.,5,.T.,.F.)
oFont10 := TFont():New("Arial",9,10,.T.,.T.,5,.T.,5,.T.,.F.)
oFont20 := TFont():New("Arial",9,20,.T.,.T.,5,.T.,5,.T.,.F.)

oPrint:StartPage() // Inicia uma nova página
nRow1 := 1
oPrint:Line (nRow1+0100,500,nRow1+0070, 500)
oPrint:Line (nRow1+100,100,nRow1+0100,710)
oPrint:Say (nRow1+0080,100,"Itaú Unibanco",oFont10 ) // [2]Nome do Banco
oPrint:Say (nRow1+0080,513,"341"+"-7",oFont20 ) // [1]Numero do Banco
oPrint:Say (nRow1+0110,100,"Código digitável",oFont8 )
oPrint:Say (nRow1+0120,100,"remetente | remetente" ,oFont8 )
oPrint:FWMSBAR("INT25" /*cTypeBar*/,11/*nRow*/ ,10/*nCol*/, cCodINt25/*cCode*/,oPrint/*oPrint*/,.T./*lCheck*/,/*Color*/,.T./*lHorz*/,0.02/*nWidth*/,0.8/*nHeigth*/,.T./*lBanner*/,"Arial"/*cFont*/,NIL/*cMode*/,.F./*lPrint*/,2/*nPFWidth*/,2/*nPFHeigth*/,.F./*lCmtr2Pix*/)
oPrint:QRCode(0300,100,"QR Code gerado com sucesso", 100)
oPrint:DataMatrix(300,300,"DataMatrix gerado com sucesso", 100)
oPrint:EndPage() // Finaliza a pagina
oPrint:Print() //efetua geração do rel em estado de Job
NEXT

Return

 

 

Referências adicionais

Para saber mais sobre a classe FWMSPrinter, visite o site da [TOTVS](https://tdn.totvs.com/display/public/PROT/FWMsPrinter).