Samir, veja o exemplo abaixo, totalmente funcional:
function etiq_zebra()
private CRLF
CRLF:=chr(13)+chr(10)
clinhal1c1 := "IMPRESSORA ZEBRA 2844"
clinhal2c1 := [R$ ]+transform(850.00,[@E 999999.99])
HANDLE:=FCREATE("\tmp\etiqueta.lbl",0)
// LIMPA O BUFFER DA IMPRESSORA
etiq_txt= [N]+CRLF
// TEMPERATURA DA CABEÇA DE IMPRESSÃO / ACIMA DE 15 DANIFICA
etiq_txt= etiq_txt +[D7]+CRLF
// VELOCIDADE
etiq_txt= etiq_txt +[s2]+CRLF
// ESPAÇO
etiq_txt= etiq_txt +[Q100,20]+CRLF
// DESCRIÇÃO
etiq_txt= etiq_txt +[A000,28,0,3,1,1,N,"]+clinhal1c1+["]+CRLF
// PREÇO
etiq_txt= etiq_txt +[A250,95,0,5,1,1,N,"]+clinhal2c1+["]+CRLF
// IMPRIME A ETIQUETA
etiq_txt= etiq_txt +[P1] + chr(10)
Fwrite(HANDLE,etiq_txt)
Fclose(HANDLE)
nPrn := PrintFileRaw(prngetname(),"\tmp\etiqueta.lbl", "Impressão Etiquetas Zebra tlp2844")
return nil
Paulo Ramalho Alves da Silva
Analista de TI
Mister Abaco Software Ltda
Lagoa Santa / MG