Tempo aproximado para leitura: 00:03:00 min
Dúvida
Precisamos desenvolver uma etiqueta com fundo invertido é possível?
Estou utilizando a classe MSCBSAY.
Ambiente
Cross Segmentos - Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80
Solução
Conforme documentação da função MSCBSay o parâmetro lReverso imprime em reverso quando estiver sobre um box preto, desta forma se faz necessário definir um box utilizando a função MSCBBox. Para imprimir um box com fundo preto manipule o parâmetro nEspessura e defina "B" no cCor. Para exemplificar segue um teste, realizado na impressora Zebra modelo S600, nele imprimo um box com 1cm de altura com fundo preto e a string em branco.
Obs. recurso só está disponível para linguagem ZPL
Exemplo de teste
#include 'protheus.ch'
User Function MSCBWR()
// Exemplo usando o padrão de programação Zebra (família ZPL)
Local cPorta := "LPT1"
Local cModelo := "ZEBRA"
MSCBPRINTER(cModelo,cPorta, , , .F., , , , ,,.f. , )
MSCBCHKSTATUS(.F.)
cFonteT := "F"
cTam2 := "020,008" //15
MSCBBEGIN(1,4,10) //Inicio da Imagem da Etiqueta
MSCBBOX(1,1,100,10,40,"B") //Monta BOX
MSCBSAY(35,4.5,"TESTE FUNDO","N",cFonteT,cTam2,.T.)
MSCBEND()
MSCBCLOSEPRINTER()
Return
0 Comentários