Tente assim (Delphi 5):
QuickRep1.Functions.LoadFromFile('C:\TESTE.QRP');
Agora, se voce quiser distribuir um aplicativo apenas para visualizar os
relatorios (associar a extensao via Windows Explorer) tente o programa abaixo:
program VisualRel;
uses QuickRpt, QRPrntr, Classes, Forms, Dialogs, SysUtils;
{$R *.RES}
procedure AbreRelatorio(FileName:string);
var
QRPrinter: TQRPrinter;
begin
if FileExists(FileName) then
begin
QRPrinter := TQRPrinter.Create;
try
QRPrinter.Load(FileName);
QRPrinter.Preview;
repeat
Application.HandleMessage;
until not QRPrinter.ShowingPreview;
finally
QRPrinter.Free;
end;
end;
end;
begin
Application.Initialize;
if ParamCount = 1 then
AbreRelatorio(ParamStr(1))
else
ShowMessage('Passe o arquivo QRP como parametro.');
Application.Title := 'Abre Relatório Quick Report';
Application.Run;
end.
Fernando
At 10:58 11/10/2004, you wrote:
Bom dia!
Alguém da lista sabe como faço e o q preciso para abrir e visualizar
relatórios do QuickReport salvos com extensão *.QRP
Muito obrigado pela ajuda
[]'s Alexandre
--
FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
* Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
* Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
* O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
