impressão em papel pré-impresso

[flavioavilela 0]

bom dia a todos... peguei um sisteminha pra fazer e nele preciso imprimir em uma matricial, dados em um papel já pré-impresso, tipo nota fiscal... alguem já fez isso que pode dar umas dicas...???

[Faccruz 0]

você precisa dizer para a impressora a posição dos campos, algo do tipo

 

O campo nome está na linha 10, inicia na coluna 50

 

Acredito que o componente RDPrint faça isso de modo mais facil, porém não é free

[DárioFelix 0]

Eu uso o camando writeln e imprimo normal ate em rede, o codigo esta configurado para bobina mas pode ser modificado

 

 

linha:='--------------------------------------------------';

linha_final:='==================================================';

 

Assignprn(arq_impress);//Envia para saida da impressora

//AssignFile(arq_impress, 'c:\cupom.txt');

Rewrite(arq_impress);

//Inicia cabeçario da Assistencia

writeln(arq_impress, ' XXXXXXXXXXXXXXXXXXXXXXXXXXXXX ');

writeln(arq_impress, 'Rua de XXXXXXXX, XXXX XXXXXXXXX - Aracaju SE');

writeln(arq_impress, 'Cnpj:00.000.000./0001-71 IE: 27.064.421-0');

writeln(arq_impress);

writeln(arq_impress, linha);

writeln(arq_impress, 'Pedido: ',Frm_Frente_de_Caixa.Txt_NCupom.caption,' Emissao:01/02/2010' );

writeln(arq_impress, linha);

//Itens da nota

writeln(arq_impress, 'Cod Descricao Qtd Valor.Unit Total');

 

DmFrenteCX.Tbl_Itens.First;

 

 

while Not DmFrenteCX.Tbl_Itens.Eof do

begin

 

writeln(arq_impress, DmFrenteCX.Tbl_Itens.FieldbyName('Servico_id').AsString, ' ',DmFrenteCX.Tbl_Itens.FieldbyName('DESCRICAO_ESTOQUE').AsString);

 

writeln(arq_impress, ' ',DmFrenteCX.Tbl_Itens.FieldbyName('Saida_Estoque').AsString,' ',DBEdit2.text,' ',DBEdit1.text);

DmFrenteCX.Tbl_Itens.Next;

 

end;

writeln(arq_impress,linha);

writeln(arq_impress,'Total: ', Edt_Total.text);

writeln(arq_impress, 'Cliente: ',tXT_Cliente.caption);

writeln(arq_impress, '');

writeln(arq_impress, 'Nao e Valido Como Cupom Fiscal');

writeln(arq_impress,'');

writeln(arq_impress,'');

writeln(arq_impress,'');

writeln(arq_impress,linha_final);

writeln(arq_impress,'');

writeln(arq_impress,'');

writeln(arq_impress,'');

writeln(arq_impress,'');

writeln(arq_impress,'');

writeln(arq_impress,'');

writeln(arq_impress,'');

writeln(arq_impress,'');

closefile(arq_impress);