Como visualizar a página seguinte através do QRPreview

Delphi

27/12/2004

Boa Noite a todos...
Eu consegui utilzar o “QRPreview1” colocando os meus próprios botões. Sendo que através do QuickReport Padrão(sem QRPreview) consigo ver as páginas seguintes, e no QuickReport através do (QRPreview) não consigo ver as páginas seguintes...
Coloquei um DBNavigator e nada...


//Etapa um...
////Aprovar
if _Form4 = nil then
begin
_Form4:= T_Form4.create(self);
_Form4.quickrep1.preview;
end;

//////////////////////Código da etapa um...
procedure T_Form4.QuickRep1Preview(Sender: TObject);
begin
_Form5:= T_Form5.create(self);
_Form5.QRPreview1.QRPrinter:= QuickRep1.QRPrinter;
_Form5.Show;
end;

procedure T_Form4.FormClose(Sender: TObject; var Action: TCloseAction);
begin
_Form4:= nil;
Action:= Cafree;
end;

end.
//////////////////////

Etapa dois...
Código da Etapa Dois...
procedure T_Form5.FormClose(Sender: TObject; var Action: TCloseAction);
begin
_Form5:= nil;
Action:= cafree;
_Form4:= nil;
//;; _Form4.Action:= cafree;

end;

procedure T_Form5.BitBtn1Click(Sender: TObject);
begin
QRPreview1.zoom:= QRPreview1.zoom+10;
label1.caption:= ´Zoom´+inttostr(QRPreview1.zoom)+´¬´;
end;

procedure T_Form5.BitBtn2Click(Sender: TObject);
begin
QRPreview1.zoom:= QRPreview1.zoom-10;
label1.caption:= ´Zoom´+inttostr(QRPreview1.zoom)+´¬´;
end;

procedure T_Form5.BitBtn4Click(Sender: TObject);
begin
QRPreview1.PageNumber:= 1;
label2.caption:= ´Página ´+inttostr(QRPreview1.PageNumber);
end;

procedure T_Form5.BitBtn6Click(Sender: TObject);
begin
QRPreview1.PageNumber:= -1;
label2.caption:= ´Página ´+inttostr(QRPreview1.PageNumber);
end;

procedure T_Form5.BitBtn5Click(Sender: TObject);
begin
QRPreview1.PageNumber:= +1;
label2.caption:= ´Página ´+inttostr(QRPreview1.PageNumber);
end;

procedure T_Form5.BitBtn3Click(Sender: TObject);
begin
//label2.caption:= ´Página´;
QRPreview1.OnPageAvailable(Label2,QRPreview1.PageNumber);
end;

procedure T_Form5.BitBtn8Click(Sender: TObject);
begin
PrinterSetupDialog1.execute;
end;

procedure T_Form5.BitBtn10Click(Sender: TObject);
begin
if PrintDialog1.execute then
begin
_form4.Quickrep1.PrinterSettings.Copies:= PrintDialog1.Copies;
_Form4.QuickRep1.Print;
end;
end;

procedure T_Form5.BitBtn7Click(Sender: TObject);
begin
_Form5.close;
end;

end.


Max.jgs

Max.jgs

Curtidas 0

Respostas

Macario

Macario

27/12/2004

Ola colega bom dia.

Se voce usar os seguintes componentes(RxLib e TranspearXP) posso lhe enviar um Preview personalizado que eu fiz, baseado em um modelo do site.


GOSTEI 0
Max.jgs

Max.jgs

27/12/2004

Olá...
Gostaria muito de receber esse exemplo...
Mas não sei aonde encontrar o componente (TranspearXP)

max.jgs@ig.com.br

Ass: Max...


GOSTEI 0
Godzilla_xf

Godzilla_xf

27/12/2004

Olá, se eu entendi bem vc não esta conseguindo avançar de paginas no seu preview é isso?


QRPreview.PageNumber := QRPreview.PageNumber + 1;


QRPreview.PageNumber := QRPreview.PageNumber -1;


QRPreview.PageNumber := 1;


QRPreview.PageNumber := QRPreview.QRPrinter.PageCount;

caso isso não possa ajudar desconsidere esta mensagem Ok

