coloque esse trecho dentro do gaspro40harbour e recompile o mesmo, então gere os fontes da sua aplicação e use o gas4harbour novmente ele ira fazer os ajustes em todos os modulos da etiqueta, claro
if AT( " qtcar_", cBuf )!= 0 //ajusta etiquetas para impressão
@ row()+1,0 say "Ajustando arquivo '"+upper(cArquivo)+"' ..."
nArqCvt+=1
//cBuf := StrTran( cBuf, "SET PRINTER TO (drvporta)", "" )
cBuf := StrTran( cBuf, "opcoes_etq", "opcoes_ehb" )
cBuf := StrTran( cBuf, "// mostra o arquivo gravado", "// mostra o arquivo gravado"+hb_eol()+"GRELA(99)" )
cBuf := StrTran( cBuf, "SET PRINT OFF", "SET PRINT OFF"+HB_EOl()+"SET PRINTER TO "+HB_EOl()+"set devi to scre" )
cBuf := StrTran( cBuf, "SET PRINT ON", "SET PRINT ON "+HB_EOL()+"SET DEVI TO PRIN" )
cBuf := StrTran( cBuf, "EJEC" , "//EJECT " )
hb_memoWrit( cArquivo, cBuf )
endif
tem aqui tambem o codigo completo de uma etiqueta ja alterada para voce comparar
/*
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\ Empresa.: LDO SISTEMAS
\ Programa: ETI_VEND.PRG
\ Data....: 24-04-06
\ Sistema.: CONTROLE INDUSTRIAL
\ Funcao..: ETIQUETAS DE VENDEDORES
\ Analista: LAURO DE OLIVEIRA
\ Criacao.: GAS-Pro v4.0o
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
*/
#include "industri.ch"
LOCAL lin_:={}, cur_atual, i_, ct_, dele_atu
PARA lin_menu, col_menu
nucop=Numerocopias()
#ifdef COM_REDE
IF !USEARQ("VENDEDOR",.f.,10,1)
RETU
ENDI
#else
USEARQ("VENDEDOR")
#endi
titrel:=criterio := ""
cpord=""
chv_rela:=chv_1:=chv_2 := ""
tps:=op_x:=ccop := 1
IF TYPE("drvti_vend")="C"
qtlin_=VAL(SUBS(drvti_vend, 1,3))
qtcol_=VAL(SUBS(drvti_vend, 4,3))
qtcse_=VAL(SUBS(drvti_vend, 7,3))
qtcar_=VAL(SUBS(drvti_vend,10,3))
qtreg_=SUBS(drvti_vend,13)
ELSE
qtlin_=6
qtcol_=40
qtcse_=2
qtcar_=2
qtreg_="1"
ENDI
fil_ini=""
IF !opcoes_ehb(lin_menu,col_menu,5,40,52,fil_ini)
CLOS ALL
RETU
ENDI
lin_=ARRAY(qtlin_)
IF tps=2
arq_=ARQGER()
IF EMPTY(arq_)
RETU
ENDI
ELSE
arq_=drvporta
ENDI
SET PRINTER TO (arq_)
cur_atual=SETCURSOR(0)
IF !EMPTY(drvtapg)
op_=AT("NNN",drvtapg)
IF op_=0
msg="Configura‡„o do tamanho da p gina!"
DBOX(msg,,,,,"ERRO!")
CLOSE ALL
RETU
ENDI
lpp_006=LEFT(drvtapg,op_-1)+LPAD(qtlin_,3,"0")+SUBS(drvtapg,op_+3)
lpp_066=LEFT(drvtapg,op_-1)+"066"+SUBS(drvtapg,op_+3)
ELSE
lpp_006:=lpp_066 :=""
ENDI
AFILL(lin_,"")
FOR i_=1 TO qtcar_
lin_[1]+=PADR("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",qtcol_+qtcse_)
lin_[2]+=PADR("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",qtcol_+qtcse_)
lin_[3]+=PADR("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",qtcol_+qtcse_)
lin_[4]+=PADR("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX UF: XX",qtcol_+qtcse_)
lin_[5]+=PADR("CEP:XXXXXXXXX C.P:XXXXX",qtcol_+qtcse_)
NEXT
op_2=1
DO WHIL op_2=1 .AND. tps=1
msg="Testar Posicionamento|Emitir a Etiqueta|"+;
"Cancelar a Opera‡„o"
op_2=DBOX(msg,,,E_MENU,,"EMISSŽO DE ETIQUETA")
IF op_2=0 .OR. op_2=3
CLOSE ALL
RETU
ELSEIF op_2=2
EXIT
ELSE
SET DEVI TO PRIN
IMPCTL(lpp_006) // seta pagina com 6 linhas
IMPCTL(drvpeli)
@ PROW()+1,0 SAY CHR(13)
FOR i_=1 TO qtlin_
@ PROW()+1,0 SAY RTRIM(lin_[i_])
IF EMPTY(drvtapg) .OR. i_<qtlin_
?
ENDI
NEXT
IF !EMPTY(drvtapg)
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////EJECT T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T
ENDI
IMPCTL(drvteli)
IMPCTL(lpp_066) // seta pagina com 66 linhas
SET DEVI TO SCREEN
GRELA(99)
ENDI
ENDD
dele_atu:=SET(_SET_DELETED,.t.)
POE_GAUGE("[ESC] Interrompe","AGUARDE...","Emitidos:")
SET DEVI TO PRIN
IMPCTL(lpp_006) // seta pagina com 6 linhas
IMPCTL(drvpeli)
IF tps=2
IMPCTL("' '+CHR(8)")
ENDI
BEGIN SEQUENCE
DO WHIL ccop<=nucop
INI_ARQ()
IF EOF()
EXIT
ENDI
ccop++
DO WHIL !EOF()
AFILL(lin_,""); ct_=0
DO WHILE !EOF() .AND. ct_<qtcar_ .AND. POE_GAUGE()
IF IN_KEY()=K_ESC
IF canc()
BREAK
ENDI
ENDI
FOR t_=1 TO &qtreg_.
ct_++
lin_[1]+=TRAN(nome,"@!")+SPAC(qtcol_+qtcse_-40)
lin_[2]+=endereco+SPAC(qtcol_+qtcse_-40)
lin_[3]+=bairro+SPAC(qtcol_+qtcse_-30)
lin_[4]+=cidade+" UF: "+TRAN(uf,"!!")+SPAC(qtcol_+qtcse_-37)
lin_[5]+="CEP:"+TRAN(cep,"@R 99999-999")+" C.P:"+cxpostal+SPAC(qtcol_+qtcse_-25)
IF ct_>=qtcar_
@ PROW()+1,0 SAY CHR(13)
FOR i_=1 TO qtlin_
@ PROW()+1,0 SAY RTRIM(lin_[i_])
IF EMPTY(drvtapg) .OR. i_<qtlin_
?
ENDI
NEXT
IF !EMPTY(drvtapg)
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////EJECT T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T
ENDI
AFILL(lin_,""); ct_=0
ENDI
NEXT
SKIP
ENDD
IF ct_>0
@ PROW()+1,0 SAY CHR(13)
FOR i_=1 TO qtlin_ //
@ PROW()+1,0 SAY RTRIM(lin_[i_])
IF EMPTY(drvtapg) .OR. i_<qtlin_
?
ENDI
NEXT
IF !EMPTY(drvtapg)
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////EJECT T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T
ENDI
ENDI
ENDD
ENDD ccop
IF EMPTY(drvtapg)
//////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////EJECT T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T T
ENDI
END SEQUENCE
SETCURSOR(cur_atual)
IMPCTL(drvteli)
IMPCTL(lpp_066) // seta pagina com 66 linhas
SET DEVI TO SCREEN
GRELA(99)
IF tps=2
BROWSE_REL(arq_,2,3,MAXROW()-2,78,.f.)
ENDI
SET DEVI TO SCREEN
GRELA(99)
SET(_SET_DELETED,dele_atu)
RETU
* \\ Final de ETI_VEND.PRG