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

[森口 慶紀]

print-graphic-pdfプロシージャの引数"page-description"でページサイズ(今回はA4)を指定すると、
横向きにすることができました

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}
        }
    }
}