Impressão de Etiquetas com Letras e Numeros Grandes

Ricardo Sales Ribeiro · Mensagem por **Ricardo Sales Ribeiro** » 21 Dez 2005 15:54

Boa tarde!

Amigos Clipeiros!

Estou desenvolvendo um sistema para Mercantil, já tenho muito material, más estou precisando de uma rotina para imprimir etiquetas com letras e numeros grandes, para colocar nas prateleiras junto as mercadorias, com preços.

Um grande abraço
Ricardo Sales

Hasse · Mensagem por **Hasse** » 22 Dez 2005 11:29

Maior do que 5 CPI que está disponível nas impressoras em modo
DOS ?

Hasse.

evaldo · Mensagem por **evaldo** » 22 Dez 2005 12:29

Esse exemplo é do Toya e funciona bem.

Código: Selecionar todos

FUNCTION ImpValor(vValor)
*************************
*
* Rotina para impressao de caracteres hiper-expandidos, como aqueles que a
* gente ve nos cheques emitidos pelas maquinas tipos Cheqplus,....
*
* autor : toya 
* data  : 23/04/1999
*    
* Comentarios, criticas e sugestoes, enviar para:
*         toya@alphams.com.br
*
* Visite a minha homepage:
*         http://pagina.de/toya/
*
*
* Compilar:
*           Clipper logoval
* Linkar  :
*           Rtlink fi logoval
*                ou
*           Blinker fi logoval
*
ivalor := vValor
idensidade := 'L'
*
logo_val(0,ivalor,idensidade)
*        |    |      |
*        |    |      +---> densidade simples (K) ou densidade dupla (L)
*        |    +----------> valor a ser impresso
*        +---------------> margem esquerda
return
* ----------------------------------------------------------------------------- 
func logo_val(arg1,arg2,arg3)
* -----------------------------------------------------------------------------   
local m_val  := {128,64,32,16,8,4,2,1}
local i,x,itransf
local tipoprn := 1
               * 1. Epson
               * 2. DeskJet
local m_toya := {}

m_toya__ := {}
m_toya_r := {}
m_toya_c := {}
m_toya_0 := {}
m_toya_1 := {}
m_toya_2 := {}
m_toya_3 := {}
m_toya_4 := {}
m_toya_5 := {}
m_toya_6 := {}
m_toya_7 := {}
m_toya_8 := {}
m_toya_9 := {}
m_toya_p := {}
m_toya_v := {}

if valtype('arg1')#'N'
   arg1 := ''
else
   arg1 := spac(arg1)
endi   

for i = 1 to 32
  _i := strzero(i,2)
  linha&_i := ''
