Código
-SaveDialog
-RvRenderPDF
-RvRenderHTML
-RvRenderText
-RvNDRWriter
Declare a procedure:}
procedure SalvarComo (const index: SmallInt);
//Implemente da seguinte forma:
procedure TFrmPreview.SalvarComo(const index: SmallInt);
begin
SaveDialog.FilterIndex := index;
if (SaveDialog.Execute) and (SaveDialog.FileName <> '') then
//Tipo de formato para ser salvo!!!
case SaveDialog.FilterIndex of
1: RvRenderPDF.PrintRender(RvNDR.Stream, SaveDialog.FileName);
2: RvRenderRTF.PrintRender(RvNDR.Stream, SaveDialog.FileName);
3: RvRenderHTML.PrintRender(RvNDR.Stream, SaveDialog.FileName);
4: RvRenderText.PrintRender(RvNDR.Stream, SaveDialog.FileName);
end;
end;
//Agora coloque um Button no Form e para o evento OnClick digite:
SalvarComo(1);
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009