Impressão // Será que ninguem possui uma solução?
Caros amigos,
Alguem pode me dar uma solução para criar relatórios de impressão em modo texto que sejam compatíveis com várias impressoras?
Desde já agradeço.
Alguem pode me dar uma solução para criar relatórios de impressão em modo texto que sejam compatíveis com várias impressoras?
Desde já agradeço.
Anonymous
Curtidas 0
Respostas
Fernando
10/02/2003
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
Valeuuu
GOSTEI 0
Anonymous
10/02/2003
Componetes caros.....
GOSTEI 0
Anonymous
10/02/2003
É 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
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
GOSTEI 0