Está assim atualmente
WritePrinter(hPrinter, PChar(#13+#10), Length(#13+#10), BytesWritten);
E depois coloquei os caracteres
WritePrinter(hPrinter, PChar(#27#77), Length(#27#77), BytesWritten);
Funciona, porém a impressão fica bem estranha. Totalmente desalinha e não
compacta.
Luciano Alves de Oliveira
----- Original Message -----
From: "Ulisses" <[EMAIL PROTECTED]>
To: <delphi-br@yahoogrupos.com.br>
Sent: Friday, October 28, 2005 9:49 AM
Subject: Re: [delphi-br] Compactar impressão matricial
> Luciano,
>
> Se enviar os caracteres 27 e 77 para a impressora Epson, com certeza irá
> mudar para o modo compactado com 12 caracteres por polegada. Esse código
> foi retirado do manual das Impressoras marca Epson. Acredito, exclusive,
> que funcione com outras impressora que emulam a impressora Epson.
>
> Se puder passar uma parte do código, posso verificar aqui também. Nunca
> usei a função writeprinter().
>
> Ulisses
>
> ----- Original Message -----
> From: "Luciano" <[EMAIL PROTECTED]>
> To: <delphi-br@yahoogrupos.com.br>
> Sent: Friday, October 28, 2005 9:36 AM
> Subject: Re: [delphi-br] Compactar impressão matricial
>
>
>> Ulisses,
>>
>> Não funcionou porque provalmente estou usando writeprinter ao invés de
>> somente wirte.
>>
>> Mas mesmo assim agradeço a atenção.
>>
>> Luciano Alves de Oliveira
>>
>>
>> > Bom dia!
>> >
>> > Se for impressora Epson ESC/P 2, pode usar o seguinte:
>> >
>> > Write(F,#27#77);//Altera para 12 cpi
>> >
>> > Boa sorte.
>> >
>> > Ulisses
>> >
>> > ----- Original Message -----
>> > From: "Luciano" <[EMAIL PROTECTED]>
>> > To: "delphi" <delphi-br@yahoogrupos.com.br>
>> > Sent: Friday, October 28, 2005 8:37 AM
>> > Subject: [delphi-br] Compactar impressão matricial
>> >
>> >
>> > Pessoal,
>> >
>> > Estou desenvolvendo um relatório para impressão matricial, conforme a
>> > revista Magazine de Janeiro/2004, funcionou tudo direitinho o problema
>> > é
>> > que preciso compactar a impressão e não consigo achar uma maneira de
>> > fazer
>> > isso
>> >
>> > Desde agradeço por qualquer ajuda.
>> >
>> > Luciano Alves de Oliveira
>> >
>> >
>> > [As partes desta mensagem que não continham texto foram removidas]
>> >
>> >
>> >
>> > --
>> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>> >
>> >
>> >
>> > Links do Yahoo! Grupos
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>> > --
>> > <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>> >
>> >
>> >
>> > Links do Yahoo! Grupos
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>> >
>> > --
>> > No virus found in this incoming message.
>> > Checked by AVG Free Edition.
>> > Version: 7.1.361 / Virus Database: 267.12.5/150 - Release Date:
>> > 27/10/2005
>> >
>> >
>>
>>
>>
>> --
>> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>>
>>
>>
>> Links do Yahoo! Grupos
>>
>>
>>
>>
>>
>>
>>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
>
>
>
> Links do Yahoo! Grupos
>
>
>
>
>
>
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.1.361 / Virus Database: 267.12.5/150 - Release Date: 27/10/2005
>
>
--
<<<<< 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
