Fórum Abrindo Relatorio na QRPreview!!! #221374
22/03/2004
0
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]
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
Curtir tópico
+ 0
Responder
Posts
22/03/2004
Delphi32
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...
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...
Responder
Gostei + 0
22/03/2004
Andreubatuba
Ainda não tentei, mas já agradeço sua atenção.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)