espero que isso ajude blz


GOSTEI 0
Godzilla_xf

Godzilla_xf

27/12/2004

Olá desculpe é que eu usei ´´ e ele removeu as esplicações acima dos comandos
Para Avançar
QRPreview.PageNumber := QRPreview.PageNumber + 1;

Para Voltar
QRPreview.PageNumber := QRPreview.PageNumber -1;

Para Ir Para a Primeira
QRPreview.PageNumber := 1;

Para a Ultima
QRPreview.PageNumber := QRPreview.QRPrinter.PageCount;


GOSTEI 0
Martins

Martins

27/12/2004

Boa Noite a todos... Eu consegui utilzar o “QRPreview1” colocando os meus próprios botões. Sendo que através do QuickReport Padrão(sem QRPreview) consigo ver as páginas seguintes, e no QuickReport através do (QRPreview) não consigo ver as páginas seguintes... Coloquei um DBNavigator e nada... end.


Quando vc postar um código, faça-o usando o bbCode, pois torna-se mais fácil de entendermos ok!

//Etapa um... 
////Aprovar 
if _Form4 = nil then 
begin 
_Form4:= T_Form4.create(self); 
_Form4.quickrep1.preview; 
end; 

//////////////////////Código da etapa um... 
procedure T_Form4.QuickRep1Preview(Sender: TObject); 
begin 
_Form5:= T_Form5.create(self); 
_Form5.QRPreview1.QRPrinter:= QuickRep1.QRPrinter; 
_Form5.Show; 
end; 

procedure T_Form4.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
_Form4:= nil; 
Action:= Cafree; 
end; 

end. 
////////////////////// 

Etapa dois... 
Código da Etapa Dois... 
procedure T_Form5.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
_Form5:= nil; 
Action:= cafree; 
_Form4:= nil; 
//;; _Form4.Action:= cafree; 

end; 

procedure T_Form5.BitBtn1Click(Sender: TObject); 
begin 
QRPreview1.zoom:= QRPreview1.zoom+10; 
label1.caption:= ´Zoom´+inttostr(QRPreview1.zoom)+´¬´; 
end; 

procedure T_Form5.BitBtn2Click(Sender: TObject); 
begin 
QRPreview1.zoom:= QRPreview1.zoom-10; 
label1.caption:= ´Zoom´+inttostr(QRPreview1.zoom)+´¬´; 
end; 

procedure T_Form5.BitBtn4Click(Sender: TObject); 
begin 
QRPreview1.PageNumber:= 1; 
label2.caption:= ´Página ´+inttostr(QRPreview1.PageNumber); 
end; 

procedure T_Form5.BitBtn6Click(Sender: TObject); 
begin 
QRPreview1.PageNumber:= QRPreview1.PageNumber -1; 
label2.caption:= ´Página ´+inttostr(QRPreview1.PageNumber); 
end; 

procedure T_Form5.BitBtn5Click(Sender: TObject); 
begin 
QRPreview1.PageNumber:=  QRPreview1.PageNumber+1; 
label2.caption:= ´Página ´+inttostr(QRPreview1.PageNumber); 
end; 

procedure T_Form5.BitBtn3Click(Sender: TObject); 
begin 
//label2.caption:= ´Página´; 
QRPreview1.OnPageAvailable(Label2,QRPreview1.PageNumber); 
end; 

procedure T_Form5.BitBtn8Click(Sender: TObject); 
begin 
PrinterSetupDialog1.execute; 
end; 

procedure T_Form5.BitBtn10Click(Sender: TObject); 
begin 
if PrintDialog1.execute then 
begin 
_form4.Quickrep1.PrinterSettings.Copies:= PrintDialog1.Copies; 
_Form4.QuickRep1.Print; 
end; 
end; 

procedure T_Form5.BitBtn7Click(Sender: TObject); 
begin 
_Form5.close; 
end; 

end.


Talvez lhe ajude!


Martins


GOSTEI 0
Max.jgs

Max.jgs

27/12/2004

[QRPreview1.PageNumber:= 1;]

Obrigado amigos funcinou...


Ass: Max...[/code]


GOSTEI 0
POSTAR