Mandando os seguintes comandos vc consegue isso:
Chr(15); //Comprimido
Chr(18); //Descomprimido (normal)
Leandro
----- Original Message -----
From: "Emerson Moreno" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Wednesday, August 31, 2005 10:28 AM
Subject: [delphi-br] Condensar impressão. Como fazer??
Caros amigos...
Estou com um certo problema, estou precisando condensar um arquivo na
impressora e não sei como fazer, veja como faço em meu sistema.
procedure TFrmPrincipal.Button1Click(Sender: TObject);
Var
sStrImpressao : TStringList;
begin
sStrImpressao := TStringList.Create();
sStrImpressao.Add('Linha 1');
sStrImpressao.Add('Linha 2');
sStrImpressao.Add('Linha 3');
sStrImpressao.Add('Linha 4');
sStrImpressao.SaveToFile(LPT1);
end;
Dessa forma mando salvar direto na porta da impressora, a impressão
sai normal, mas eu queria condensar para ficar melhor. Como passo
fazer??
Muito obrigado amigos.
--
[]'s
Emerson Moreno
O grande sábio aprende por ensinar!
--
<<<<< 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] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
--
<<<<< 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] ou [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
