Em 28/02/06, Marcio R. De Souza<[EMAIL PROTECTED]> escreveu:
> Olá alguém pode me dizer onde encontro apostilas ou exemplos de como imprimir
> em impressora matricial direto para a lpt1. se alguém tiver um exemplo que
> puder me enviar agradeço.
>
============Exemplo simples =====================
var
Saida; TextFile;
begin
AssignFile(Saida, 'lpt1'); //seta para lpt1
Rewrite(Saida); // abre arquivo, neste caso, a saida
para impressora
Writeln(Saida, 'Texto a ser impresso com final de linha');
Write(Saida, 'Texto a ser impresso sem final de linha');
Write(Saida, 'Continua a linha de cima');
Writeln(Saida); // quebra linha
Flush(Saida); // descarrega o final do buffer
CloseFile(Saida);
end;
==================================================
Alencar
---------------------------------------
Philler Informatica Ltda
Jose Alencar Philereno
ICQ 13458351
Messenger/Skype (voz): alencar
"Feliz aquele que transfere o que sabe
e aprende o que ensina" Cora Coralina
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
<*> Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
<*> Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