next
*--------------------------------
aadd(m_toya_r,'################')
aadd(m_toya_r,'################')
aadd(m_toya_r,'################')
aadd(m_toya_r,'################')
aadd(m_toya_r,'################')
aadd(m_toya_r,'################')
aadd(m_toya_r,'************####')
aadd(m_toya_r,'************####')
aadd(m_toya_r,'##****####****##')
aadd(m_toya_r,'##****####****##')
aadd(m_toya_r,'##****####****##')
aadd(m_toya_r,'##****####****##')
aadd(m_toya_r,'##****####****##')
aadd(m_toya_r,'##****####****##')
aadd(m_toya_r,'##****##****####')
aadd(m_toya_r,'##****##****####')
aadd(m_toya_r,'##********######')
aadd(m_toya_r,'##********######')
aadd(m_toya_r,'##****####****##')
aadd(m_toya_r,'##****####****##')
aadd(m_toya_r,'##****####****##')
aadd(m_toya_r,'##****####****##')
aadd(m_toya_r,'##****####****##')
aadd(m_toya_r,'##****####****##')
aadd(m_toya_r,'******####******')
aadd(m_toya_r,'******####******')
aadd(m_toya_r,'################')
aadd(m_toya_r,'################')
aadd(m_toya_r,'################')
aadd(m_toya_r,'################')
aadd(m_toya_r,'################')
aadd(m_toya_r,'################')
*--------------------------------
aadd(m_toya_c,'################')
aadd(m_toya_c,'################')
aadd(m_toya_c,'################')
aadd(m_toya_c,'################')
aadd(m_toya_c,'######**########')
aadd(m_toya_c,'######**########')
aadd(m_toya_c,'##**********####')
aadd(m_toya_c,'##**********####')
aadd(m_toya_c,'****##**####**##')
aadd(m_toya_c,'****##**####**##')
aadd(m_toya_c,'****##**########')
aadd(m_toya_c,'****##**########')
aadd(m_toya_c,'********########')
aadd(m_toya_c,'********########')
aadd(m_toya_c,'##**********####')
aadd(m_toya_c,'##**********####')
aadd(m_toya_c,'####**********##')
aadd(m_toya_c,'####**********##')
aadd(m_toya_c,'######********##')
aadd(m_toya_c,'######********##')
aadd(m_toya_c,'######**##****##')
aadd(m_toya_c,'######**##****##')
aadd(m_toya_c,'**####**##****##')
aadd(m_toya_c,'**####**##****##')
aadd(m_toya_c,'##**********####')
aadd(m_toya_c,'##**********####')
aadd(m_toya_c,'######**########')
aadd(m_toya_c,'######**########')
aadd(m_toya_c,'################')
aadd(m_toya_c,'################')
aadd(m_toya_c,'################')
aadd(m_toya_c,'################')
*--------------------------------
aadd(m_toya_0,'################')
aadd(m_toya_0,'################')
aadd(m_toya_0,'################')
aadd(m_toya_0,'################')
aadd(m_toya_0,'################')
aadd(m_toya_0,'################')
aadd(m_toya_0,'######******####')
aadd(m_toya_0,'######******####')
aadd(m_toya_0,'####**####****##')
aadd(m_toya_0,'####**####****##')
aadd(m_toya_0,'##****####****##')
aadd(m_toya_0,'##****####****##')
aadd(m_toya_0,'##****####****##')
aadd(m_toya_0,'##****####****##')
aadd(m_toya_0,'##****##******##')
aadd(m_toya_0,'##****##******##')
aadd(m_toya_0,'##******##****##')
aadd(m_toya_0,'##******##****##')
aadd(m_toya_0,'##****####****##')
aadd(m_toya_0,'##****####****##')
aadd(m_toya_0,'##****####****##')
aadd(m_toya_0,'##****####****##')
aadd(m_toya_0,'##****####**####')
aadd(m_toya_0,'##****####**####')
aadd(m_toya_0,'####******######')
aadd(m_toya_0,'####******######')
aadd(m_toya_0,'################')
aadd(m_toya_0,'################')
aadd(m_toya_0,'################')
aadd(m_toya_0,'################')
aadd(m_toya_0,'################')
aadd(m_toya_0,'################')
*--------------------------------
aadd(m_toya_1,'################')
aadd(m_toya_1,'################')
aadd(m_toya_1,'################')
aadd(m_toya_1,'################')
aadd(m_toya_1,'################')
aadd(m_toya_1,'################')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'####******######')
aadd(m_toya_1,'####******######')
aadd(m_toya_1,'##********######')
aadd(m_toya_1,'##********######')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'######****######')
aadd(m_toya_1,'##************##')
aadd(m_toya_1,'##************##')
aadd(m_toya_1,'################')
aadd(m_toya_1,'################')
aadd(m_toya_1,'################')
aadd(m_toya_1,'################')
aadd(m_toya_1,'################')
aadd(m_toya_1,'################')
*--------------------------------
aadd(m_toya_2,'################')
aadd(m_toya_2,'################')
aadd(m_toya_2,'################')
aadd(m_toya_2,'################')
aadd(m_toya_2,'################')
aadd(m_toya_2,'################')
aadd(m_toya_2,'####********####')
aadd(m_toya_2,'####********####')
aadd(m_toya_2,'##**######****##')
aadd(m_toya_2,'##**######****##')
aadd(m_toya_2,'##****####****##')
aadd(m_toya_2,'##****####****##')
aadd(m_toya_2,'##########****##')
aadd(m_toya_2,'##########****##')
aadd(m_toya_2,'########****####')
aadd(m_toya_2,'########****####')
aadd(m_toya_2,'######****######')
aadd(m_toya_2,'######****######')
aadd(m_toya_2,'####****########')
aadd(m_toya_2,'####****########')
aadd(m_toya_2,'##****######**##')
aadd(m_toya_2,'##****######**##')
aadd(m_toya_2,'##************##')
aadd(m_toya_2,'##************##')
aadd(m_toya_2,'##************##')
aadd(m_toya_2,'##************##')
aadd(m_toya_2,'################')
aadd(m_toya_2,'################')
aadd(m_toya_2,'################')
aadd(m_toya_2,'################')
aadd(m_toya_2,'################')
aadd(m_toya_2,'################')
*--------------------------------
aadd(m_toya_3,'################')
aadd(m_toya_3,'################')
aadd(m_toya_3,'################')
aadd(m_toya_3,'################')
aadd(m_toya_3,'################')
aadd(m_toya_3,'################')
aadd(m_toya_3,'####********####')
aadd(m_toya_3,'####********####')
aadd(m_toya_3,'##****####****##')
aadd(m_toya_3,'##****####****##')
aadd(m_toya_3,'##****####****##')
aadd(m_toya_3,'##****####****##')
aadd(m_toya_3,'##########****##')
aadd(m_toya_3,'##########****##')
aadd(m_toya_3,'####********####')
aadd(m_toya_3,'####********####')
aadd(m_toya_3,'##########****##')
aadd(m_toya_3,'##########****##')
aadd(m_toya_3,'##########****##')
aadd(m_toya_3,'##########****##')
aadd(m_toya_3,'##****####****##')
aadd(m_toya_3,'##****####****##')
aadd(m_toya_3,'##****####****##')
aadd(m_toya_3,'##****####****##')
aadd(m_toya_3,'####********####')
aadd(m_toya_3,'####********####')
aadd(m_toya_3,'################')
aadd(m_toya_3,'################')
aadd(m_toya_3,'################')
aadd(m_toya_3,'################')
aadd(m_toya_3,'################')
aadd(m_toya_3,'################')
*--------------------------------
aadd(m_toya_4,'################')
aadd(m_toya_4,'################')
aadd(m_toya_4,'################')
aadd(m_toya_4,'################')
aadd(m_toya_4,'################')
aadd(m_toya_4,'################')
aadd(m_toya_4,'############**##')
aadd(m_toya_4,'############**##')
aadd(m_toya_4,'##########****##')
aadd(m_toya_4,'##########****##')
aadd(m_toya_4,'########******##')
aadd(m_toya_4,'########******##')
aadd(m_toya_4,'######**##****##')
aadd(m_toya_4,'######**##****##')
aadd(m_toya_4,'####**####****##')
aadd(m_toya_4,'####**####****##')
aadd(m_toya_4,'##**######****##')
aadd(m_toya_4,'##**######****##')
aadd(m_toya_4,'****************')
aadd(m_toya_4,'****************')
aadd(m_toya_4,'##########****##')
aadd(m_toya_4,'##########****##')
aadd(m_toya_4,'##########****##')
aadd(m_toya_4,'##########****##')
aadd(m_toya_4,'########********')
aadd(m_toya_4,'########********')
aadd(m_toya_4,'################')
aadd(m_toya_4,'################')
aadd(m_toya_4,'################')
aadd(m_toya_4,'################')
aadd(m_toya_4,'################')
aadd(m_toya_4,'################')
*--------------------------------
aadd(m_toya_5,'################')
aadd(m_toya_5,'################')
aadd(m_toya_5,'################')
aadd(m_toya_5,'################')
aadd(m_toya_5,'################')
aadd(m_toya_5,'################')
aadd(m_toya_5,'##************##')
aadd(m_toya_5,'##************##')
aadd(m_toya_5,'##************##')
aadd(m_toya_5,'##************##')
aadd(m_toya_5,'##**############')
aadd(m_toya_5,'##**############')
aadd(m_toya_5,'##**##******####')
aadd(m_toya_5,'##**##******####')
aadd(m_toya_5,'##****####****##')
aadd(m_toya_5,'##****####****##')
aadd(m_toya_5,'##**######****##')
aadd(m_toya_5,'##**######****##')
aadd(m_toya_5,'##########****##')
aadd(m_toya_5,'##########****##')
aadd(m_toya_5,'##****####****##')
aadd(m_toya_5,'##****####****##')
aadd(m_toya_5,'##**######****##')
aadd(m_toya_5,'##**######****##')
aadd(m_toya_5,'####********####')
aadd(m_toya_5,'####********####')
aadd(m_toya_5,'################')
aadd(m_toya_5,'################')
aadd(m_toya_5,'################')
aadd(m_toya_5,'################')
aadd(m_toya_5,'################')
aadd(m_toya_5,'################')
*--------------------------------
aadd(m_toya_6,'################')
aadd(m_toya_6,'################')
aadd(m_toya_6,'################')
aadd(m_toya_6,'################')
aadd(m_toya_6,'################')
aadd(m_toya_6,'################')
aadd(m_toya_6,'####********####')
aadd(m_toya_6,'####********####')
aadd(m_toya_6,'##****####****##')
aadd(m_toya_6,'##****####****##')
aadd(m_toya_6,'##****####****##')
aadd(m_toya_6,'##****####****##')
aadd(m_toya_6,'##****##########')
aadd(m_toya_6,'##****##########')
aadd(m_toya_6,'##**********####')
aadd(m_toya_6,'##**********####')
aadd(m_toya_6,'##****####****##')
aadd(m_toya_6,'##****####****##')
aadd(m_toya_6,'##****####****##')
aadd(m_toya_6,'##****####****##')
aadd(m_toya_6,'##****####****##')
aadd(m_toya_6,'##****####****##')
aadd(m_toya_6,'##****####****##')
aadd(m_toya_6,'##****####****##')
aadd(m_toya_6,'####********####')
aadd(m_toya_6,'####********####')
aadd(m_toya_6,'################')
aadd(m_toya_6,'################')
aadd(m_toya_6,'################')
aadd(m_toya_6,'################')
aadd(m_toya_6,'################')
aadd(m_toya_6,'################')
*--------------------------------
aadd(m_toya_7,'################')
aadd(m_toya_7,'################')
aadd(m_toya_7,'################')
aadd(m_toya_7,'################')
aadd(m_toya_7,'################')
aadd(m_toya_7,'################')
aadd(m_toya_7,'##************##')
aadd(m_toya_7,'##************##')
aadd(m_toya_7,'##************##')
aadd(m_toya_7,'##************##')
aadd(m_toya_7,'##**########**##')
aadd(m_toya_7,'##**########**##')
aadd(m_toya_7,'##########****##')
aadd(m_toya_7,'##########****##')
aadd(m_toya_7,'########****####')
aadd(m_toya_7,'########****####')
aadd(m_toya_7,'######****######')
aadd(m_toya_7,'######****######')
aadd(m_toya_7,'####****########')
aadd(m_toya_7,'####****########')
aadd(m_toya_7,'####****########')
aadd(m_toya_7,'####****########')
aadd(m_toya_7,'####****########')
aadd(m_toya_7,'####****########')
aadd(m_toya_7,'####****########')
aadd(m_toya_7,'####****########')
aadd(m_toya_7,'################')
aadd(m_toya_7,'################')
aadd(m_toya_7,'################')
aadd(m_toya_7,'################')
aadd(m_toya_7,'################')
aadd(m_toya_7,'################')
*--------------------------------
aadd(m_toya_8,'################')
aadd(m_toya_8,'################')
aadd(m_toya_8,'################')
aadd(m_toya_8,'################')
aadd(m_toya_8,'################')
aadd(m_toya_8,'################')
aadd(m_toya_8,'####********####')
aadd(m_toya_8,'####********####')
aadd(m_toya_8,'##****####****##')
aadd(m_toya_8,'##****####****##')
aadd(m_toya_8,'##****######**##')
aadd(m_toya_8,'##****######**##')
aadd(m_toya_8,'##******##**####')
aadd(m_toya_8,'##******##**####')
aadd(m_toya_8,'####********####')
aadd(m_toya_8,'####********####')
aadd(m_toya_8,'####**##******##')
aadd(m_toya_8,'####**##******##')
aadd(m_toya_8,'##**######****##')
aadd(m_toya_8,'##**######****##')
aadd(m_toya_8,'##**######****##')
aadd(m_toya_8,'##**######****##')
aadd(m_toya_8,'##****####****##')
aadd(m_toya_8,'##****####****##')
aadd(m_toya_8,'####********####')
aadd(m_toya_8,'####********####')
aadd(m_toya_8,'################')
aadd(m_toya_8,'################')
aadd(m_toya_8,'################')
aadd(m_toya_8,'################')
aadd(m_toya_8,'################')
aadd(m_toya_8,'################')
*--------------------------------
aadd(m_toya_9,'################')
aadd(m_toya_9,'################')
aadd(m_toya_9,'################')
aadd(m_toya_9,'################')
aadd(m_toya_9,'################')
aadd(m_toya_9,'################')
aadd(m_toya_9,'####********####')
aadd(m_toya_9,'####********####')
aadd(m_toya_9,'##****####****##')
aadd(m_toya_9,'##****####****##')
aadd(m_toya_9,'##****####****##')
aadd(m_toya_9,'##****####****##')
aadd(m_toya_9,'##****####****##')
aadd(m_toya_9,'##****####****##')
aadd(m_toya_9,'##****####****##')
aadd(m_toya_9,'##****####****##')
aadd(m_toya_9,'####**********##')
aadd(m_toya_9,'####**********##')
aadd(m_toya_9,'##########****##')
aadd(m_toya_9,'##########****##')
aadd(m_toya_9,'##****####****##')
aadd(m_toya_9,'##****####****##')
aadd(m_toya_9,'##****####****##')
aadd(m_toya_9,'##****####****##')
aadd(m_toya_9,'####********####')
aadd(m_toya_9,'####********####')
aadd(m_toya_9,'################')
aadd(m_toya_9,'################')
aadd(m_toya_9,'################')
aadd(m_toya_9,'################')
aadd(m_toya_9,'################')
aadd(m_toya_9,'################')
*--------------------------------
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'######****######')
aadd(m_toya_p,'######****######')
aadd(m_toya_p,'######****######')
aadd(m_toya_p,'######****######')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
aadd(m_toya_p,'################')
*--------------------------------
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
aadd(m_toya_v,'####******######')
aadd(m_toya_v,'####******######')
aadd(m_toya_v,'####******######')
aadd(m_toya_v,'####******######')
aadd(m_toya_v,'######**########')
aadd(m_toya_v,'######**########')
aadd(m_toya_v,'####**##########')
aadd(m_toya_v,'####**##########')
aadd(m_toya_v,'################')
aadd(m_toya_v,'################')
*--------------------------------
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
aadd(m_toya__,'################')
*--------------------------------
itransf := 'R$'+alltrim(transf(arg2,'@E ###,###,###,###.##')  )
for x = 1 to len(itransf)
  if subs(itransf,x,1) = 'R'
     _m := 'r'
  elseif subs(itransf,x,1) = '$'
     _m := 'c'
  elseif subs(itransf,x,1) = '.'
     _m := 'p'     
  elseif subs(itransf,x,1) = ','
     _m := 'v'     
  else
     _m := subs(itransf,x,1) 
  endi     
  for i=1 to 32
     _i := strzero(i,2)
     linha&_i := linha&_i + m_toya_&_m[i]
  next
