Fórum WriteLN #197436
27/11/2003
0
Eu usei o segunte codigo para imprimir uma linha em branco em uma impressora matricial:
procedure form1.BitBtn1Click(Sender: TObject);
var
ArqP:TextFile;
begin
assignfile(ArqP,´lpt1´); // se a sua Matricial estiver me LPT1
rewrite(arqP);
writeln(ArqP,´´);
closefile(arqP);
end;
A espressura da linha é sempre padrão, porem como eu faco para imprimir uma linha em branco que tenha a metade da espressura do padrão? :?:
procedure form1.BitBtn1Click(Sender: TObject);
var
ArqP:TextFile;
begin
assignfile(ArqP,´lpt1´); // se a sua Matricial estiver me LPT1
rewrite(arqP);
writeln(ArqP,´´);
closefile(arqP);
end;
A espressura da linha é sempre padrão, porem como eu faco para imprimir uma linha em branco que tenha a metade da espressura do padrão? :?:
Neoramza
Curtir tópico
+ 0
Responder
Posts
27/11/2003
Yankleber
Olá,
Eu acho que você tem que setar a fonte da impressora para um tamanho menor que o tamanho normal (no caso a metade da altura), mandar imprimir a linha em branco e depois voltar a fonte da impressora para o tamnho normal de novo.
Agora, eu não faço a menor idéia de como alterar a fonte da impressora, mesmo porque isso depende da impressora. Existem algumas matriciais muito antigas ou excessivamente simples que nem permitem esse recurso...
Uma outra forma também seria mudar a impressora para o modo gráfico e fazer o papel dela avançar alguns pixels ao invés de imprimir uma linha de texto em branco. De qualquer forma, você irá precisar descobrir quais são os códigos para ativar esse tipo de recurso.
Espero ter ajudado!
Eu acho que você tem que setar a fonte da impressora para um tamanho menor que o tamanho normal (no caso a metade da altura), mandar imprimir a linha em branco e depois voltar a fonte da impressora para o tamnho normal de novo.
Agora, eu não faço a menor idéia de como alterar a fonte da impressora, mesmo porque isso depende da impressora. Existem algumas matriciais muito antigas ou excessivamente simples que nem permitem esse recurso...
Uma outra forma também seria mudar a impressora para o modo gráfico e fazer o papel dela avançar alguns pixels ao invés de imprimir uma linha de texto em branco. De qualquer forma, você irá precisar descobrir quais são os códigos para ativar esse tipo de recurso.
Espero ter ajudado!
Responder
Gostei + 0
28/11/2003
Neoramza
valeu! Eu to usando o QR e ta dando certo
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)