PC Toledo

Bom Dia Amigos

Tenhu um programa q consegui e modifiquei, para imprimir etiquetas nesta impressora ´Argox´ entretanto, só tenho os parametros q jpa estavam na rotina, ou seja se eu quizer aumentar ou diminuir o espaço entre linhas não sei os códigos necessarios.

Alguem pode me ajudar.

Ésta é do Cleber R. Mano:

openarq("a","produto",.f.,"prd_1","prd_2")

openarq("b","tmp05",.T.)
set relation to codprod into produto
! mode com1:96,n,8,1,p

Mdescr:=""
Mpreco1:=0
Mcodprod:=0
Mqtdeetq:=1
pegaalt()

****************************************************************************
static func pegaalt()
****************************************************************************

sele b
go top
oldcolor:=setcolor()
do whil .t.
CAMPOS := { 'CODPROD','left(A->descricao,20)','qtdeetq','preco1'}
CABECA := { 'Codigo','Descricao',"Qtde","Venda"}
WMENS_STAT( '<ESC>-Sair <INS>-Incluir <DEL>-Excluir <F3>-Muda Ordem <F4>-Localizar' )
set color to "gr+/rb"
JANELA( 17,00,24,79,1,,.F. )
DBEDIT( 18,01,23,78,CAMPOS,"FUNALLE",,CABECA,'ÍÑÍ',' ³ ' )
if lastkey()==27
Mchoice:={"Sim","Nao"}
if Mescolha:=alert3d("Deseja imprimir etiquetas ? ",Mchoice)==1
imprall()
else
return .f.
endif
endif
enddo
return


*****************************************************************************
FUNCTION FUNALLE( MODO, COL )
*****************************************************************************
LOCAL TECLA
mCHAVE:=SPACE(30)
TECLA := LASTKEY()
DO CASE
CASE MODO = 4
IF TECLA = 27
RETURN 0
ENDIF

IF TECLA = 7
IF GETMENU( 14,50,'Confirma Exclusao ?','N A O','S I M' ) # 2
RETURN 2
ENDIF

DO WHILE !RLOCK()
ENDDO

DELETE
UNLOCK
RETURN 2
ENDIF
DO CASE
CASE COL = 3
@ ROW(),COL() GET QTDEETQ PICT "9999"
READ
ENDCASE
RETURN 2

ENDCASE
RETURN
***************************************************************************
func imprall()
***************************************************************************

sele b
go top
do whil !eof()
Mcodprod:=codprod
Mprod:=right(strzero(CODPROD,15),13)
Mdescr:=left(A->descricao,30)
Mpreco:=preco1
Mqtdeetq:=qtdeetq

set devi to print
for r=1 to Mqtdeetq
IF mPRECO > 0
if !EMPTY(MDESCR)
set print to gondola.imp
@ 01,0 say "O0000"
@ 01,0 say "M0300"
@ 01,0 say "c0000"
@ 01,0 say "f000"
@ 01,0 say "e"
@ 01,0 say "LC0000"
@ 01,0 say "H09"
@ 01,0 say "D11"
@ 01,0 say "SF"
@ 01,0 say "PF"
@ 01,0 say "R0000"
@ 01,0 say "z"
@ 01,0 say "W"
@ 01,0 say "^05"
@ 01,0 say "133400000000200"+transform(mPRECO, "@E 999.99")
@ 01,0 say "1F3204000100010"+Mprod //codigo
@ 01,0 say "123300000650000"+a->descricao
@ 01,0 say "193300400000140R$"
@ 01,0 say "Q0001"
@ 01,0 say "E"
! COPY GONDOLA.IMP COM1 >NULL
ENDIF
endif
next r
skip
Mdescr:=""
Mpreco1:=0
Mcodprod:=0
enddo
SET DEVICE TO SCREEN

Abs,

OPA CONHECO ESTA FUNCAO, FUI EU Q FIZ EHEHHE

Ola Amigos!

Quero agradecer aqui a rotina q foi postada para me ajudar, excelente, vou dar uma olhada e adaptar ao meu sistema. Obrigado mesmo, a quem me enviou e a quem fez.

Um grande abraço