Converter Impressão Clipper -> Harbour

[developer]

Olá todos,

Onde consigo orientação de estratégia para converter da melhor maneira possível código fonte de impressão usado em Clipper para Harbour, para poder imprimir diretamente nas impressoras atuais (usb, de rede, etc...)?

Os códigos são tipicamente do tipo:

Código: Selecionar todos

SET DEVICE TO PRINT
DO WHILE !EOF()
   @ PROW()+,10 SAY "xxxxxxxxxxxxx"
   ....
   EJECT
SET DEVICE TO SCREEN

O que estava sendo usado eram emuladores DOS 16 bits e DOSPRN, DOS2USB mas agora queria converter esse código para Harbour e imprimir direto, imagino que alguns tiveram que passar por esse caminho e poderiam me orientar

Obrigado

[Kapiaba]

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

Regards, saludos.

[Kapiaba]

Agora, se tiver tempo e dinheiro para investir, venha para o mundo Gráfico(super rcomendo) Fivewin é o bicho:

https://fivewin.com.br/index.php

E você contará com a MAIOR SUPER POTÊNCIA DO FIVEWIN BRASIL! hahahahahaha. Modesto d+ kkkkkkkk

Brincadeira, somente para "quebrar" o gelo. Abs.

Regards, saludos.

[marcosgambeta]

O básico seria isto:

Código: Selecionar todos

// direcionar 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.

[developer]

Marcos, obrigado pela dica, isso ajudou MUITO.

Kapiaba, não tenho dúvida que Fivewin é muito bom, provavelmente um dos melhores, se não for o melhor ambiente grático para o Harbour.