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

  • gordkgordk St.Catherines On. Canada.
    edited 10:35AM
    Hi Mauri
    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 ;)

Leave a Comment

Rich Text Editor. To edit a paragraph's style, hit tab to get to the paragraph menu. From there you will be able to pick one style. Nothing defaults to paragraph. An inline formatting menu will show up when you select text. Hit tab to get into that menu. Some elements, such as rich link embeds, images, loading indicators, and error messages may get inserted into the editor. You may navigate to these using the arrow keys inside of the editor and delete them with the delete or backspace key.