Curl Ver8から新たに導入された、指定したGraphicからPDFを出力できるprint-graphic-pdfプロシージャについてです
Graphicが横長だと、PDFに出力した際に画面が切れてしまいます。
(引数orientationにてPageOrientation.landscapeを設定することで横長に出力されるかと思ったのですが、違ったみたいです・・・)
もし誰か解決方法をお分かりでしたら教えて下さい
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}
}
}
}