Modificar polegadas da impressora

Question

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

Marconi · Answer

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

Marconi · Answer

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...

Halexmaciel · Answer

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

Marconi · Answer

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...