Tempo aproximado para leitura: 00:02:00 min
Dúvida
Tenho um fonte customizado que imprime códigos de barras no formato EAN13 utilizando a função MsBar3(), contudo o mesmo tem apresentado algumas inconsistências na impressão.
MsBar3("EAN13", 0.5, 0.9, cCode, oPrinter, .F., NIL, .T., 0.029, 0.6, .F., NIL, NIL, .F.)
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80
Solução
A função MsBar3() pertence a classe TMSPrinter(), a qual foi descontinuada, desta forma, não sofrendo mais manutenções ou melhorias.
Contudo, para a mesma tratativa, foi disponibilizada a classe FwMsPrinter() em conjunto com o método método FwMsBar().
Exemplo
#Include "TOTVS.ch"
#Include "RPTDEF.ch"
User Function INT25()
Local cFile := "0001"
Local cCode := "1234567890128"
Local lLegacy := .T.
Local lSetup := .T.
Local oPrinter := NIL
RPCSetEnv("99", "01")
oPrinter := FwMsPrinter():New(cFile, IMP_PDF, lLegacy, NIL, lSetup, NIL, NIL, NIL, NIL, .F.)
oPrinter:SetPaperSize(DMPAPER_A4)
oPrinter:SetResolution(72)
oPrinter:SetPortrait()
oPrinter:StartPage()
oPrinter:cPathPDF := "C:\Temp\"
oPrinter:FwMsBar("EAN13", 0.5, 0.9, cCode, oPrinter, .F., NIL, .T., 0.029, 0.6, .F., NIL, NIL, .F.)
oPrinter:EndPage()
oPrinter:Preview()
FreeObj(oPrinter)
RPCClearEnv()
Return (NIL)
Saiba mais
Cross Segmento - TOTVS Backoffice Linha Protheus - ADVPL - Método INT25
0 Comentários