Fórum Salvar um relatorio do quick report em word. #258561

Seguinte: estava com o mesmo problema e dei uma pesquisada. Mas descobri que relatórios em quick report, ao serem passados para .doc, precisam acima de tudo, ser MUITO simples... infelizmente. Senão, como vc viu, sai tudo embolado.
Estou mandando abaixo o código q utilizei em uma aplicação minha. Tomara q ajude!
Aliás, vc tem q colocar na aplicação, um componente TQrTextFile, ok?!
Abraços!

procedure TFrmPrincipal.BtnDocClick(Sender: TObject);
var
AExportFilter : TQRAsciiExportFilter;
Begin

// Se o diretório não existir, ele é imediatamente criado!
If Not DirectoryExists(´c:\E-Mails\´) Then
ForceDirectories(´c:\E-Mails\´);

// Se o arquivo existir, então o mesmo é deletado para dar lugar ao novo!
If FileExists(´c:\E-Mails\Relatório-´ + Edtdata2.Text + ´.doc´) Then
DeleteFile(´c:\E-Mails\Relatório-´ + Edtdata2.Text + ´.doc´);

// Cria o arquivo que será exportado e cria o relatório!
AExportFilter := TQRAsciiExportFilter.Create(´c:\E-Mails\Relatório-´ + Edtdata2.Text + ´.doc´);

// Cria o relatório em QuickReport, no form em q se encontra o mesmo...
With FrmRel_Texto do
Try
// Localiza as fichas selecionadas
With FrmRel_Texto.QryBusca do
Begin
ParamByName(´Cod_Cliente´).AsString := EdtCli.Text;
Close;
Sql.Clear;
Sql.Add(´Select * From Clientes Where Cod_Cliente = :Cod_Cliente ´);
Open;
End;

// Exporta o Relatório para o documento criado
FrmRel_Texto.QuickRep1.ExportToFilter(AExportFilter);
Finally
// Libera a variável criada
AExportFilter.Free;
end;
End;