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...
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;