I have saved jpeg image with 85 quality from PDF file using GdPicturePDF Class. For that i used below code.
Code: Select all
Dim oGdPicturePDF As New GdPicturePDF
Dim oGdPictureImaging As New GdPicture10.GdPictureImaging
oGdPicturePDF.LoadFromFile(Application.StartupPath & "/data/1.pdf", False)
For i As Integer = 1 To oGdPicturePDF.GetPageCount
oGdPicturePDF.SelectPage(1)
Dim RasterizedPageID As Integer = oGdPicturePDF.RenderPageToGdPictureImageEx(300, False)
Try
'oGdPictureImaging.SaveAsJPEG(RasterizedPageID, Application.StartupPath & "/data/" & i & ".jpg", 85)
Catch ex As Exception
MsgBox("oGdPictureImaging.SaveAsJPEG: " & ex.ToString)
End Try
oGdPictureImaging.ReleaseGdPictureImage(RasterizedPageID)
Next
Thanks
Hiren Lad.