next

aadd(m_toya,linha01)
aadd(m_toya,linha02)
aadd(m_toya,linha03)
aadd(m_toya,linha04)
aadd(m_toya,linha05)
aadd(m_toya,linha06)
aadd(m_toya,linha07)
aadd(m_toya,linha08)
aadd(m_toya,linha09)
aadd(m_toya,linha10)
aadd(m_toya,linha11)
aadd(m_toya,linha12)
aadd(m_toya,linha13)
aadd(m_toya,linha14)
aadd(m_toya,linha15)
aadd(m_toya,linha16)
aadd(m_toya,linha17)
aadd(m_toya,linha18)
aadd(m_toya,linha19)
aadd(m_toya,linha20)
aadd(m_toya,linha21)
aadd(m_toya,linha22)
aadd(m_toya,linha23)
aadd(m_toya,linha24)
aadd(m_toya,linha25)
aadd(m_toya,linha26)
aadd(m_toya,linha27)
aadd(m_toya,linha28)
aadd(m_toya,linha29)
aadd(m_toya,linha30)
aadd(m_toya,linha31)
aadd(m_toya,linha32)

* -> 128 bytes
* -> 32 linhas

if tipoprn = 1
   ? chr(27)+'A'+chr(8)
elseif tipoprn = 4
   ? chr(27)+'@'
   ?? chr(27)+'A'+chr(8)
