AdvGridPDFIO Pagesize at runtime

VCL TMS VCL UI Pack
1

Good morning,

I am trying in all different ways to set the page size for a AdvGridPDFIO, but I am unable to get it right some how. Can you please help?
There is no mention in the topics, on internet or in the manual on how to do this.

It seems straight forward: AdvGridPDFIO1.Options.PageSize.psA3, but this give an error...

Many thanks

2 
uses
  AdvPDFLib;

procedure TForm1.FormCreate(Sender: TObject);
begin
  AdvGridPDFIO1.Options.PageSize := psA3;
end;
3

Getting an error. And tried that already.

4

This is my code:
procedure TfrmMain.btnPDFExportClick(Sender: TObject);
var GridName, s: String;//PDFIOName
selectedGrid: TDBAdvGrid;
CellValue: string;
begin
GridName := 'DBadvGrid' + IntToStr(PageControl1.ActivePageIndex);
selectedGrid := FindComponent(GridName) as TDBAdvGrid;
AdvGridPDFIO1.Grid:= selectedGrid;

If Assigned(selectedGrid) then
begin
//Open save dialog
if SaveDialog1.Execute then
begin
AdvGridPDFIO1.Options.PageSize := psA3;
AdvGridPDFIO1.Options.Footer:='TabSheet - ' + IntToStr(PageControl1.ActivePageIndex) + ' - ' + DateToStr(Now) + ' / ' + TimeToStr(Now);
AdvGridPDFIO1.Save(SaveDialog1.FileName);
end;
end;
end;

5

Sorry, missed the uses clause AdvPDFLib. Works now, thanks.

1 Like