Modificar polegadas da impressora

18/12/2003

1

Caros, gostaria de modificar em tempo de execução as polegadas ´inches´ da minha impressora, por exemplo:

Lx-300 - Letter 1/8 Inches - 11

eu gostaria de mudar para por exemplo: 20 o número de polegadas ´inches´ alguém sabe de algum rotina?

obrigado


Responder

Posts

18/12/2003

Marconi

Se entendi, voce quer mudar o tamanho da página de impressão:

O que voce precisa é enviar os comandos ESC-P no modo DOS.

Define o comprimento da página em linhas
Writeln(#27+´C´+chr(n));
onde n= número de linhas (1 a 127)

Define o comprimento da página em polegadas
Writeln(27+´C0´+chr(n)); {0 é zero}
onde n=número de polegadas (1 a 22)

Define o espaçamento da linha em 1/8 de polegada
Writeln(27+´0´);

Define o espaçamento da linha em 7/72 de polegada
Writeln(27+´1´);

Define o espaçamento da linha em 1/6 de polegada
Writeln(27+´2´);

Define o espaçamento da linha em n/216 de polegada
Writeln(27+´3´+chr(n));

Espero que isto lhe ajude.

Marconi


Responder

18/12/2003

Marconi

Ai vai um exemplo:


Procedure.Tform1.TamanhoPagina(n:word); {n polegadas}
var
ArqP:TextFile;
begin
if (n>22) or (n<1) then begin
ShowMessage(´O valor de n é invalido´);
exit;
end;
assignfile(ArqP,´lpt1´);
rewrite(arqP);
Writeln(#27+´C0´+chr(n));
closefile(arqP);
end;

Boa Sorte


Responder

18/12/2003

Halexmaciel

Obrigado pela ajuda, mas ele está enviando este erro, será porque minha impressora está na rede? Se bem, que eu passo o caminho da impressora. Ocorre este seguinte erro quando executa a linha de comando para polegada da página:

Mensagem: I/O error 103

obrigado


Responder

18/12/2003

Marconi

O erro é porque a sua impressora está na rede, pois ele manda os comandos para a porta paralela lpt1.

Vou ver como podemos corrigir isto.

Marconi


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira