COMO CRIAR RELATORIOS PARA MINI IMPRESSORAS

EXEMPLO DE USO (METODO CLICK)

*- variaveis PUBLICAS para utilizar quando for montar algum tipo de relatorio para mini impressoras

_comando_imp_abre_expandido = ”

_comando_imp_fech_expandido = ”

_comando_imp_abre_negrito = ”

_comando_imp_fech_negrito = ”

_comando_imp_guilhotina = ”

_LinhasentreCupons = 6

*- Chama metodo para configurar os caracteres de controle da impressora, de acordo com o modelo

*- MODELOS ATUAIS: GENERICO, BEMATECH, EPSON, DARUMA

Impressora_matrical_ConfigurarCaracteresdeControle(ALLTRIM(UPPER(‘BEMATECH’)))

IF FILE(‘print.prn’)

ERASE print.prn

ENDIF

_arq = FCREATE(‘print.prn’)

FPUTS(_arq,_comando_imp_abre_expandido + ‘EXPANDIDO’ + _comando_imp_fech_expandido )

FPUTS(_arq,’TESTE IMPRESSAO COMUM’)

FPUTS(_arq,’TESTE IMPRESSAO COMUM’)

FPUTS(_arq,_comando_imp_abre_negrito + ‘NEGRITO’ + _comando_imp_fech_negrito )

FPUTS(_arq,’TESTE IMPRESSAO COMUM’)

FPUTS(_arq,’TESTE IMPRESSAO COMUM’)

FPUTS(_arq,REPLICATE(‘.’,40))

FPUTS(_arq,PADL(_comando_imp_abre_negrito+ALLTRIM(‘[ AUTOCOM 3]’)+_comando_imp_fech_negrito,40))

FOR _i = 1 TO _LinhasentreCupons

FPUTS(_arq,SPACE(40))

ENDFOR

FPUTS(_arq,_comando_imp_guilhotina)

FCLOSE(_arq)

TRY

*- EXEMPLOS DE ENVIO PARA A IMPRESSORA

COPY FILE print.prn TO \\localhost\epson

COPY FILE print.prn TO COM3:

COPY FILE print.prn TO \\192.168.1.1\GEN

COPY FILE print.prn TO ‘&Balcao_PortaImpressora’    && IMPRESSORA PREVENDA

COPY FILE print.prn TO ‘&PathImp1’            && IMPRESSORA COMANDA 1

COPY FILE print.prn TO ‘&PathImp2’            && IMPRESSORA COMANDA 2

COPY FILE print.prn TO ‘&PathImp3’            && IMPRESSORA COMANDA 3

COPY FILE print.prn TO ‘&PathImp4’            && IMPRESSORA COMANDA 4

COPY FILE print.prn TO ‘&PathImp5’            && IMPRESSORA COMANDA 5

CATCH TO oerr

SIX_EXIBIR_ERRO_TRY_CATH_LOGERROS()

ENDTRY

ERASE print.prn

*————

FUNCTION Impressora_matrical_ConfigurarCaracteresdeControle

LPARAMETERS _modelo

_comando_imp_abre_expandido = ”

_comando_imp_fech_expandido = ”

_comando_imp_abre_negrito = ”

_comando_imp_fech_negrito = ”

_comando_imp_guilhotina = CHR(27)+’m’

_LinhasentreCupons = 6

DO CASE

CASE _modelo = ‘GENERICO’

    _comando_imp_abre_expandido = ”

    _comando_imp_fech_expandido = ”

    _comando_imp_abre_negrito = ”

    _comando_imp_fech_negrito = ”

    _comando_imp_guilhotina = CHR(27)+’m’

    _LinhasentreCupons = 6

CASE _modelo = ‘BEMATECH’

    _comando_imp_abre_expandido = CHR(14)

    _comando_imp_fech_expandido = CHR(20)

    _comando_imp_abre_negrito = CHR(27)+’@’+CHR(27)+’E’

    _comando_imp_fech_negrito = CHR(27)+’@’

    _comando_imp_guilhotina = CHR(27)+’i’

    _LinhasentreCupons = 0

CASE _modelo = ‘DARUMA’

    _comando_imp_abre_expandido = CHR(14)

    _comando_imp_fech_expandido = CHR(20)

    _comando_imp_abre_negrito = CHR(27)+’@’+CHR(27)+’E’

    _comando_imp_fech_negrito = CHR(27)+’@’

    _comando_imp_guilhotina = CHR(27)+’m’

    _LinhasentreCupons = 5

CASE _modelo = ‘EPSON’

    _comando_imp_abre_expandido = CHR(27)+’@’+CHR(29)+’!0′

    _comando_imp_fech_expandido = CHR(10)+CHR(13)+CHR(27)+’@’

    _comando_imp_abre_negrito = CHR(27)+’E1′

    _comando_imp_fech_negrito = CHR(27)+’E0′

    _comando_imp_guilhotina = CHR(27)+’m’

    _LinhasentreCupons = 3

OTHERWISE

    _comando_imp_abre_expandido = ”

    _comando_imp_fech_expandido = ”

    _comando_imp_abre_negrito = ”

    _comando_imp_fech_negrito = ”

    _comando_imp_guilhotina = CHR(27)+’m’

    _LinhasentreCupons = 6

ENDCASE

RETURN(.T.)

*———-

Print Friendly, PDF & Email