Perguntas ETIQUETAS

Se for zebra pode usar até o TMSPRINTER

Segue um exemplo ai.


/////////////////////////////
Static Function Imprimir()
/////////////////////////////
//

Private oBrush // Variavies Auxiliares
Private lCabEtq := .T.
Private lBitMap := .F.
Private lBarra := 1
//
//
oPrint := TMSPrinter():New("Etiquetas de Produtos")
oPrint:Setup()
oPrint:SetPortrait()
// Fonte Tamanho Negrito
oFont8 := TFont():New("Arial", 9, 08, .T., .F., 5,,, .T., .F.,,,,,, oPrint)
oFont8n := TFont():New("Arial", 9, 08, .T., .T., 5,,, .T., .F.,,,,,, oPrint)
oFont9 := TFont():New("Arial", 9, 09, .T., .F., 5,,, .T., .F.,,,,,, oPrint)
oFont9n := TFont():New("Arial", 9, 09, .T., .T., 5,,, .T., .F.,,,,,, oPrint)
oFont10 := TFont():New("Arial", 9, 10, .T., .F., 5,,, .T., .F.,,,,,, oPrint)
oFont10n := TFont():New("Arial", 9, 10, .T., .T., 5,,, .T., .F.,,,,,, oPrint)
oFont12 := TFont():New("Arial", 9, 12, .T., .F., 5,,, .T., .F.,,,,,, oPrint)
oFont12n := TFont():New("Arial", 9, 12, .T., .T., 5,,, .T., .F.,,,,,, oPrint)
oFont13 := TFont():New("Arial", 9, 13, .T., .F., 5,,, .T., .F.,,,,,, oPrint)
oFont13n := TFont():New("Arial", 9, 13, .T., .T., 5,,, .T., .F.,,,,,, oPrint)
oFont14 := TFont():New("Arial", 9, 14, .T., .F., 5,,, .T., .F.,,,,,, oPrint)
oFont14n := TFont():New("Arial", 9, 14, .T., .T., 5,,, .T., .F.,,,,,, oPrint)
oFont16 := TFont():New("Arial", 9, 16, .T., .F., 5,,, .T., .F.,,,,,, oPrint)
oFont16n := TFont():New("Arial", 9, 16, .T., .T., 5,,, .T., .F.,,,,,, oPrint)
oFont18 := TFont():New("Arial", 9, 18, .T., .F., 5,,, .T., .F.,,,,,, oPrint)
oFont18n := TFont():New("Arial", 9, 18, .T., .T., 5,,, .T., .F.,,,,,, oPrint)
oFont24 := TFont():New("Arial", 9, 24, .T., .F., 5,,, .T., .F.,,,,,, oPrint)
oFont24n := TFont():New("Arial", 9, 24, .T., .T., 5,,, .T., .F.,,,,,, oPrint)
//
oBrush := TBrush():New("", 4)
//

xCols := oGetDados:aCols

For nItem := 1 To Len(xCols)
If xCols[nItem,1] == 'LBOK'
For nCopia := 1 To xCols[nItem,6] // Numero de Vias da Etiqueta
oPrint:StartPage()

SB1->(dbSetOrder(1), dbSeek(xFilial("SB1")+xCols[nItem,2]))
SC6->(dbSetOrder(2), dbSeek(xFilial("SC6")+SB1->B1_COD+SC5->C5_NUM))

nLinha := 070 // Linha InItemcial em Pixels
nColuna := 050 // Coluna InItemcial em Pixels

oPrint:sayBitmap(nLinha,nColuna,"logo.bmp",330,120)

cDesc := AllTrim(SB1->B1_COD)+' - ' + SB1->B1_DESC
nLinha := 060
For nx:=1 to MlCount(cDesc,30)
oPrint:Say(nLinha,400,MemoLine(cDesc,30,nx),oFont12n,,0)
nLinha += 60
Next

nLinha += 080
oPrint:Say(nLinha, nColuna, SC5->C5_CLIENTE+'/'+SC5->C5_LOJACLI+' - ' + Capital(Posicione("SA1",1,xFilial("SA1")+SC5->C5_CLIENTE+SC5->C5_LOJACLI,"A1_NOME")), oFont10n)

nLinha += 070
oPrint:Say(nLinha, nColuna, "Fone:", oFont10)
oPrint:Say(nLinha, nColuna+100, SA1->A1_DDD + ' ' + SA1->A1_TEL, oFont10n)
If Empty(SC5->C5_NOTA)
oPrint:Say(nLinha, nColuna+400, "Pedido:", oFont10)
oPrint:Say(nLinha, nColuna+530, SC5->C5_NUM, oFont10n)
Else
oPrint:Say(nLinha, nColuna+400, "Nota:", oFont10)
oPrint:Say(nLinha, nColuna+530, SC5->C5_NOTA+'/'+SC5->C5_SERIE, oFont10n)
Endif
oPrint:Say(nLinha, nColuna+800, "Peso:", oFont10)
oPrint:Say(nLinha, nColuna+900, TransForm(Round(xCols[nItem,5]*SB1->B1_PESO,4),"@E 99,999.9999"), oFont10n)

nLinha += 060
oPrint:Say(nLinha, nColuna, "Unidade:", oFont10)
oPrint:Say(nLinha, nColuna+160, SB1->B1_UM, oFont10n)

oPrint:Say(nLinha, nColuna + 300, "Qtde:", oFont10)
oPrint:Say(nLinha, nColuna+400, TransForm(xCols[nItem,5],PesqPict("SC6","C6_QTDVEN")), oFont10n)
nLinha += 060
oPrint:Say(nLinha, nColuna, "No Pedido Cliente:", oFont10)
oPrint:Say(nLinha, nColuna+300, SC5->C5_PEDCLI, oFont10n)
nLinha += 060
oPrint:Say(nLinha, nColuna, "Cód.Prod.Cliente::", oFont10)
If SA7->(dbSetOrder(2), dbSeek(xFilial("SA7")+SB1->B1_COD+SC5->C5_CLIENTE+SC5->C5_LOJACLI))
oPrint:Say(nLinha, nColuna+300, SA7->A7_CODCLI, oFont10n)
Endif
cCodBar := Iif(!Empty(SB1->B1_CODBAR),SB1->B1_CODBAR,'7898472230017')

MSBAR("INT25" ,3.6,5.5,Alltrim(cCodBar),oPrint,.F.,,.T.,0.028,0.9,,,"A",.F.)

oPrint:EndPage()
Next
Endif
Next
oPrint:Preview() // Visualiza Antes de Imprimir, oPrint:Print() Imprime Direto na Impressora
oPrint:End()
//
Return(.T.)

segue exemplo anexo.