Exportar Qrp p> Jpg

[Eder]

Ola...

Pessoal

tenho esta dica abaixo pra exportar pra JPG funciona muito bem....mas agora me deparei com um problema......eu usava apenas pra relatorios de uma pagina...agora tirei um relatorio com duas paginas e ai ELE acaba criando um arquivo pra cada pagina gerada....

tipo se for duas paginas...vai criar dois *.jpg

exemplo: pagina1.jpg e pagina2.jpg.

Alguém poderia me dizer se tem como fazer exportar tudo certinho pra jpg num unico arquivo *.jpg, porem com duas paginas??

segue abaixo a dica:

1-Insira a Procedure logo acima do PRIVANTE

procedure QrpToImg(QR: Tquickrep; Path: string; Tipo: Integer);

2-Insira Caso não tenha no Uses: JPEG e QUICKRPT

3-Insira logo após do {$R *.DFM}

lembrando que abaixo o TFORM1 - quer dizer o nome do Form

procedure TFORM1.QrpToImg(QR: TQuickRep; Path: string; Tipo: Integer);
var
 BMP: TBitmap;
 JPG: TJPegImage;
 aUnits: TQRUnit;
 i: Integer;
begin
 // Gera o relatório em memória.
 QR.Prepare;
 // Pega unidade de medida atual no QReport.
 aUnits := QR.Units;
 // Altera unidade de medida para Pixels.
 QR.Units := Pixels;
 try
   for i := 1 to QR.QRPrinter.PageCount do
   begin
     // Cria Bitmap.
     BMP := TBitMap.Create;
     // Cria JPeg.
     JPG := TJPegImage.Create;
     try
       // Define tamanho do Bitmap de acordo com o tamanho da página do QReport.
       BMP.Width := Round(QR.Page.Width);
       BMP.Height := Round(QR.Page.Length);
       // Pegar página a página.
       QR.QRPrinter.PageNumber := i;
       // Atribui a página ao Bitmap.
       BMP.Canvas.Draw(0, 0, QR.QRPrinter.Page);
       // Transfere também para JPeg.
       JPG.Assign(BMP);
       // Salvar em disco.
       if Tipo = 0 then
         BMP.SaveToFile(Path + 'Pagina' + IntToStr(i) + '.bmp')
       else if Tipo = 1 then
         JPG.SaveToFile(Path + 'Pagina' + IntToStr(i) + '.jpg');
     finally
       // Libera objetos.
       BMP.Free;
       JPG.Free;
     end;
   end;
 finally
   // Volta unidade de medida.
   QR.Units := aUnits;
 end;
end;

4-No botão para Salvar coloque:

QrpToImg(FORM2.QuickRep1,'C:\',1); //Exporta o Quick para JPG

Grato

Editado Janeiro 14, 2008 por Eder
Incluída tag's CODE para melhorar a visualização. Utilize a identação também ;)

[Jhonas]

Oi Eder... esta procedure é pra fazer exatamento isto ... para cada pagina do QR criar uma imagem

veja:

procedure TFORM1.QrpToImg(QR: TQuickRep; Path: string; Tipo: Integer);

for i := 1 to QR.QRPrinter.PageCount do // este for criará o numero de imagens, quantas forem as paginas do seu QR

e quando ele salva. é o caminho mais o titulo ( Pagina1.jpg ... Pagina2.jpg .... Pagina3.jpg ... etc ) isto para cada pagina que vier a ser gerada pelo QR

if Tipo = 0 then
         BMP.SaveToFile(Path + 'Pagina' + IntToStr(i) + '.bmp')
       else if Tipo = 1 then
         JPG.SaveToFile(Path + 'Pagina' + IntToStr(i) + '.jpg');

se não me engano o Micheus já postou algo que pode te servir.. da uma pesquisada no forum

http://scriptbrasil.com.br/forum/index.php...st&p=411536

abraço

[Eder]

Oba...JOnas.....eu tava com um pouco de pressa e precisava arrumar uma solução rápida, então acabei usando uma impressora virtual que exporta pra pdf, ou seja o programa PdfCreator.

Mas valeu....

:blush: