[Solved]  Lazreport   page width
lazarus / 31-LCL

----------------------------------------------------------------------
Lam.Abdeldjalil · 2011-12-30 15:34

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 · 2011-12-30 16:56

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,poLand
scape);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 · 2011-12-30 20:59

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 · 2011-12-31 11:31

hi ,
Quotebut 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 · 2011-12-31 11:41

hi ,

Quotelazreport 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,poL
andscape);
cbxIdx : the index of paper size Combobox
Good luck 

Regards
Abdeldjalil