Como salvar automaticamente um QuickReport ?

Question

Pessoal, como fa�o pra salvar automaticamente um QuickReport antes ou depois do Preview ?Aguardo resposta...Julio...

Juliopedroni · Answer

Sobe...

Mahdak · Answer

alias, isso me interessa tambem... se alguem souber, por favor, postem aqui......

Mahdak · Answer

alias, isso me interessa tambem... se alguem souber, por favor, postem aqui......

Steve_narancic · Answer

N�o sei no Quick mas no fortes Report ao inves de se usar o comando de preview ou print uso o comanto SaveToFile para salvar como arquivo...

Marcio.theis · Answer

Pode-se fazer da seguinte forma:[code:1:b86468ee98]var  fileStream: TFileStream;fileStream:=TFileStream.Create(�c:teste.qrp�,fmCreate);SaveQuickReportToStream(rel_Bairros.QuickRep1,fileStream);fileStream.Free;[/code:1:b86468ee98]declara-se a vari�vel do tipo TFileStream... e a seguinte fun��o:[code:1:b86468ee98]procedure TForm1.SaveQuickReportToStream(AQuickReport: TQuickRep; AStream: TStream);var    pageList: TQRPageList;    i: Integer;beginpageList:=nil;try    pageList:=TQRPageList.Create;    pageList.Stream:=TQRStream.Create(100000);    AQuickReport.Prepare;    pageList.LockList;    try        for i := 1 to AQuickReport.QRPrinter.PageCount do            pageList.AddPage(AQuickReport.QRPrinter.GetPage(i));        pageList.Finish;    finally        pageList.UnlockList;        end;    pageList.Stream.SaveToStream(AStream);finally    FreeAndNil(pageList);    end;end;[/code:1:b86468ee98]N�o se esquecendo que na Uses deve de estar declarado Quickrpt, QRPrntr;N�o sendo necess�rio dar o Preview ou Print antes ou depois....

Mahdak · Answer

Julio sei que vc ja conseguiu achar a solu��o, entao vou postar ela aqui pro pessoal que tem a mesma duvida...
Abra��o!

QuickRepRelatorio.Prepare;
QuickRepRelatorio.QRPrinter.Save(�C:\Julio.qrp�);
QuickRepRelatorio.QRPrinter.Free;
QuickRepRelatorio.QRPrinter := Nil;

F�rum Como salvar automaticamente um QuickReport ? #297559