Imprimir so o que eu quero

Olá Wagner,
coloque um Query no seu formulário, mude sua propriedade Sql para:
´Select * from tabela where (Data BETWEEN ´1/1/2003´ and ´12/12/2003´)´; Mude a propriedade Active para True e pronto! :lol:



Espero ter ajudado.
Vinicius.

Ajudou bastante, mais eu ainda tenho duvidas (desculpe-me) mais como devo proceder eu tenho um formulario:

Cod.
Referente
data
Valor

Botão imprimir
dai abre outro formulario com 2 edit´s onde coloco data inicial e final e botão imprimir, é essa minha sequencia desculpe-me se não fui mais detalhado, essa dica funcionaria para essa forma? onde coloca-la?

Obrigado

substitua as datas que estão lá em cima por edit1.text e edit2.text

Beleza Edilcimar, voce sempre respondendo minhas duvidas, obrigado,

Mais onde eu coloco no evento onclick do botão imprimir?

vc vai ter q colocar na tela um quickreport e configurar ele e colocar o que vc quer imprimir, e fazer sua folha de impressao

Ate ai eu sei a duvida e como fazer para so o dias que eu quero ir para relatorio

Olá novamente,
mude a propriedade DataSet do QuickReport para o Query que você usou.


Espero ter ajudado.
Vinicius.

[b:fbd50d89c7]Coloque no Botão Mesmo[/b:fbd50d89c7]

Form_Relatorio := TForm_Relatorio.Create(Self);
Frm_Relatorio.QuickRep1.Preview;


Pesquisa Po Data

Crie uma variável string exemplo ´Pesq´

[b:fbd50d89c7]var[/b:fbd50d89c7]
Pesq:[b:fbd50d89c7]String[/b:fbd50d89c7]
[b:fbd50d89c7]Begin[/b:fbd50d89c7]
Pesq := ´Data do Banco de Dados´;
[b:fbd50d89c7]if [/b:fbd50d89c7](MaskEdit1.text = ´ / / ´) [b:fbd50d89c7]or [/b:fbd50d89c7](MaskEdit2.Text = ´ / / ´) [b:fbd50d89c7]then[/b:fbd50d89c7]

[b:fbd50d89c7]Begin[/b:fbd50d89c7]
ShowMessage(´Voce Tem que Digitar as Datas´);
[b:fbd50d89c7]end[/b:fbd50d89c7]
[b:fbd50d89c7]else[/b:fbd50d89c7]
Query1.Close;
Query1.Sql.Clear;
Query1.SQL.Add(´Select * from Tabela´);
Query1.SQL.Add(´Where ´+Pesq+´>=:Inicio and ´+Pesq+´<=:Final´);
Query1.Sql.Add(´Order By ´+Pesq);
Query1.ParamByName(´Inicio´).AsDate:=StrToDate (MaskEdit1.text);
Query1.ParambyName(´Final´).AsDate:=StrToDate (MaskEdit2.text);
Query.execSql;
Query.Open;
[color=blue:fbd50d89c7]Form_Relatorio := TForm_Relatorio.Create(Self);
Form_Relatorio.QuickRep1.Preview;[/color:fbd50d89c7]
[b:fbd50d89c7]end;
end;[/b:fbd50d89c7]


[b:fbd50d89c7]Espero ter esclarecido Melhor.[/b:fbd50d89c7]
[/b]

Colega eu fiz dessa forma mais nao esta funcionando o que estou fazendo errado?


var
Pesq:String;
Begin
Pesq := ´datapag´;
if (MaskEdit1.text = ´ / / ´) or (MaskEdit2.Text = ´ / / ´) then

Begin
ShowMessage(´Voce Tem que Digitar as Datas´);
end
else
t_reccond.Close;
Query1.Sql.Clear;
Query1.SQL.Add(´Select * from Tabela´);
Query1.SQL.Add(´Where ´+Pesq+´>=:Inicio and ´+Pesq+´<=:Final´);
Query1.Sql.Add(´Order By ´+Pesq);
Query1.ParamByName(´Inicio´).AsDate:=StrToDate (MaskEdit1.text);
Query1.ParambyName(´Final´).AsDate:=StrToDate (MaskEdit2.text);
Query1.execSql;
t_reccond.Open;
F_relrectaxa:= F_relrectaxa.Create(Self);
F_reltaxa.QuickRep1.Preview;
end;

Poxa! amigos niguem pode me ajudar?

Colegas é o seguinte ele compila legal entra no sistema e tudo mais, o erro aconteçe quando eu informo a data e tento imprimir ele da a seguinte mensagem ´ project admincondo1.exe raised exception class edbemginerror whith message table does not exist´

file :c:\arq..prog..\admincodo1\tabela.db
file :c:\arq..prog..\admincodo1\tabela.dbf
file :c:\arq..prog..\admincodo1\tabela.txt

Alguma coisa esta passando despercebido?

var
Pesq:String; // campo a ser pesquisado
Begin
Pesq := ´datapag´;
if (MaskEdit1.Text = ´ / / ´) or (MaskEdit2.Text = ´ / / ´) then
ShowMessage(´Voce Tem que Digitar as Datas´)
else
begin
Query1.Sql.Clear;
Query1.SQL.Add(´Select * from Tabela´);
Query1.SQL.Add(´Where ´+Pesq+´ between :Inicio and :Final´);
Query1.SQL.Add(´Order By ´+Pesq);
Query1.ParamByName(´Inicio´).AsDate:=StrToDate (MaskEdit1.text);
Query1.ParambyName(´Final´).AsDate:=StrToDate (MaskEdit2.text);
Query1.Prepare; // devido alteração na query em tempo de execução
Query1.Open;
F_relrectaxa:= F_relrectaxa.Create(Self);
F_reltaxa.QuickRep1.Preview;
end;
end;

Cara era isso mesmo, resolveu em parte o projeto entra tudo bem legal dai quando eu informo as datas apareçe agora outro erro

´ project admincondo1.exe raised exception class estackoverflow with message ´extravasamento da pilha processo stopped use step on run to continue ´

Meu irmão acho que o delphi tá xingando até minha mãe :lol: pode me ajudar por favor?

Amigo, Todos os meus relatórios eu crio um form e coloco os componentes do QR e dou o .Previw Pronto. Alias,

if (MaskEdit1.Text = ´ / / ´) or (MaskEdit2.Text = ´ / / ´) then
ShowMessage(´Voce Tem que Digitar as Datas´)

if (MaskEdit1.Text =´´) or (MaskEdit2.Text =´´) then
ShowMessage(´Voce Tem que Digitar as Datas´)

A segunda comigo dá certo.

Abraços

Continua dando o mesmo erro quando informo as datas

´Extravasamento de pilha´

Fica o problema ai, infelizmente so acesso o forum fins de semana e mais barato já que eu uso conexão discada :lol: so vou puder consultar as dicas agora no proximo fim de semana, obrigado e fico no aguardo.