No vídeo de hoje, vamos demonstrar em como fazer linhas mais grossas num relatório com FWMSPrinter.
A dúvida de hoje, nos perguntaram, se seria possível em um relatório feito utilizando FWMSPrinter, fazer linhas mais grossas.
Pensando nisso, montamos um exemplo, onde vamos mostrar em como usar o método FillRect para fazer linhas mais grossas.
Segue abaixo o vídeo exemplificando:
E abaixo o código fonte desenvolvido:
//Bibliotecas
#Include "tlpp-core.th"
#Include "Totvs.ch"
#Include "TopConn.ch"
#Include "RPTDef.ch"
#Include "FWPrintSetup.ch"
//Declaração da namespace
Namespace custom.terminal.youtube
//Alinhamentos
#Define PAD_LEFT 0
#Define PAD_RIGHT 1
#Define PAD_CENTER 2
#Define PAD_JUSTIFY 3 //Opção disponível somente a partir da versão 1.6.2 da TOTVS Printer
//Cor(es)
Static nColorGrey := RGB(110, 110, 110) As Numeric
Static nColorGreen := RGB(000, 208, 028) As Numeric
/*/{Protheus.doc} User Function video0188
Testes de linhas
@author Atilio
@since 28/02/2024
@version 1.0
@type function
@obs Codigo gerado automaticamente pelo Autumn Code Maker
@see http://autumncodemaker.com
@example custom.terminal.youtube.u_video0188()
/*/
User Function video0188()
Local aArea := FWGetArea() As Array
//Cria as o relatorio
Processa({|| printReport()})
FWRestArea(aArea)
Return
/*/{Protheus.doc} printReport
Faz a impressão do relatório video0188
@author Atilio
@since 28/02/2024
@version 1.0
@type function
@obs Codigo gerado automaticamente pelo Autumn Code Maker
@see http://autumncodemaker.com
/*/
Static Function printReport()
Local aArea := FWGetArea() As Array
Local cFile := '' As Character
Private oPrintPDF As Object
Private oBrush := TBrush():New(, RGB(000, 000, 000)) As Object
Private cTimeReport := Time() As Character
Private nCurrentPage := 1 As Numeric
Private cCompanyLogo := defineCompanyLogo() As Character
//Linhas e colunas
Private nCurrentLine := 0 As Numeric
Private nBottomMargin := 800 As Numeric
Private nLeftMargin := 010 As Numeric
Private nRightMargin := 580 As Numeric
Private nMiddleColumn := (nRightMargin - nLeftMargin) / 2 As Numeric
//Declarando as fontes
Private cFont := 'Arial' As Character
Private oDetailFont := TFont():New(cFont, /*uPar2*/, -11, /*uPar4*/, .F.) As Object
Private oFooterFont := TFont():New(cFont, /*uPar2*/, -8, /*uPar4*/, .F.) As Object
Private oTitleFont := TFont():New(cFont, /*uPar2*/, -15, /*uPar4*/, .T.) As Object
//Define o nome do relatório em PDF
cFile := 'video0188_'+RetCodUsr()+'_' + dToS(Date()) + '_' + StrTran(cTimeReport, ':', '-') + '.pdf'
//Criando o objeto de impressao
oPrintPDF := FWMSPrinter():New(;
cFile,; // cFilePrinter
IMP_PDF,; // nDevice
.F.,; // lAdjustToLegacy
,; // cPathInServer
.T.,; // lDisabeSetup
,; // lTReport
@oPrintPDF,; // oPrintSetup
,; // cPrinter
,; // lServer
,; // lParam10
,; // lRaw
.T.; // lViewPDF
)
oPrintPDF:cPathPDF := GetTempPath()
oPrintPDF:SetResolution(72)
oPrintPDF:SetPortrait()
oPrintPDF:SetPaperSize(DMPAPER_A4)
oPrintPDF:SetMargin(0, 0, 0, 0)
//Inicia a página imprimindo o cabeçalho
printHeader()
//Linha comum
oPrintPDF:SayAlign(nCurrentLine, nMiddleColumn-200, "Line Comum (default -2)", oTitleFont, 400, 20, nColorGrey, PAD_CENTER, /*nAlignVert*/)
nCurrentLine += 20
oPrintPDF:Line(nCurrentLine, nLeftMargin + 50, nCurrentLine, nRightMargin - 50, /*nColor*/, /*cPixel*/)
//Linha -1
nCurrentLine += 30
oPrintPDF:SayAlign(nCurrentLine, nMiddleColumn-200, "Line -1", oTitleFont, 400, 20, nColorGrey, PAD_CENTER, /*nAlignVert*/)
nCurrentLine += 20
oPrintPDF:Line(nCurrentLine, nLeftMargin + 50, nCurrentLine, nRightMargin - 50, /*nColor*/, "-1")
//Linha -5
nCurrentLine += 30
oPrintPDF:SayAlign(nCurrentLine, nMiddleColumn-200, "Line -5", oTitleFont, 400, 20, nColorGrey, PAD_CENTER, /*nAlignVert*/)
nCurrentLine += 20
oPrintPDF:Line(nCurrentLine, nLeftMargin + 50, nCurrentLine, nRightMargin - 50, /*nColor*/, "-5")
//FillRect com 7 Pixels
nCurrentLine += 30
oPrintPDF:SayAlign(nCurrentLine, nMiddleColumn-200, "FillRect com 7 pixels", oTitleFont, 400, 20, nColorGrey, PAD_CENTER, /*nAlignVert*/)
nCurrentLine += 20
oPrintPDF:FillRect({nCurrentLine, nLeftMargin + 50, nCurrentLine + 7, nRightMargin - 50}, oBrush)
//FillRect com 10 Pixels
nCurrentLine += 30
oPrintPDF:SayAlign(nCurrentLine, nMiddleColumn-200, "FillRect com 10 pixels", oTitleFont, 400, 20, nColorGrey, PAD_CENTER, /*nAlignVert*/)
nCurrentLine += 20
oPrintPDF:FillRect({nCurrentLine, nLeftMargin + 50, nCurrentLine + 10, nRightMargin - 50}, oBrush)
//FillRect com 13 Pixels
nCurrentLine += 30
oPrintPDF:SayAlign(nCurrentLine, nMiddleColumn-200, "FillRect com 13 pixels", oTitleFont, 400, 20, nColorGrey, PAD_CENTER, /*nAlignVert*/)
nCurrentLine += 20
oPrintPDF:FillRect({nCurrentLine, nLeftMargin + 50, nCurrentLine + 13, nRightMargin - 50}, oBrush)
//FillRect com 16 Pixels
nCurrentLine += 30
oPrintPDF:SayAlign(nCurrentLine, nMiddleColumn-200, "FillRect com 16 pixels", oTitleFont, 400, 20, nColorGrey, PAD_CENTER, /*nAlignVert*/)
nCurrentLine += 20
oPrintPDF:FillRect({nCurrentLine, nLeftMargin + 50, nCurrentLine + 16, nRightMargin - 50}, oBrush)
//Imprime o último rodapé e abre o PDF
printFooter()
oPrintPDF:Preview()
FWRestArea(aArea)
Return
/*/{Protheus.doc} defineCompanyLogo
Função que retorna o logo da empresa conforme configuração da DANFE
@author Atilio
@since 28/02/2024
@version 1.0
@type function
@obs Codigo gerado automaticamente pelo Autumn Code Maker
@see http://autumncodemaker.com
/*/
Static Function defineCompanyLogo()
Local cLogo := "\x_imagens\logo.png" As Character
Return cLogo
/*/{Protheus.doc} printHeader
Função que imprime o cabeçalho do relatório
@author Atilio
@since 28/02/2024
@version 1.0
@type function
@obs Codigo gerado automaticamente pelo Autumn Code Maker
@see http://autumncodemaker.com
/*/
Static Function printHeader()
Local cTexto := '' As Character
Local nLinhaCabecalho := 015 As Numeric
//Iniciando Pagina
oPrintPDF:StartPage()
//Imprime o logo
If File(cCompanyLogo)
oPrintPDF:SayBitmap(005, nLeftMargin, cCompanyLogo, 030, 030)
EndIf
//Cabecalho
cTexto := 'Testes Linhas'
oPrintPDF:SayAlign(nLinhaCabecalho, nMiddleColumn-200, cTexto, oTitleFont, 400, 20, nColorGreen, PAD_CENTER, /*nAlignVert*/)
//Linha Separatoria
nLinhaCabecalho += 020
oPrintPDF:Line(nLinhaCabecalho, nLeftMargin, nLinhaCabecalho, nRightMargin, nColorGreen)
//Atualizando a linha inicial do relatorio
nCurrentLine := nLinhaCabecalho + 5
Return
/*/{Protheus.doc} printFooter
Função que imprime o rodapé e encerra a página
@author Atilio
@since 28/02/2024
@version 1.0
@type function
@obs Codigo gerado automaticamente pelo Autumn Code Maker
@see http://autumncodemaker.com
/*/
Static Function printFooter()
Local nLinhaRodape := nBottomMargin As Numeric
Local cTexto := '' As Character
//Linha Separatoria
oPrintPDF:Line(nLinhaRodape, nLeftMargin, nLinhaRodape, nRightMargin, nColorGreen)
nLinhaRodape += 3
//Dados da Esquerda
cTexto := dToC(dDataBase) + ' ' + cTimeReport + ' ' + FunName() + ' (video0188) ' + UsrRetName(RetCodUsr())
oPrintPDF:SayAlign(nLinhaRodape, nLeftMargin, cTexto, oFooterFont, 500, 10, /*nClrText*/, PAD_LEFT, /*nAlignVert*/)
//Direita
cTexto := 'Pagina '+cValToChar(nCurrentPage)
oPrintPDF:SayAlign(nLinhaRodape, nRightMargin-40, cTexto, oFooterFont, 040, 10, /*nClrText*/, PAD_RIGHT, /*nAlignVert*/)
//Finalizando a pagina e somando mais um
oPrintPDF:EndPage()
nCurrentPage++
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
