Pessoal, só complementando, estou fazendo uso do processo abaixo para exportar para JPG. Essa dica, eu encontrei na net:
procedure TFR_Memoria_Calculo_QR.QuickRepToImg(QR: TQuickRep; Path: string; Tipo: Integer); var i : Integer; BMP : TBitmap; JPG : TJPegImage; aUnits : TQRUnit; Rel_Recibo : TMetafile; begin Rel_Recibo := QR.QRPrinter.Page; // 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. 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; Obrigado e fico no aguardo. On Wed, 15 Oct 2008 15:23:11 -0300, Sérgio wrote > Boa tarde. > > Pessoal estou tendo problemas para exportar um relatório, desenvolvido no > quickreport com delphi 2007, para JPG. Fiz os mesmos procedimentos com o > delphi7 e funcionou, porém, no delphi 2007, o arquivo JPG gera uma pagina em > BRANCO, totalmente em BRANCO. > > Alguem ja precisou passar por esta situação e teve este problema? Como foi > resolvido? Poderiam me auxiliar? Ou conhecem algum componente que faça esse > processo de exportação e que seja compátivel com o delphi 2007?? > > Fico no aguardo! > > Sérgio > Tecnologia da Informação - TI > e-mail: [EMAIL PROTECTED] > Usina Alta Mogiana S/A - Acucar e Alcool > > [As partes desta mensagem que não continham texto foram removidas] > > Sérgio Tecnologia da Informação - TI Tel.: 16 3810 1060 e-mail: [EMAIL PROTECTED] Usina Alta Mogiana S/A - Acucar e Alcool [As partes desta mensagem que não continham texto foram removidas]
