Imprimir arquivos .txt

Fórum sobre a linguagem CA-Clipper.

Moderador: Moderadores

UKclipper
Usuário Nível 1
Usuário Nível 1
Mensagens: 27
Registrado em: 13 Fev 2007 16:29

Imprimir arquivos .txt

Mensagem por UKclipper »

Olá, pessoal!

Gero relatórios em meu sistema usando o Set Alternate To <nome do arquivo>; Set alternate on ...

Como faço para mandar para imprimir esse arquivo texto gerado?
Avatar do usuário
gvc
Colaborador
Colaborador
Mensagens: 1270
Registrado em: 23 Ago 2005 10:57

Mensagem por gvc »

Vc pode usar:

type <arquivo> > prn

run copy <arquivo> lpt1

run nodosimp <arquivo> 96 // esse programa imprime na impressora padrão do Windows.
"TRS-80/Sincler/Apple/PC - Clipper Winter 85, tlink 1.0 [pc 10 MHz - 640K] {NEZ 8000 2Kb RAM}"
{POG - Programação Orientada a Gambiarra}
Avatar do usuário
Clipper
Colaborador
Colaborador
Mensagens: 1334
Registrado em: 23 Ago 2004 00:04
Localização: Recife/PE

Mensagem por Clipper »

Você também pode usar o comando TYPE do Clipper.

Exemplo :

SET CONSOLE OFF
TYPE ARQUIVO.TXT TO PRINTER
SET CONSOLE ON

Obs : Não confundir o comando TYPE com a função TYPE(), ambos existem no Clipper.

Ps. Fazia muitos, mas muitos anos mesmo que não ouvia falar no SET ALTERNATE

Até logo.

Marcelo
Programador que é programador, quando tá de folga vai inventar função nova, fazer testes, ou seja... se divertir
Cobra 210 - Drive de 8" 1.024 KB - 64 KB RAM - Impressora de Linha Cobra - Visicalc - Fortran - Dialog - Sistema Operacional SP/M (é sp/m mesmo - era o cp/m da cobra)
Responder