else
   ? chr(27)+'(s07V'
endi      
?? chr(15)
*
*
*   ?? chr(27)+'Y'+chr(64)+chr(0)
*               |     |      |
*               |     |      +--- n2
*               |     +---------- n1
*               +---------------- p
*
*   p -> altera a densidade
*   p=K densidade simples
*   p=L densidade dupla
*   p=Y alta velocidade com densidade dupla
*   p=Z densidade qu drupla
*
*   n1 e n2 definem a quantidade de colunas gr ficas a serem transmitidas
*
*   No nosso exemplo ter¡amos:
*
*        64 colunas / 256 = 0.25
*            portanto,
*            n2 ser  igual a 0 que ‚ a parte inteira da divisÆo
*        n2 = 0
*
*        64 colunas - (256 * n2) = 64
*            portanto,
*            n1 ser  igual a 64
*
*
*

densidade := idensidade
//
caracter  := '*' // alterando para '#' imprime no modo vasado
//
nbytes := len(linha01)
n2     := if(nbytes<255,0,1)
m_soma := array(nbytes)

afill(m_soma,0)
for i=1 to 8
   a := m_toya[i]
   for j=1 to nbytes
      if subs(a,j,1)= caracter
         m_soma[j] := m_soma[j] + m_val[i]
      endi
   next
