Fórum Impressão // Será que ninguem possui uma solução? #134227

Alex visite o site www.deltress.com.br la vc encontrara componentes para impressão em modo DOS e com varias configurações. Eu uso todos eles e indicaria a todos.


Valeuuu

Componetes caros.....

É simples fazer uma impressão em modo ´Texto´ que é compativel com todos as impressoras do mercado.
Para isso siga os seguintes procedimentos:

Crie uma variável do tipo TextFile;
Associe esta variável a um dispositivo, tal como PRN;
Para imprimir as linha, utilize o Write ou WriteLn.

Por exemplo:

procedure Imprimir;
var
Imp: TextFile;
begin

try
AssignFile(Imp, ´PRN´); // Você pode usar também LPT?:
Rewrite(Imp); // Abre a porta da impressora
WriteLn(Imp, ´Primeira linha´);
Write(Imp, ´Negrito´); // Imprime a primeira vez
Write(Imp, ´Negrito´); // Imprime novamente
WriteLn(Imp); // Pula uma linha
finally
CloseFile(Imp);
end;

end;

Algumas impressoras trabalham com o padrão ESC-P, ou seja, utilizam algumas ´TAGS´ para alterar o tamnho da fonte, cor etc, mas não são todas as marcas que funcionam.


Espero ter ajudado.


Rodrigo Salvador
rodrigocesar@vanrooy.com.br