Como chamar um relatório feito no Report Builder?
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
Curtidas 0
Respostas
Craudio
13/08/2008
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;
GOSTEI 0