WriteLN
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
Curtidas 0
Respostas
Yankleber
27/11/2003
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!
GOSTEI 0
Neoramza
27/11/2003
valeu! Eu to usando o QR e ta dando certo
GOSTEI 0