Imprimindo com win32prn

[Kadu]

Ola, pessoal.

Tenho vários relatórios no padrão clipper, com todos aqueles @ linha, coluna say "variável".
Não sei como passar isto para WIN32PRN e sinceramente não acho nenhum exemplo ou documentação que me ajude.

Por favor, se alguem puder me ajudar.

Meu relatorio. Ex:

SET CONSOLE OFF
SET DEVICE TO PRINT
SET PRINT ON
SET PRINTER TO ("LPT1.")

@ linha, coluna say "dfdsafdsfdsfsdf"
mlinha = mlinha + 1
@ linha, coluna say "dfadsfsdfsdafsdf"
etc,,,

Obrigado.
Kadu

[gvc]

Dá uma olhada neste tópico:

https://pctoledo.org/forum/viewto ... t=win32prn

Já adianto que funciona assim:

Código: Selecionar todos

oPrinter:SetPrc(linha, 10)
oPrinter:TextOut(xmes + '  ' + key1)
oPrinter:SetPrc(linha, 40)
oPrinter:TextOut(transform(a_tot[1, 1], '@E 99,999,999,999.99'),,, 1)
oPrinter:SetPrc(linha, 60)
oPrinter:TextOut(transform(a_tot[1, 2], '@E 99,999,999,999.99'),,, 1)
oPrinter:SetPrc(linha++, 80)
oPrinter:TextOut(transform(a_tot[1, 3], '@E 99,999,999,999.99'),,, 1)

[sygecom]

Olá Kadu,
Se queres aproveitar seus relatório Clipper, tente desviar para um TXT que é simples e muda pouco e use a dica do link abaixo:
viewtopic.php?f=43&t=9472&p=53675&hilit=PrintFileRaw#p53675

[gvc]

Eu achei que o colega quer usar a classe win32prn.
Se é para usar arquivo texto, pode usar o NODOSIMP e resolver o problema de impressão com impressoras USB, Rede IP e somente gráficas.

Gere o arquivo texto;
Chame o NODOSIMP passando os parâmetros para imprimir o arquivo.
- No meu caso, mando para a impressora padrão do windows. Ficou transparente para o usuário e imprime na impressora instalada no windows. Aqui foi um "santo" remédio.