Abrindo Relatorio na QRPreview!!!

Delphi

22/03/2004

E aí pessoal, tu do bem?!
Será q alguém poderia me dar uma ajudinha?
Estou fazendo um relatório personalizado usando o Qrpreview, e estou encontrando dificuldades em relação ao botão abrir, o relatório aberto é visualizado mas não consigo imprimir, nem configurar a impressão.
O código q digitei é o seguinte:

[b:d4a76df27d]qrPreview.QRPrinter.Load(´c:/teste.qrp´);
qrpreview.Refresh;
Status.Panels[0].Text := ´Processando...´;
QRPreview.QRPrinter.Preview;[/b:d4a76df27d]


Andreubatuba

Andreubatuba

Curtidas 0

Respostas

Delphi32

Delphi32

22/03/2004

Bem, vou explicar aqui como eu uso o QRPreview. Você pode adaptar os códigos para a sua realidade...

1) Crie uma função pública no form principal com o seguinte código:

procedure Preview(Sender: TObject);
.
.
.
uses frm_preview, QRPrntr; {Não esqueça de declarar ´QRPrntr´}
.
.
.
procedure TForm1.Preview(Sender: TObject);
begin
try
frmPreview := TfrmPreview.Create(Nil);
{*******frmPreview é o seu form customizado*******}
frmPreview.QRPreview1.QRPrinter := TQRPrinter(Sender);
frmPreview.Show;
FreeAndNil(frmPreview);
except
ShowMessage(´Erro ao tentar exibir tela de preview´);
end;//try
end;

3) Agora imagine que você esteja em um outro form do sistema (Form2 no exemplo) e queira imprimir um relatório (em Form3) nessa tela de Preview. Faça o seguinte:

uses Unit1;
.
.
.
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
Form3 := TForm3.Create(Nil);
Form3.QuickRep1.OnPreview := Form1.Preview;
Form3.Preview;
FreeAndNil(Form3);
end;


Bem, é só isso... Qualquer dúvida posta aki de novo...


GOSTEI 0
Andreubatuba

Andreubatuba

22/03/2004

Ainda não tentei, mas já agradeço sua atenção.


GOSTEI 0
POSTAR