Imprimir Clientes

[lkm]

Tenho uma tabela em paradox com os dados dos meus clientes, e como faço para imprimir somente um deles.

[Corposemalma]

Se voce quer imprimir com formnatacao e tal, o ideal seria usar um gerador de relatorios como QuickReport

[lkm]

É que eu tenho um código assim:

procedure Tfm_imp_autor.BitBtn1Click(Sender: TObject);

var

busca : string;

begin

Busca := Edit1.Text + '*';

table1.Filter := 'razao_social =' + QuotedStr(Busca);

table1.Filtered := True;

fm_imp_aut.QuickRep1.Preview;

end;

quando eu faço a 1º consulta o quickreport recebe tudo direitinho mas quando eu fecho ao form e tento fazer ela novamente o quickreport aparece em branco.

O que eu faço para ele receber sempre os valores da consulta?

[Darlan]

É que eu tenho um código assim:

procedure Tfm_imp_autor.BitBtn1Click(Sender: TObject);

var

busca : string;

begin

  Busca := Edit1.Text + '*';

  table1.close;

  table1.open;

  table1.Filter := 'razao_social =' + QuotedStr(Busca);

  table1.Filtered := True;

  fm_imp_aut.QuickRep1.Preview;

end;

quando eu faço a 1º consulta o quickreport recebe tudo direitinho mas quando eu fecho ao form e tento fazer ela novamente o quickreport aparece em branco.

O que eu faço para ele receber sempre os valores da consulta?

Tente assim.....

[lkm]

Valeu, mas continuou na mesma.

[Arlon]

Porque que você não usa uma Query e comandos SQL pra fazer a consulta? Caso não saiba posta aí que agente te ajuda.

[lkm]

Se puder me ajudar, não conheço muito de SQL?

Valeu

[Darlan]

Bem usando query eu acho mais fácil ...

você vai precisar do componente query, e de um edit para passar o campo que vai te retornar a consulta, geralmente é o código...

no evento onexit do edit, você pode fazer a consulta....

query.close;

query.sql.clear;

query.sql.add('select nome from cliente where cod_cliente = "' Edit1.text"' ');

query.open;

Darlan