Hello,

I try use code below to scale page size till 11x17 inches, but output PDF file page looks like an empty page. Could you please assist?

Mikhael

---

Code:

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Const sPDF = "C:\Test\Adden 5 - page 98.pdf"
Const sDstFolder = "C:\out"

Dim w = Inches2PDF(17)
Dim h = Inches2PDF(11)

Dim mx = New FS_MATRIX()
mx.SetIdentity()
mx.Scale(w, h)

Using doc = PdfDocument.Load(sPDF, New PdfForms())
For Each pdfiumPage In doc.Pages
Dim rcClip = New FS_RECTF(0, h, w, 0)
Dim rc = pdfiumPage.TransformWithClip(mx, rcClip)
pdfiumPage.Dispose()
Next

doc.Save(sDstFolder + "\test.pdf", SaveFlags.NoIncremental)
End Using
End Sub