Como imprimir [xHarbour puro] em LX-300 USB

[ecmsoft]

Tenho um aplicativo compilado em xHarbour puro, que imprime texto na porta LPT1. Gostaria de imprimir esse mesmo texto em uma impressora LX-300 USB.

Exemplo:

SET DEVICE TO PRINTER

@1,1 SAY cTexto

SET PRINTER TO

[william]

http://www.4shared.com/rar/N0fL0Vq-/dosprinter.html

olá , em xharbour puro não sei como fazer , mas eu resolvi esse problema usando a DOSPRINT, que após instalado fica em Tray aguardando a impressão.

No sistema vc so precisa mudar a impressão para um arquivo prn, exemplo

oprin= tdosprn():new("c:\print\print.prn")

A Dosprint captura esse arquivo, imprime na impressora usb e deleta o arquivo , e fica esperando o próximo.

Funciona 100% bem, talvez te ajude.

Acima o link para baixar o dosprint.

Att.

William Adami

[kapiaba]

Fácil:

PrintFileRaw(cPrint,cArq,'Pedido')

[kapiaba]

Ou se quiser mostrar Preview do seu texto:

cArqNome := "Teste.txt"
 
cCmd := "NOTEPAD /P " + cArqNome
 
RUN ( cCmd)

Gerará um .PDF se voce tiver um impressora virtual, tipo PDFMACHINE ou PDFCreator.

Se não tiver uma impressora virtual, o NOTEPAD disparará direto para a LX-300 USB.

Abs,

[kapiaba]

Documentado:

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=27832

[luisinfo]

Ja testei varios programas, mais o que melhor funcionou foi instalar a impressora USB e ativar o pool de impressão, assim não precisa mudar nada no programa, recurso do proprio Windows, instale a impressora USB normalmente no Windows depois inclui mais uma impressora ativando o pool de impressora como segue no link abaixo.

http://www.visualset.com.br/tutoriais/USB.pdf

[ecmsoft]

Eu utilizei o NODOSIMP.EXE. Gostei das opções que ele oferece, como: Selecionar a impressora e Preview.