Quick Report

Delphi

05/10/2004

Oi...estou trabalhando no Relatorio usando quickrep..e trabalhando direto c as tabelas..entao...em vez de imprimir todos os usuarios cadastrados...ele filtra..e exibe apenas daquele filtrado pelo codigo...eu queria colocar um checkbox...p ter outra opcao..imprimir todos de uma vez so..e apenas ticando o checkbox..e o botao q chama o relatorio..Obrigado!


Bonni

Bonni

Curtidas 0

Respostas

Lucas Silva

Lucas Silva

05/10/2004

Você pode acumular este itens checados, em uma Lista, e depois, usando a banda do Tipo QRStringBand, você chama cada registro da sua lista!


GOSTEI 0
Janete

Janete

05/10/2004

bom, não sei se entendi muito bem, mais lá vai...

CheckBox1 = Imprimir todos os clientes
CheckBox2 = Imprimir os clientes do filtro

procedure TFrmRelPrincipal.CheckBox1Click(Sender: TObject);
begin
      //tira o filtro
     if Table1.Filtered then
     begin
          Table1.OnFilterRecord:=nil;
          Table1.filtered:=false;
     end;
QuickRep1.Preview;
end;
procedure TFrmRelPrincipal.CheckBox2Click(Sender: TObject);
begin
//aqui vai seu filtro
QuickRep1.Preview;
end;

espero ter ajudado!


GOSTEI 0
POSTAR