Mas onde no meu código eu faço isso? será que poderia me dar uma luz?
Obrigado Leandro.
Em 31/08/05, Leandro<[EMAIL PROTECTED]> escreveu:
> 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]
>
>
>
> Yahoo! Grupos, um serviço oferecido por:
> PUBLICIDADE
>
> ________________________________
> 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 Termos do Serviço do
> Yahoo!.
--
[]'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
<*> 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
