Pode ser baba, mas não sei !!! ME AJUDEM!!!!!

Delphi

28/02/2003

Caros colegas, estou com um sério problema, preciso gerar um relátório para uma impressora matricial, só que não quero utilizar o QuickRep ( nem sei se é possivel ) gostaria de fazer tudo via codigo.....se alguem puder por gentileza me mandar alguma dica explicativa sobre como posso fazer ficaria muito grato.........
E TB COMO POSSO FAZER PARA VISUALIZAR A IMPRESSÃO SE ELA FOI FEITA NO CODIGO SEM COMPONENTE.......
tipo assim:

xxxxxxxxx // ler arquivo
xxxxxxxxx // gravar linha
xcxxxxxxx // pular linha, etc..........

[]´s

Oscar Luiz


Oscarluiz

Oscarluiz

Curtidas 0

Respostas

Anonymous

Anonymous

28/02/2003

var F: TextFile;
begin
AssignFile(F,´LPT1´);
Rewrite(F);
WriteLn(F,´ESTOU IMPRIMINDO DIRETO´);
WriteLn(F,´ ´);
WriteLn(F,´PULEI UMA LINHA E IMPRIMI DE NOVO´);
CloseFile(F);
end;

No caso para visualizar voce pode colocar num memo.


GOSTEI 0
Anderson Silva

Anderson Silva

28/02/2003

o Amigo acima esplicou muito bem porem LPT1 manda direto para a Impressora.

AssignFile este comando se encontra na Unit Printers ou Printer noa me lembro, basta adicionar na uses

var F: TextFile;
begin
AssignFile(F,´Arquivo.Doc´); //* Cria ou abre um Arquivo Txt, DOC etc
Rewrite(F); //* Abilita a opcao de gravar linhas no Arquivo
WriteLn(F,´ESTOU IMPRIMINDO DIRETO´); //* Comando que grava a linha no Documeno
CloseFile(F); //* Fecha e Salva o Arquivo
end;

Para ler esse arquivo basta fazer assim

var F: TextFile;
Linha : String;
begin
AssignFile(F,´Arquivo.Doc´); //* Cria ou abre um Arquivo Txt, DOC etc
Reset(F); //* Manda o Cursor para o Começo
While not EOF( F ) do Begin
ReadLn(F,linha); //* Le a Linha e joga numa variavel string
//*Jogar a var linha onde quiser, ou seja em um Componente Memo por exemplo
memo1.Lines.Add( Linha );
end;
CloseFile(F); //* Fecha e Salva o Arquivo
end;

espero ter ajudado quaqleur coisa me procure no ICQ ou opr email


GOSTEI 0
POSTAR