print-graphic-pdfプロシージャの仕様について

Code:
{import * from CURL.GRAPHICS.PRINTER}

{import * from CURL.LANGUAGE.REGEXP}



{let pf:#PDFPrintRootFrame}

{let rect1:Graphic = {Fill border-width = 2cm, border-color = "green", width = 210mm,

                         height = 287mm, background = "white"}}

{value rect1}



{CommandButton label="test printing",

    {on Action do

        {output "Default Printer: " & {Printer.get-default-printer}}

        def pageDescriptions = {Printer.get-page-description {String {Printer.get-default-printer}}}

        let ppd:#PrintPageDescription

        {if-non-null pageDescriptions then

            {for pd in pageDescriptions do

                {if {regexp-match? "A4", pd.description} then                    

                    set ppd = pd

                    {break}

                }

            }

        }

        {if-non-null ppd then

            set pf = {print-graphic-pdf rect1,

                         page-description = ppd,

                         {choose-file style=FileDialogStyle.save-as} asa Url,

                         print-page-numbers?=false,

                         orientation=PageOrientation.landscape,

                         multi-part?=true

                     }

            {pf.done-printing}

        }

    }

}