Modelo de Etiqueta Zebra S600

#include "rwmake.ch"

//Desc. ³ Rotina para impressao da etiqueta cod.barras das caixas º±±


User Function RESTR001()

SetPrvt("_cProduto,_nQtdEtiq,oDlg3")

DbSelectArea("SB1")
_cProduto := CriaVar("B1_COD")
_nQtdEtiq := 0

@ 001,001 TO 220,250 DIALOG oDlg3 TITLE "Dados da Etiqueta Caixa"

@ 005,008 Say OemToAnsi("Produto:")
@ 005,050 GET _cProduto SIZE 060,11 F3 "SB1"

@ 020,008 Say OemToAnsi("Qtd. Etiquetas:")
@ 020,050 GET _nQtdEtiq SIZE 060,11 Picture "@E 999999"

@ 045,020 BmpButton Type 1 Action ImpEtiqCaixa()
@ 045,060 BmpButton Type 2 Action Close(oDlg3)

ACTIVATE DIALOG oDlg3 CENTERED

Return

Return(.T.)

//----------Imprimindo a Etiqueta da Caixa----------

Static Function ImpEtiqCaixa()

DbSelectArea("SB1")
DbSetORder(1)
If !dbSeek(xFilial("SB1") + _cProduto)
Alert("Produto não emcontrado, verifique!")
Return(.F.)
Else
_cDesc := SB1->B1_DESC
_cFabric := SB1->B1_FABRIC
_cCodBarra := _cProduto

Endif

MSCBPRINTER("S600","LPT1",NIL,,.F.,NIL,NIL,NIL,,1024,.T.)


For i:=1 to _nQtdEtiq


MSCBBEGIN(1,2)//inicio da montagem da imagem da etiqueta

//MSCBBOX(05,03,080,030,7)

// Inicio a impressao dos dados
// MSCBSAY(nXmm, nYmm, cTexto, cRotacao, cFonte, cTam, lReverso, lSerial, cIncr, lZerosL, lNoAlltrim)
MSCBSAY(08,004,"Codigo: "+_cProduto ,"N","0","035,045")
MSCBSAY(08,010,_cDesc ,"N","A","20,09")
MSCBSAY(08,013,"Prod. Orig.: " + _cFabric ,"N","A","20,09")
MSCBSAY(08,016,"XXX XXX XXX XXX Descrição 1" ,"N","A","18,08")
MSCBSAY(08,018,"XXX XXX XXX XXX Descrição 2" ,"N","A","18,08")
MSCBSAY(08,020,"XXX XXX XXX XXX Descrição 3" ,"N","A","18,08")
MSCBSAYBAR(25,23,_cCodBarra,"N","MB04",08,.F.,.F.,.F.,,3,1,.F.)
// MSCBSAYBAR(nXmm, nYmm, cConteudo, cRotacao, cTypePrt, nAltura, lDigVer, lLinha, lLinBaixo, cSubSetIni, nLargura, nRelacao, lCompacta, lSerial, cIncr, lZerosL)

MSCBEND()
Next

MSCBCLOSEPRINTER()

Close(oDlg3)

Return