Code: Select all
Public Sub Form_Open()
hPDF = New PdfDocument(User.Home &/ "Downloads/LancasterLmarriage.pdf")
hImage = hPDF[0].Render(Desktop.Resolution)
PictureBox1.W = hImage.W
PictureBox1.Image = hImage
End
Any help would be welcome
Code: Select all
Public Sub Form_Open()
hPDF = New PdfDocument(User.Home &/ "Downloads/LancasterLmarriage.pdf")
hImage = hPDF[0].Render(Desktop.Resolution)
PictureBox1.W = hImage.W
PictureBox1.Image = hImage
End
hImage = hPDF[0].Render(0, 0, hPDF[0].Render().W, hPDF[0].Render().H, 0, hPDF.Resolution