OnneedData - BeforePrint

Olá pessoal,

Será alguém poderia me mostrar a maneira de imprimir
quickreport através de itens selecionados de uma dbgrid, usando
OnnedData do quickreport e BeforePrint da Band.
Consigo selecionar todos os itens dessa forma mas não sei como aplicar.

procedure Tnst055.QRBand8BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
var i:integer;
begin
With Dbgrid1 do Begin
for i:= 0 to Pred(SelectedRows.Count) do Begin
Datasource.Dataset.Bookmark:= SelectedRows[i];
quickrep_nome.caption:=querynome_cliente.value;
end;
end;
end;