Código: Selecionar todos
FUNCTION PrintDosForWin()
LOCAL cTexto := ""
LOCAL ON_GRANDE := CHR(27) + CHR(33) + CHR(16) // Para Impressoras Epson
LOCAL OFF_GRANDE := CHR(27) + CHR(33) + CHR(01) // Para Impressoras Epson
// Seleciona a Impressora do Windows
LOCAL cPrinter := GetDefaultPrinter()
LOCAL CRLF := CHR(13) + CHR(10)
LOCAL cFileName := "TEXTO.PRN"
cTexto += "Esta e a primeira linha do texto" + CRLF
cTexto += Replicate( "*-", 20 ) + CRLF
cTexto += ON_GRANDE + "LETRAS GRANDES" + OFF_GRANDE + CRLF
cTexto += "Esta e outra linha de texto..." + CRLF
cTexto += PADL( "Esquerda ", 40 ) + CRLF
cTexto += PADC( "CENTRALIZADO", 40 ) + CRLF
cTexto += PADR( "Direita", 40 ) + CRLF
cTexto += PADC( "< Linha Final >", 40, "-" ) + CRLF
IF WriteStream( cFileName, cTexto )
// Envia a Impressao ao Spool do Windows
PrintFileRaw( cPrinter, cFileName, "Impressao Em Formato DOS desde Windows" )
FERASE( cFileName )
ENDIF
RETURN NIL
// Esta Funcion la encontre por ahi...
FUNCTION WriteStream( cFile, cStream )
LOCAL nHandle := FCreate( cFile )
IF FError() <> 0
RETURN( .F. )
ENDIF
FWrite( nHandle, cStream, Len(cStream) )
FClose( nHandle )
RETURN ( FError() == 0 )
// FIM DO PROGRAMA
Quem tem que entender é a impressora, a função PrintFileRaw() só envia o arquivo para a impressora. Então se você estiver enviando os comandos para uma impressora que não é Epson, com certeza os comandos não serão reconhecidos.Abel escreveu:So que percebi que ele nao entende os comandos chr padrao epson.
Código: Selecionar todos
%-12345X@PJL ENTER LANGUAGE=PCL
E
&u300D
&l26A
&l0O
&l0E
&a0L
&l0C
&l0L
&l1S
&f100y0X
&f0S
&l0E
&a0L
&l0C
&l0L
*p0150y0720X*c767a1bp767b50g2P
*p0152y0723X*c761a1bp761b1P
*p1017y0147X*c2060a3bp675b10g2P
*p+675y0147X*c1bP
*p1080y0300X*c1750a0550b1P
*p2150y0147X*c2060a1bp980b50g2P
*p+980y0147X*c1bP
*p+250y0147X*c1bP
*p2200y0200X*c1960a0870b1P
*p0635y+50y1800X&f9950y2X
*p0665y0147X&f31237y2X
&f1S
&f1x10X
&f101y0X
&f0S
&l0E
&a0L
&l0C
&l0L
&a180P
*p0150y0720X*c767a1bp767b50g2P
*p0152y0723X*c761a1bp761b1P
*p1017y0147X*c2060a3bp675b10g2P
*p+675y0147X*c1bP
*p1080y0300X*c1750a0550b1P
*p2150y0147X*c2060a1bp980b50g2P
*p+980y0147X*c1bP
*p+250y0147X*c1bP
*p2200y0200X*c1960a0870b1P
*p0635y+50y1800X&f9950y2X
*p0665y0147X&f31237y2X
&a0P
&f1S
&f1x10X&l0O&a0L&l0E&l0C&l0L&l1S&f100y2X*p1500y0350X(s1P(s25v0s5b4148TALEXANDRE &l0E&a0L&l0C&l0L&f101y2X*p1500y0350X(251X<wNnnWwwNnNwNWnnNnnWw>(3@E%-12345X
Código: Selecionar todos
function main()
local cFileName := "teste.pcl"
local cPrinterName := "LPT1"
if PrintFileRaw(cPrinterName, cFileName) == 0
? "Falha :("
else
? "Sucesso.."
endif
return nilA rigor, como o próprio nome da função diz, a impressora precisa ser compatível com o modo RAW. Pode ser impressora de qualquer marca e modelos Matricial, Térmica, DeskJet ou Laser. Porém, precisa ter compatibilidade com o modo RAW, ou seja, ela precisa ser capaz de interpretar os comandos ESC/POS.Toledo escreveu:Então se você estiver enviando os comandos para uma impressora que não é Epson
Não. Você precisa usar os comandos corretamente. Veja que para comprimir em 17.5 cpp o comando não é precedido por Chr(27):Abel escreveu:sera que tenho que compilar alguma lib junta ?
Código: Selecionar todos
Chr(15) // ativa 17,5 cpp
Chr(18) // desativa 17,5 cpp
Chr(27)+'M'+Chr(15) // ativa 20 cpp
Chr(27)+'P' // desativa 20 cpp
Chr(27)+'M' // ativa elite
Chr(27)+'P' // desativa elite
Chr(27)+'E' // ativa enfatizado
Chr(27)+'F' // desativa enfatizado
Chr(27)+'W'+Chr(1) // ativa expansao
Chr(27)+'W'+Chr(0) // desativa expansao
Chr(27)+'0' // ativa 8 lpp
Chr(27)+'2' // desativa 8 lpp