quinta-feira, 4 de fevereiro de 2010

Exemplo simples de um código de etiqueta para impressora zebra

...
Local nQtdeEtiq
Local cEndereco
Local cCodBar
Local cCodigo
Local cDescricao
Local cPorta := "LPT1:"

MSCBPrinter("ZEBRA",cPorta,,50,.F.,,,,10,)
MSCBCHKStatus(.f.)

MSCBBegin(nQtdeEtiq,4)
MSCBBox(003,003,097,048,003)

MSCBSay(10, 05, cEndereco, "N", "G", "90,50", .F.)
MSCBSayBar(10,18 ,AllTrim(cCodBar),"N","C",10)
MSCBSay(10, 32, cCodigo, "N", "E", "50,20", .F.)
MSCBSay(10, 41, cDescricao, "N", "E", "40,20", .F.)

MSCBEND()
...

Nenhum comentário: