Paper Size
Paper size don't shift when I change the Printer in Print Dialog. If i choose an printer that have an paper Letter and after i choose the printer that have an paper size A4 it need make this change (Change the size) ! How i can make this?
Comments
procedure TForm1.Button1Click(Sender: TObject);
var
page:tfrpage;
v,v2:tfrview;
b:tfrbandview;
obindex,pgindex:integer;
begin
frreport1.clear;
frreport1.loadfromfile('reportname.frf');
for pgindex := 0 to frreport1.Pages.count-1 do //iterate through pages
begin
page := frreport1.Pages[pgindex];//retreive page
if page.Prop= ptreport then // if not dialog
begin
page.changepaper(ASize, AWidth, AHeight, ABin:Integer;AOr:TPrinterOrientation);
end;
end;
frreport1.showreport;
end;
regards