PC Toledo

... há impressoras instaladas')
Return .F.
EndIf
//hwg_msginfo( "win_printerStatus(): " + hb_ntos( win_printerStatus(cPrint) ) )

nRet := Win_PrintFileRaw(cPrint,cArq,cTit)
if nRet < 1
cMsg := 'Erro Imprimindo: '
SWITCH nRet
CASE -1
cMsg += "Parâmetro inválido passado" ; EXIT
CASE -2
cMsg ...

Itamar, bom dia
gero um txt do relatório e depois uso o comando

PrintFileRaw(pprt,a,pprograma)

pprt = nome da impressora
a = arquivo texto tipo: \usr\sfa\paiva.txt
pprograma = nome do programa CRAPEDA

SEMPRE usei assim N anos

derrepente não quer funcionar

Obrigado

Olá!
Tá errada a resposta da IA.

Por isso é bom ver o código.

O problema ocorre porque a função PrintFileRaw() envia o arquivo diretamente para o spool do Windows em modo bruto (RAW),
mas as impressoras USB não possuem uma porta nativa mapeada (como LPT1 ou COM1) para receber comandos de texto puros
sem um direcionamento explícito. Quando você imprime pelo ...

Olá!
Coloca sua rotina de impressão para analise.
LX350 imprime "raw file".
Já usei muito isso.

Boa tarde
colocaram uma epson lx-350 USB em um cliente

se mando imprimir usando PrintFileRaw NAO sai NADA

se abro um bloco de notas e mando imprimir sai e BEM rápido


preciso fazer alguma configuração para imprimir um arquivo TEXTO para uma impressora Epson Lx-350 usando o comando PrintFileRaw ...

win_PrintFileRaw
Function Main
clear
sFile := 'c:\temp\file_to_print.prn'
Aprn = GetPrinters(.t.)
prin := {}
for i = 1 to len(aprn)
aadd(prin,aprn[i,1])
next

op = Achoice(5,5,08,60,prin)

clear
@ 5,5 say aprn[op,1]
@ 5,30 say aprn[op,2]

Set Device To Print
Set Print On
Set Print To sFile

@ 1,1 ...

... PCol() Say "E" + cEol // envia para a impressora
@ Prow()+0, PCol() Say "Q" + cEol // esvazia a memoria da impressora

SET PRIN TO
SET DEVI TO SCREEN

cPrinter := GetDefaultPrinter() // pega impressora padrao
for i:=1 to 2
PrintFileRaw( cPrinter, cFileImp, "Etiqueta:"+str(i,3) )
next

Return

... Prow()+0, PCol() Say "Q" + cEol // esvazia a memoria da impressora

SET PRIN TO
SET DEVI TO SCREEN

cPrinter := GetDefaultPrinter() // pega impressora padrao
for i:=1 to N_ETIQ
PrintFileRaw( cPrinter, cArquivo, "Etiqueta Lote ->"+str(i,3) )
next

if etiqbranca
ETIQ_B.RELEASE
endif

Return

... tem uma cliente que NAO comprime na VERTICAL.

uso o comando: @ prow(), 00 say chr(27)+"0"

estou direcionando para um arquivo e depois uso o PrintFileRaw(pprt,a) para imprimir.


se trato direto como MATRICIAL NAO imprime. a M. do Win costuma fazer isso funciona e de repente para de funcionar..
ai ...

... a impressão para um arquivo
SET PRINTER TO arquivo.txt

// código do relatório

// finalizar o relatório
SET PRINTER TO

// enviar para a impressora
win_PrintFileRaw(win_PrinterGetDefault(), "arquivo.txt")

// remover arquivo temporário
FErase("arquivo.txt")


Precisa incluir hbwin.hbc na compilação.

olá, use o comando PRINTFILERAW() ou Win32Prn():new( cPrn ).

Regards, saludos.

... nas fun‡äes:
GetDefaultPrinter(), CreateObject(), hb_SetCodepage()
hbmk2: Dica: Adicionar op‡Æo 'hbwin.hbc' faltando nas fun‡äes:
win_PrintFileRaw(), win_printerStatus(), win_Prn(),
win_printerGetDefault(), win_OEMToANSI(), wapi_MessageBox(),
wapi_DestroyMenu(), wapi_GetActiveWindow ...

... 716f4Yor3v3ehTwpExN8n/P4ZU/w+4UUUnF8dj/+S7zquI2L8A703y0s=:C21C"

// Termina Etiquetas
? "^XZ"

Setalternate()
WIN_PrintFileRaw(cPrinter, [COD_BARRA.TXT], [BARRA])
ferase([COD_BARRA.TXT])

Next

Setalternate()
WIN_PrintFileRaw(cPrinter, [COD_BARRA.TXT], [BARRA ...

... enviar caracteres para resetar e converter para 10PP

+++ pelo visto NAO funcionou usei de um arquivo printer.dbf +++ por enviar o txt pelo PrintFileRaw(pprt,a,pprograma)
não sei se poderia.

mandei chamar um tec para configurar na Impressora MANUALMENTE 10PP

a EPSON deveria ter um Aplicativo ...