例: |
Set TK = CreateObject("APToolkit.Object")
r = TK.OpenOutputFile ("output1.pdf")
'Stitch the single page of the input file 4-up on a single page of the output PDF.
r = TK.StitchPDF ("Input1.pdf", 1, 0, 397, 306, 396, 0)
r = TK.StitchPDF ("Input1.pdf", 1, 307, 397, 306, 396, 0)
r = TK.StitchPDF ("Input1.pdf", 1, 0, 0, 306, 396, 0)
r = TK.StitchPDF ("Input1.pdf", 1, 307, 0, 306, 396, 0)
r = TK.CloseOutputFile()
Set TK = Nothing
|
|