next
@ PROW(), 56+30 SAY arg1+chr(27)+densidade+chr(nbytes)+chr(n2)
for i=1 to nbytes; ?? chr(m_soma[i]);next
?

afill(m_soma,0)
for i=1 to 8
   a := m_toya[i+7]
   for j=1 to nbytes
      if subs(a,j,1)= caracter
         m_soma[j] := m_soma[j] + m_val[i]
      endi
   next
next
   @ PROW(), 52+30 SAY arg1+chr(27)+densidade+chr(nbytes)+chr(n2)
   for i=1 to nbytes; ?? chr(m_soma[i]);next
   ?

afill(m_soma,0)
for i=1 to 8
   a := m_toya[i+14]
   for j=1 to nbytes
      if subs(a,j,1)= caracter
         m_soma[j] := m_soma[j] + m_val[i]
      endi
   next
next
@ PROW(), 52+30 SAY arg1+chr(27)+densidade+chr(nbytes)+chr(n2)
for i=1 to nbytes; ?? chr(m_soma[i]);next
?
afill(m_soma,0)
for i=1 to 8
   a := m_toya[i+21]
   for j=1 to nbytes
      if subs(a,j,1)= caracter
         m_soma[j] := m_soma[j] + m_val[i]
      endi
   next
next
@ PROW(), 52+30 SAY arg1+chr(27)+densidade+chr(nbytes)+chr(n2)
for i=1 to nbytes; ?? chr(m_soma[i]);next


? chr(27)+'@'

return""
*************************************************************

Mas no seu caso é melho você usar uma impressora de código de barra, ela imprime texto, de varios tamanhos.

hauch · Mensagem por **hauch** » 27 Dez 2005 10:51

fiz um programinha em delphi para emitir estas etiquetas

no meu programa em clipper só gero um arquivo texto com o código do produto, descrição e valor

se alguem quizer este programa me mande um e-mail

para: denilson.compuservice@mksnet.com.br

abraços

evandro.monte · Mensagem por **evandro.monte** » 28 Dez 2005 15:42

Simples. Gere um arquivo DBF no seu programa clipper e crie um documento de mala direta no word lendo as informações que você quer. Por exemplo: Codigo, Nome e Preço com as fonts e cores que quizer.