Como chamar um relatório feito no Report Builder?
13/08/2008
0
Olá.
Gostaria de saber Como chamar um relatório feito no Report Builder. Tenho procurado material sobre este programa mas não encontrei muita coisa. Após eu ter criado um relatório, como faço para clicar em um botão para chamar esse carinha?
Obrigado.
Gostaria de saber Como chamar um relatório feito no Report Builder. Tenho procurado material sobre este programa mas não encontrei muita coisa. Após eu ter criado um relatório, como faço para clicar em um botão para chamar esse carinha?
Obrigado.
Mtarantjr
Curtir tópico
+ 0
Responder
Posts
14/08/2008
Craudio
eu chamo assim .
procedure form.Imprimir(Arquivo: string; PipeLine: TppDataPipeline);
var
bkBeforePrint : TNotifyEvent;
begin
with ppReport do
begin
bkBeforePrint := BeforePrint;
if Trim(Arquivo) <> ´´ then
begin
Template.FileName := GetCaminhoRelatorios + ´\´ + Arquivo;
Template.Load;
FLoadReport := True;
DataPipeline := PipeLine;
BeforePrint := bkBeforePrint;
Units := utMillimeters;
PassSetting := psTwoPass;
end
DeviceType := FDispositivoSaida;
Screen.Cursor := crHourGlass;
try
Print;
finally
Screen.Cursor := crDefault;
end;
end;
end;
procedure form.Imprimir(Arquivo: string; PipeLine: TppDataPipeline);
var
bkBeforePrint : TNotifyEvent;
begin
with ppReport do
begin
bkBeforePrint := BeforePrint;
if Trim(Arquivo) <> ´´ then
begin
Template.FileName := GetCaminhoRelatorios + ´\´ + Arquivo;
Template.Load;
FLoadReport := True;
DataPipeline := PipeLine;
BeforePrint := bkBeforePrint;
Units := utMillimeters;
PassSetting := psTwoPass;
end
DeviceType := FDispositivoSaida;
Screen.Cursor := crHourGlass;
try
Print;
finally
Screen.Cursor := crDefault;
end;
end;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)