Impressão em EPSON antigas no Harbour

[marco.prodata]

Caros, qual a forma correta de imprimir diretamente pra impressora matricial no harbour ? Estou testando o seguinte código:

Código: Selecionar todos

Function Main
clear 
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 (aprn[op,1])

@ 1,1 say 'Teste de Impressao'
@ 4,1 say 'Linha 1'

Set Print Off
Set Device To Screen
Set Print To
 
Return .t.

Esse mesmo código funciona no xHarbour.

[Mario Mesquita]

Bom dia a todos.

Marcos, esse código não está fuincionando no Harbour? Faz tempo que não uso mais Epsons matriciais, mas acho que desse jeito funciona sim. Mas só posso cravar procurando algo daquele tempo.

Saudações,
Mario.

[marco.prodata]

Não funciona, dá o seguinte erro:

"Error TERM/2014 Create error: EPSON LX-300+II ESC/P (DOS Error 3) "

[Ana Mitoooo]

win_PrintFileRaw

Código: Selecionar todos

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 say 'Teste de Impressao'
@ 4,1 say 'Linha 1'

Set Print Off
Set Device To Screen
Set Print To

win_PrintFileRaw( aprn[op,1], sFile, 'Harbour win_PrintFileRaw' )

Return .t.