How to copy pdf file with reversed pages

Owned by martinajindrova
Last updated: Nov 20, 2019
1 min read

This feature is since XFRX 19.0

m.loPDFR = EVALUATE([xfrx("PDF#READER")])
*m.loPDFR.SetPasswords("owner","user") && set password for pdf file
m.lcFile="DEMO-UNI.pdf"
IF m.loPDFR.openDocument(m.lcFile) < 0 
   RETURN
ENDIF
m.lnError=m.loPDFR.ReadDocument()

LOCAL m.loPDFL, m.lii
m.loPDFL=EVALUATE([xfrx("PDFL#INIT")])

m.loPDFL.CreateDocument(lcfile+".pdf")
m.loPDFL.SetOtherParams("DONOTZIPTEXTSTREAM",.T.)
FOR m.lii=m.loPDFR.iPagesCnt TO 1 STEP -1
    m.loPDFR.GetContent(m.lii, m.loPDFL , 1024+1)
NEXT
m.loPDFL.FinishDocument()
 
m.loPDFR.closeDocument()