Ola pessoal estou aqui divulgando um componente de minha autoria para impressão em impressoras matriciais confesso que ele fico muito bom e estou disponibilizando ele para downloads para vocês ele tem versão para
D6, D7 e Delphi 2006 se alguém desejar o componente para outra plataforma de desenvolvimento me avise
Componentes experimental Gratuito para impressão em impressora matricial e em arquivo de texto(sim isso mesmo arquivo)
ele abre sua impressao no bloco de nota para voce testar
sua impressao para nao ter que ficar imprimindo para fazer um teste
Bom para usar ele é muito simples
meu e-mail para contanto esta logo abaixo e o link do componente tbm
e-mail
mailto:paulo@liveteenslinux.com
Componente:
Exemplo de uso
with Matric_Text_Arq1 do
begin
{Inicia impessao no local que voce quizer voce pode indica uma porta , caminho de uma impressora,
ou ate mesmo uma caminho no estilo txt para ele abrir em sua tela para voce fazer um teste sem
imprimir ou imprimir se necessario}
Imprimir('C:\arquvi.txt');
TextoLC(1,1,'Teste de Impressao');
FinalizaImpressao;
end;
ou ate mesmo voce pode chamar um componente PrinterSetupDialog
somente chame ele para que o usuario escolha uma impressora
que ele ira detectar a impressora que o usuario escolhe
para para isso use uma função que esta no proprio componente para que ele faça isso
with Matric_Text_Arq1 do
begin
PrinterSetupDialog1.Execute;
Imprimir(ImpressoraPorta);
TextoLC(1,1,'Teste de Impressao');
FinalizaImpressao;
end;
ou indicar um caminho de rede sozinho ou ate do banco via depender da sua imaginação
with Matric_Text_Arq1 do
begin
Imprimir('\\Maquina_De_Impressao\lx300');
TextoLC(1,1,'Teste de Impressao');
FinalizaImpressao;
end;
abaixo estao alguns exemplos do que ele pode fazer ele ainda esta em desenvolvimento logo
tera mais coisas e para isso conto com sua ajuda de sua dica de sua opniao
diga o que gostaria que ele tivesse para melhorar mais ainda
with Matric_Text_Arq1 do
begin
ImpressoraPorta;//funcão que pega a impressora que voce escolheu
ImpressoraDispositivo;//função que pega no nome da impressora
ImpressoraDriver;//função que pega a porta que impressora ta instalada
ImpressoraLocal();//checa se a impressora esta local ou servidor
ImpressoraAtiva();//checa se a impressora esta ativa
Checa_MemoVazio();//checa se um memo esta preenchido
Imprimir();//inicia uma impressao da forma que voce quizer
TextoLC();//imprime texto de forma normal
TextoE();//imprime texto normal
TextoC();//imprime texto centralizado
TextoD();//imprime texto a direita
TextoMemoString();//imprime um testo longo
TextoMemoTStrings();//imprime o conteudo de um memo
Traco();//pula uma linha e imprime uma traço do jeito que voce quizer
TrocaTexto();//tira os acentos do testo
NovaPagina;//inicia uma nova pagina
FinalizaImpressao;
end;
