Como salvar automaticamente um QuickReport ?

Delphi

28/09/2005

Pessoal, como faço pra salvar automaticamente um QuickReport antes ou depois do Preview ?

Aguardo resposta...

Julio


Juliopedroni

Juliopedroni

Curtidas 0

Respostas

Juliopedroni

Juliopedroni

28/09/2005

Sobe


GOSTEI 0
Mahdak

Mahdak

28/09/2005

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


GOSTEI 0
Mahdak

Mahdak

28/09/2005

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


GOSTEI 0
Steve_narancic

Steve_narancic

28/09/2005

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


GOSTEI 0
Marcio.theis

Marcio.theis

28/09/2005

Pode-se fazer da seguinte forma:

var
  fileStream: TFileStream;

fileStream:=TFileStream.Create(´c:\teste.qrp´,fmCreate);
SaveQuickReportToStream(rel_Bairros.QuickRep1,fileStream);
fileStream.Free;


declara-se a variável do tipo TFileStream... e a seguinte função:

procedure TForm1.SaveQuickReportToStream(AQuickReport: TQuickRep; AStream: TStream);
var
    pageList: TQRPageList;
    i: Integer;
begin
pageList:=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;



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.


GOSTEI 0
Mahdak

Mahdak

28/09/2005

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;



GOSTEI 0
POSTAR