boa noite!
pra não ficar enchendo o PCTOLEDO/FORUM de tantos tópicos, gostaria que me ajudassem com a mesma dúvida no post http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=11623&p=124488#p124488.
Grato.

Moderador: Moderadores
^XA
^MMT
^PW400
^LL0400
^LS0
^FT5,384^A0N,41,40^FH\^FDwww.pctoledo.com.br^FS
^BY1,3,99^FT70,322^BCN,,Y,N
^FD>:Evite Lojas Genericas^FS
^FT10,46^A0N,38,60^FH\^FDLinguagem ZPL^FS
^BY1,3,104^FT96,182^B3N,N,,Y,N
^FD1135265909+^FS
^PQ1,0,1,Y
^XZ
I8,A,001
Q400,024
q863
rN
S3
D7
ZT
JF
O
R231,0
f100
N
A63,353,0,3,1,2,N,"www.pctoledo.com.br"
A17,10,0,3,2,2,N,"Linguagem EPL"
B43,123,0,1,2,6,160,B,"11 3526-5909"
P1
! 0 200 200 320 1
PW 639
TONE 0
SPEED 3
ON-FEED IGNORE
NO-PACE
BAR-SENSE
T 4 1 77 10 IMPRESSORAS ZEBRA
BT 7 0 3
B 128 2 30 160 84 108 11 3526-5909
, obrigado por tão prontamente responder.rochinha escreveu:Na verdade precisamos saber qual a sua dúvida. Pois se o tópico em questão não te ajudou, qual o problema estás enfrentando?
@ prow()+1,0 say '^LL0400'
@ prow()+1,0 say '^LS0'
...
^XA~TA000~JSN^LT0^MNW^MTD^PON^PMN^LH0,0^JMA^PR4,4~SD15^JUS^LRN^CI0^XZ
^XA
^MMT
^PW831
^LL0799
^LS0
^BY2,3,119^FT785,758^BCB,,Y,N
^FD>:Volume: 1^FS
^PQ4,0,1,Y^XZ
gilbertosilverio escreveu:Ola Amigos,
Consegui fazer a impressão, para que funcione e necessário instalar os drivers da impressora no server e desabilitar o EASY PRINT.
Fica a dica.
FUNCTION ETIQUETA_ZEBRA(nPEDI, nVOLU)
LOCAL nQTDE:=[1]
PRIVATE TXTARQ, WLINHA, nTAMANHO, TXT:=[], xTXT:={}
PRIVATE AAA := CurDrive()+":\"+CurDir()+[\TEMP\ETI]+SUBSTR(TIME(),1,2)+SUBSTR(TIME(),4,2)+SUBSTR(TIME(),7,2)+[.PRN]
PRIVATE ARQTESTE
IF ( ARQTESTE := FCreate( AAA,0 ) ) == F_ERROR
HWG_MSGINFO([Nao criou o arquivo]+CRLF+ALLTRIM(AAA))
RETURN NIL
ELSE
FCLOSE(ARQTESTE)
ENDIF
SAIR()
@ 01,00 SAY PADC([Imprimir etiquetas de envio - ZEBRA], 80 )
@ 11,00 SAY [No. Pedido: ] GET nPEDI PICT [999999]
@ 12,00 SAY [No Volumes: ] GET nVOLU PICT [999]
READ
IF LASTKEY() = 27
SAIR()
RETURN NIL
ENDIF
USE xMITI NEW SHARED
SET INDEX TO XMITNOTA
DBSEEK(nPEDI, .F.)
IF FOUND()
cCODCLI:=CODCLI ; cRAZ:=RAZAO ; cNNF:=NNFE ; xOBSER1:=OBS1
xOBSER2:=OBS2 ; xOBSER3:=OBS3 ; xOBSER4:=OBS4 ; xVLRNFe:=TOTNOTAS
CLOSE DATA
USE xCLIENTE SHARED NEW
SET INDEX TO xRCLICOD
DBSEEK( cCODCLI, .F.)
IF FOUND()
cENDERECO:=ENDENTREGA ; cBAIRRO:=BAIEN ; cCIDADE:=CIDADEEN ; cUF:=ESTAEN ; cCEP:=CEPEN
SAIR()
ELSE
nOPT:=0
ALERTNEW([Dados do cliente nao localizados])
SAIR()
RETURN NIL
ENDIF
ELSE
nOPT:=0
ALERTNEW([Pedido nao localizado])
SAIR()
RETURN NIL
ENDIF
C:=1
DO WHILE C <= nVOLU
IF C = 1
TXT := [^XA~TA000~JSN^LT0^MNW^MTD^PON^PMN^LH0,0^JMA^PR4,4~SD15^JUS^LRN^CI0^XZ]
AADD( xTXT, TXT )
ENDIF
TXT:=[^XA]
AADD( xTXT, TXT )
TXT:=[^PW831]
AADD( xTXT, TXT )
TXT:=[^LL0799]
AADD( xTXT, TXT )
TXT:=[^LS0]
AADD( xTXT, TXT )
TXT:=[^CF0,50]
AADD( xTXT, TXT )
TXT:=[^FO50,50^FDHospitalar Com Med Ltda^FS]
AADD( xTXT, TXT )
TXT:=[^CF0,30]
AADD( xTXT, TXT )
TXT:=[^FO50,100^FDR 303^FS]
AADD( xTXT, TXT )
TXT:=[^FO50,140^FDJardim America^FS]
AADD( xTXT, TXT )
TXT:=[^FO50,180^FDCep: 99999-999 - GO - GO^FS]
AADD( xTXT, TXT )
TXT:=[^FO50,220^FDTel: (64) 9999-9999 ^FS]
AADD( xTXT, TXT )
TXT:=[^FO50,250^GB720,1,3^FS]
AADD( xTXT, TXT )
TXT:=[^CF0,25]
AADD( xTXT, TXT )
TXT:=[^FO50,280^FDDestinatario:^FS]
AADD( xTXT, TXT )
TXT:=[^CF0,30]
AADD( xTXT, TXT )
TXT:=[^FO50,330^FD]+ALLTRIM(cRAZ) +[^FS]
AADD( xTXT, TXT )
TXT:=[^FO50,370^FD]+ALLTRIM(cENDERECO)+[^FS]
AADD( xTXT, TXT )
TXT:=[^FO50,410^FD]+ALLTRIM(cBAIRRO) +[^FS]
AADD( xTXT, TXT )
TXT:=[^FO50,450^FDCEP: ]+ALLTRIM(cCEP) +[ ]+ALLTRIM(cCIDADE)+[ ]+ALLTRIM(cUF) + [^FS]
AADD( xTXT, TXT )
TXT:=[^FO50,510^GB720,1,3^FS]
AADD( xTXT, TXT )
TXT:=[^CF0,35]
AADD( xTXT, TXT )
TXT:=[^FO50,540^FDNo. NFe: ]+STRZERO(cNNF,9) + [ Valor NFe: R$ ]+STR(xVLRNFe,12,2)+[^FS]
AADD( xTXT, TXT )
TXT:=[^FO50,600^FDVolumes: ]+STRZERO(C,4)+[/]+STRZERO(nVOLU,4)+[ No. Pedido: ]+STRZERO(nPEDI,7)+[^FS]
AADD( xTXT, TXT )
TXT:=[^FO50,650^GB720,100,2^FS]
AADD( xTXT, TXT )
TXT:=[^FO60,690]
AADD( xTXT, TXT )
TXT:=[^FDPor favor atencao: CUIDADO MATERIAL FRAGIL^FS]
AADD( xTXT, TXT )
TXT:=[^PQ1,0,1,Y^XZ]
AADD( xTXT, TXT )
C++
ENDDO
A:=1
TXTARQ := FOPEN( AAA, 2 )
nTAMANHO := LEN(xTXT)
DO WHILE A <= nTAMANHO
WLINHA:= ALLTRIM(xTXT[A])+CHR(13)+CHR(10)
FSEEK( TXTARQ, 0, 2 )
FWRITE( TXTARQ, ALLTRIM(WLINHA), LEN(WLINHA))
A++
ENDDO
FCLOSE(TXTARQ)
cArquivo:=alltrim(AAA)
Escolhe_impressora( cArquivo ) //Escolhe_impressora_VISUAL( cArquivo ) // teste visual em 01/10/2015
/*
cImpressora := GetDefaultPrinter() // Pego a Impressora Padrão, como expliquei acima já deixo a Argox como padrão
PrintFileRaw(cImpressora, cArquivo, [Teste]) // Jogo o arquivo nela, ela pode estar LPT1, USB q vai embora...
*/
SAIR()
RETURN NIL
gilbertosilverio escreveu:Ola,
Essa rotina e bem antiga...
Usuários vendo este fórum: Google [Bot] e 1 visitante