[Solved] Lazreport page width

[Lam.Abdeldjalil]

Hi,

Is there a way to Set|Get the page width in Lazreport   
I tried This , it didn't work 

Code: [Select]

var Page: TfrPageReport;
begin
   Page := TfrPageReport.Create;
  try
    //page.Width:=465;
    frReport1.Pages.Add(page.ClassName);
    //frReport1.Pages.Pages[0].Width:=256;
    frReport1.DesignReport;
  finally
    Page.Free;
  end; 

Thanks
Abdeldjalil

[Lam.Abdeldjalil]

hi ,

I find it ,  but it works only if there is no printer driver installed

Code: [Select]

frReport1.Pages.Pages[0].ChangePaper(256,800,2000,poLandscape);

Code: [Select]

ChangePaper(ASize, AWidth, AHeight: Integer; AOr: TPrinterOrientation); //  in LR_Class.pas

256 is User Defined paper size
if (i=256) then S:='U'    // in LR_pgopt.pas
did i miss something ?

i use Lazarus 0.9.30  in  win7 32bit !

Thanks
Abdeldjalil

[denver]

hi,

AFAIK, lazreport does not support the change of paper size. Only A4 Size is allowed.
I am also looking for the solution..

Denver

[Lam.Abdeldjalil]

hi ,

but it works only if there is no printer driver installed

Because Lazreport   use the "Default Printer"

Code: [Select]

http://s11.postimage.org/s44t3go1v/lazprinter.pngAFAIK it's the only Printer that support the 'User Defined paper size'

Code: [Select]

http://s14.postimage.org/cko47wdn5/lazprinterpaper.pngso  i have to change the printer   

Code: [Select]

frReport1.ChangePrinter(0,Printer.Printers.Count);
frReport1.Pages.Pages[0].ChangePaper(256,800,2000,poLandscape);

That solves my problem   

Thanks
Abdeldjalil

[Lam.Abdeldjalil]

hi ,

lazreport does not support the change of paper size. Only A4 Size is allowed

if your printer support other page sizes you can change it

Design
Open the report designer
go to  : File ->page Options ->paper Tab -> change the paper size

dynamically
Ex:

Code: [Select]

frReport1.Pages.Pages[0].ChangePaper(cbxIdx,800,2000,poLandscape);
cbxIdx : the index of paper size Combobox
Good luck 

Regards
Abdeldjalil