//-------------------------------------------------------------------
/*/{Protheus.doc} Code128b
Exemplo de uso da função Code128b()
@author FRAMEWORK
@since 23/09/2024
@version 1.0
/*/
//------------------------------------------------------------------
#Include "PROTHEUS.CH"
#Include "RPTDEF.CH"
#INCLUDE "TBICONN.CH"
User Function Code128b()
Local oPrinter := Nil
PREPARE ENVIRONMENT EMPRESA "99" FILIAL "01"
oPrinter := FWMSPrinter():New('teste',6,.F.,,.T.,,,,,.F.)
oPrinter:Setup()
oPrinter:setDevice(IMP_PDF)
oPrinter:cPathPDF :="C:\"
oPrinter:Say(10,0,"Teste para Code128b")
oPrinter:Code128b(100, 10, '1234567', 50)
oPrinter:EndPage()
oPrinter:Preview()
FreeObj(oPrinter)
oPrinter := Nil
RESET ENVIRONMENT
Return | 