If pdf.load_pdf_to_mem(CStr(InFile)) = true Then
pages = pdf.pdfpages
If pages>0 Then
For i = 1 to pages
Call pdf.set_pagesize(CDbl(PWidth), CLng(i), false)
If pdf.save_pdf_to_file(CStr(OutFile)) = true Then
Set pdf = nothing
Although we really tried hard, there are always questions left open.
Please send us your question. We would be glad to answer it.