Transform content to new paper size.
| Code Block |
|---|
Object.FitToPaperSize(liPaperSizeIndex [, lnPageWidth [, lnPageHeight
[, lcPageScope [, laPS ]]]]) |
...
Applies To: XFRX#DRAW
XFRX version: 22.0
See also: ChangePaperSize, ZoomContent
Examples
| Code Block |
|---|
USE invoices
ORDER customer
LOCAL m.loSession, m.lnRetval, m.loXFF, m.loPreview, m.loScripts
m.loSession=EVALUATE([xfrx("XFRX#LISTENER")])
m.lnRetVal = m.loSession.SetParams("",,,,,,"XFF") && no name = just in memory
IF m.lnRetVal = 0
REPORT FORM invoices OBJECT m.loSession
m.loXFF = m.loSession.oxfDocument
m.loXFF.FitToPaperSize(11) && fit to paper to A5
m.loXFF.SavePicture("somepage.jpeg", "jpg", 1, 1) && save to file
RELEASE m.loXFF
ENDIF
RELEASE m.loSession |
...