Buscar por:

Resolvendo problemas do print-setup do quickreport

Código

{Quando executa o PrintSetup do Preview e você está trabalhando com papel Personalizado, o QuickReport perde a configuração do Papel Personalizado, colocando o PaperSize de Custom para Letter. Para resolver o problema guarde o valor da propriedade PaperSize e do Length em variáveis e no evento BeforePrint você atribui o valor da variável para o QuickReport novamente, dessa forma resolve o problema. Veja exemplo } 

var 

Form1: TForm1; 

cPaperSize : TQRPaperSize; 

nLength : Extended; 

implementation 

{$R *.DFM} 

procedure TForm1.Button1Click(Sender: TObject); 

begin 

cPapersize := QuickRep1.Page.PaperSize; 

nLength := QuickRep1.Page.Length; 

QuickRep1.Preview; 

end; 

procedure TForm1.QuickRep1BeforePrint(Sender: TQuickRep; 

var PrintReport: Boolean); 

begin 

QuickRep1.Page.PaperSize := cPaperSize; 

QuickRep1.Page.Length := nLength; 

end;