Histórico da Página

A FWMSPRINTER tem os formarto ITF14 ou DUN14 ?

O DUN14 tem as mesmas características do metodo INT25 já existente na FWMsPrinter.

Imprime codigo de barra no padrão Int25

@param nRow Posição relativa ao topo
@param nCol Posição relativa à esquerda
@param cCodeBar Texto a ser codificado
@param nWidth Largura da Barra
@param nHeight Altura da Barra
@param lSay Indica se deve colocar say com o conteúdo em baixo do código de barras
@param lCheck Indica se deve calcular o digito verificador

//--------------------------------------------------------------
Method Int25(nRow,nCol,cCodeBar,nWidth,nHeight,lSay,lCheck,oFont) Class FWMSPrinter

///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////

Exemplo de customização

#Include "PROTHEUS.CH
#Include "RPTDEF.CH"
#INCLUDE "TBICONN.CH"

User Function Int25()

Local oFont := TFont():New('Courier new',,-16,.T.)

local cLineDig := ""

Local lAdjustToLegacy := .T.

Local lDisableSetup := .T.

Local cNUM:="0001" //É O NOME DO BOLETO NO MEU CASO O CODIGO DA NOTA

Local CodBarras := "23793047089000000042384022562100266430000100000" //CODIGO DE BARRAS A SE DECODIFICADO

Private oPrn

PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"

oPrn := FWMSPrinter():New(cNUM,IMP_PDF,lAdjustToLegacy,,lDisableSetup,,,,,.F.)//instaciando a classe

oPrn:SetResolution(72)

oPrn:SetPortrait()

oPrn:SetPaperSize(DMPAPER_A4)

oPrn:StartPage()

oPrn:cPathPDF := "c:\Temp\"

oPrn:Int25(000800,300,CodBarras,0.73,40,.F.,.F., oFont)

oPrn:EndPage()

oPrn:Preview()

FreeObj(oPrn)

RESET ENVIRONMENT

Return