QRexport de Export Filters
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
__________________
Gabriel
|