GARANTIR DESCONTO

Fórum Imrimir Seleção #270025

24/02/2005

0

Delphi

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

Responder

Posts

24/02/2005

Leanribas

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


Responder

Gostei + 0

24/02/2005

Leanribas

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


Responder

Gostei + 0

24/02/2005

Leanribas

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


Responder

Gostei + 0

24/02/2005

Marcos-rj

Valew Grande!

Era isso mesmo! valew kra!!!!!


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar