Imprimir Informe y almacenarlo como PDF

[jcarlos.matrix]

el codigo que utilize es el mismo de antes pero nomas le agregue la linea , utilizacon un quickreport ya que tu utilizar un qrpreview correcto.
el codigo es el sig. aver si pueden ayudarme y decirme que estoy haciendo mal gracias.

procedure TForm1.Button1Click(Sender: TObject);
var
B:TBitmap;
MF:TMetaFile;
JPG:TJPegImage;
i:Integer;
lPV:Boolean;
nPaginas:Integer;
cFileExport:string;
begin
// cFileExport := Trim(Caption);
// SaveDialog1.FileName := cFileExport+'.PDF';
// Pide el Nombre del Archivo que le vas a poner
cFileExport := 'c:\test.pdf';
lPV := True;
// Se supone que hicieste un PREVIEW de tu reporte y te lo mostro
// a pantalla entonces checaremos cuantas paginas son de tu reporte
Quickreport1.Prepare;
// npaginas:=quickrep1.QRPrinter.PageCount;
nPaginas := Quickreport1.QRPrinter.PageCount;

// y Utilizamos el componente PREport
PReport1.FileName := cFileExport;
PReport1.BeginDoc;
B :=TBitmap.Create;
jpg :=TJPegImage.Create;
// Recorremos las paginas de nuestro reporte
For i:=1 to nPaginas do
begin
MF :=Quickreport1.QRPrinter.GetPage(i);
B.Width :=MF.Width;
B.Height :=MF.Height;
B.Canvas.Draw(0,0,MF);
// Convertimos la Pagina a JPG
Jpg.Assign(B);
// La Agregamos a PowerPDF
PRJpegImage1.Picture.Assign(jpg);
PRJpegImage1.Repaint;
PReport1.Print(PRPage1);
// PRJpegImage1.Picture:=nil;
B.FreeImage;
end;
// Terminamos nuestro Reporte PDF
PReport1.EndDoc;
B.free;
jpg.Free;
// Y Listo... Maravilloso.... ehhhh

end;

[Gabriel]

A mi me va de fabulacon Export Filters
llevo unos meses trabajando con ellos y una aplicacion practicamente, convierto todos los reports, a peticion del usuario a PDF

Ejemplillo de codigo, funcionando

procedure TFHores1.ExportarAcrobat1Click(Sender: TObject);
var
aPDFFilt : TQRPDFDocumentFilter;
begin
if ClientDataset1.IsEmpty Then
Begin
ShowMessage('Cap registre de hores per Exportar Acrobat Reader *.pdf');
exit;
end;
with FModuloIni.SaveDialog1 do
begin
InitialDir := ExtractFilePath(Application.ExeName) + 'Pdfs';
Title := 'Convertir Resum hores a Adobe Acrobat';
FileName := 'HoresPersonal.pdf';
Filter := 'PDF Files (*.PDF)|*.pdf';
DefaultExt := 'pdf';
if Execute then
begin
aPDFFilt := TQRPDFDocumentFilter.Create(Filename);
Screen.Cursor := crAppStart;
With TFReportHores1.Create(Application)do
try
Screen.Cursor := crDefault;
try
QuickRep1.ExportToFilter( aPDFFilt );
except
ShowMessage('Error creant document, comprovi que document que vol crear no estigui ja obert amb Adobe Acrobat');
raise;
end;
ShellExecute(0, nil, PChar(Filename), nil, nil, sw_shownormal);
finally
aPDFFilt.free;
Application.ProcessMessages;
Free;
Screen.Cursor := crDefault;
end;
end;
end;
end;


Saludos

[Alejandrina]

Hola,
Estoy empezando a trabajao con los QReport y estoy interesada tambien en almacenar un QReport que ya tengo como documento PDF, intente hacerlo como lo indican en los anteriores casos, pero creo que no entiendo bien lo que se debe hacer, alguien me podria explicar mas detalladamente.
De ante mano muchas gracias.

[lacovera]

Con el Rave Reports tienes directamente la opción de sacarlo en pdf, no te interesa mas?