Ocorrência
Ao utilizar as funções "MSCBPRINTER" não sai nenhuma impressão e também não me da nenhum tipo de erro.
Ambiente
Cross Segmento - TOTVS Backoffice (Linha Protheus) – ADVPL – A partir da versão 12.1.17
Solução
Segue exemplo de teste da impressora térmica zebra
^XA
^PR6
^PQ1
^FO80,32^BY5,1,96^BCMB07, 96,Y,N,N,N^FDABC12345^FS
^XZ
No caso o código a ser gerado é ABC12345.
Grave essas informações em um arquivo de texto e realize o seguinte comando no CMD para verificarmos o comportamento.
print LPT1 C:\localdoarquivo\nomedoarquivo.txt
Teste de impressão utilizando a classe MSCB
#Include 'Protheus.ch'
#INCLUDE "TBICONN.CH" // BIBLIOTECA
User Function Impressora()
Local cPorta := "LPT1"
Local cModelo := "ZEBRA"
MSCBPRINTER(cModelo, cPorta,,10,.F.,,,,,,.F.,)
MSCBCHKSTATUS(.F.)
MSCBBEGIN(1,6)
MSCBSAY(10,10,"TESTE IMPRESSAO EM REDE", "N","A","040,030")
MSCBEND()
MSCBCLOSEPRINTER()
Return
Saiba Mais
MSCBPRINTER
0 Comentários