Imrimir Seleção

Delphi

24/02/2005

Preciso imprimir os dados de uma pesquisa selecionados num DbGrid. A código abaixo, lista os dados selecionados em um listBox. Alguem saberia me dizer como faço para imprimir esta seleção?

var
 I: Integer;
 BookmarkList: TBookmarkList;
 Bookmark: TBookmarkStr;
begin
  Bookmark := FRelCarCTarja.QrPF.Bookmark;
try
  ListBox1.Clear;
  BookmarkList := DbGrid1.SelectedRows;
  for I := 0 to BookmarkList.Count - 1 do
begin
 FRelCarCTarja.QrPF.Bookmark := BookmarkList[I];
 ListBox1.Items.Add(FRelCarCTarja.QrPF.FieldValues[´NOME´]);
end;
finally
 FRelCarCTarja.QrPF.Bookmark := Bookmark;
end;
end;



Marcos-rj

Marcos-rj

Curtidas 0

Respostas

Leanribas

Leanribas

24/02/2005

brother se vc quiser imprimir somente o que o usuário selecionou no grid vc pode fazer um relatorio normalmente no qreport, com as colunas que vc presica, e ligar o relatorio a mesma qry do relatorio ae no evento BeforePrint do qreport vc verifica se o registro esta selecionado no dbgrid, caso esteja vc deixa ele imprimir a banda, caso não, vc não imprime a banda.

procedure TForm2.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if Form1.DBGrid1.SelectedRows.CurrentRowSelected then
PrintBand := true
else
PrintBand := false;
end;

end.


falou

Leandro


GOSTEI 0
Leanribas

Leanribas

24/02/2005

brother se vc quiser imprimir somente o que o usuário selecionou no grid vc pode fazer um relatorio normalmente no qreport, com as colunas que vc presica, e ligar o relatorio a mesma qry do relatorio ae no evento BeforePrint do qreport vc verifica se o registro esta selecionado no dbgrid, caso esteja vc deixa ele imprimir a banda, caso não, vc não imprime a banda.

procedure TForm2.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if Form1.DBGrid1.SelectedRows.CurrentRowSelected then
PrintBand := true
else
PrintBand := false;
end;

end.


falou

Leandro


GOSTEI 0
Leanribas

Leanribas

24/02/2005

brother se vc quiser imprimir somente o que o usuário selecionou no grid vc pode fazer um relatorio normalmente no qreport, com as colunas que vc presica, e ligar o relatorio a mesma qry do relatorio ae no evento BeforePrint do qreport vc verifica se o registro esta selecionado no dbgrid, caso esteja vc deixa ele imprimir a banda, caso não, vc não imprime a banda.

procedure TForm2.QRSubDetail1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
if Form1.DBGrid1.SelectedRows.CurrentRowSelected then
PrintBand := true
else
PrintBand := false;
end;

end.


falou

Leandro


GOSTEI 0
Marcos-rj

Marcos-rj

24/02/2005

Valew Grande!

Era isso mesmo! valew kra!!!!!


GOSTEI 0
POSTAR