Fórum IMPRIMIR DADOS DE UM DBGRID #490814

PESSOAL BOA TARDE.

ALGUEM PODE ME AJUDAR ?
ESTOU TENTANDO IMPRIMIR DADOS DE UMA DBRIGRID, MAS NÃO ESTOU CONSEGUINDO...
ESTOU USANDO O CODIGO ABAIXO.

begin
while not dm.qryMonitoramento.Eof do
begin
dm.qryMonitoramento.Close;
dm.qryMonitoramento.SQL.Clear;
dm.qryMonitoramento.SQL.Add('select * from monitoramento where (ROTA, DATA, CLIENTE, ORIGEM, DESTINO, HORA_INI,HORA_REAL, ID_ROTA, HORA_FIM,HORA_REAL_FIM,COD_ATRASO,OBS, STATUS,CAMINHAO,PLACA,MOTORISTA)VALUES');
dm.qryMonitoramento.SQL.Add('(:rota, :data, :cliente, :origem, :destino, :hora_ini,:hora_real, :id_rota, :hora_fim,:hora_real_fim,:cod_atraso,:obs, :status,:caminhao,:placa,:motorista)');
dm.qryMonitoramento.ParamByName('rota').AsString := dm.cdsRota.FieldByName('ROTA').AsString;
dm.qryMonitoramento.ParamByName('data').AsString := FormatDateTime('dd/mm/yyyy', Now);
dm.qryMonitoramento.ParamByName('cliente').AsString := dm.cdsRota.FieldByName('CLIENTE').AsString;
dm.qryMonitoramento.ParamByName('origem').AsString := dm.cdsRota.FieldByName('ORIGEM').AsString;
dm.qryMonitoramento.ParamByName('destino').AsString := dm.cdsRota.FieldByName('DESTINO').AsString;
dm.qryMonitoramento.ParamByName('hora_ini').AsString := dm.cdsRota.FieldByName('HORA_INICIO').AsString;
dm.qryMonitoramento.ParamByName('hora_real').AsString := dm.cdsRota.FieldByName('HORA_REAL').AsString;
dm.qryMonitoramento.ParamByName('id_rota').AsInteger := dm.cdsRota.FieldByName('ID').AsInteger;
dm.qryMonitoramento.ParamByName('hora_fim').AsString := dm.cdsRota.FieldByName('HORA_FIM').AsString;
dm.qryMonitoramento.ParamByName('hora_real_fim').AsString := dm.cdsRota.FieldByName('HORA_REAL_FIM').AsString;
dm.qryMonitoramento.ParamByName('cod_atraso').AsString := dm.cdsRota.FieldByName('COD_ATRASO').AsString;
dm.qryMonitoramento.ParamByName('obs').AsString := dm.cdsRota.FieldByName('OBS').AsString;
dm.qryMonitoramento.ParamByName('caminhao').AsString := dm.cdsRota.FieldByName('CAMINHAO').AsString;
dm.qryMonitoramento.ParamByName('placa').AsString := dm.cdsRota.FieldByName('PLACA').AsString;
dm.qryMonitoramento.ParamByName('motorista').AsString := dm.cdsRota.FieldByName('MOTORISTA').AsString;
dm.qryMonitoramento.ParamByName('status').AsString := 'AGUARDANDO';
dm.qryMonitoramento.ExecSQL();

dm.cdsRota.Next;
end;

RvSystem1.DefaultDest:= rdFile;
RvSystem1.DoNativeOutput := false;
RvSystem1.RenderObject :=rvRenderPDF1;
RvSystem1.OutputFileName:= 'C:\Users\Watson TI\Desktop\TKL\.pdf'; //caminho onde vai gerar o arquivo pdf
RvSystem1.SystemSetups:= RvSystem1.SystemSetups -[ssAllowSetup];
RvProject1.ProjectFile := 'C:TesteRelatorioQuickProjetoRelatorioPDF.rav';//Local que coloquei o rav como exemplo

RvProject1.Engine:= RvSystem1;
RvProject1.SelectReport('Teste1', True); // nome do page no rav criado
RvProject1.ExecuteReport('RelatorioPDF'); // nome do *.rav
RVProject1.Execute;


end;