Code: Select all
Using oGdPicturePDF As New GdPicturePDF
oGdPicturePDF.NewPDF()
For ImageIndex As Integer = 0 To pDocument.Count - 1
Dim myFileName As String = pDocument(ImageIndex)
Using oGdPictureImaging As New GdPictureImaging
Dim ImageID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile(myFileName)
If ImageID = 0 Then
oGdPictureImaging.ReleaseGdPictureImage(ImageID)
oGdPicturePDF.CloseDocument()
Return False
Else
oGdPicturePDF.AddImageFromGdPictureImage(ImageID, False, True)
If oGdPicturePDF.GetStat() <> GdPictureStatus.OK Then
oGdPicturePDF.CloseDocument()
oGdPictureImaging.ReleaseGdPictureImage(ImageID)
Return False
End If
End If
oGdPictureImaging.ReleaseGdPictureImage(ImageID)
End Using
Next
oGdPicturePDF.SaveToFile(pFileSavePath)
If oGdPicturePDF.GetStat() <> GdPictureStatus.OK Then
oGdPicturePDF.CloseDocument()
Return False
End If
oGdPicturePDF.CloseDocument()
End Using
Question 1: How do I check the PDF Resolution?
Question 2: How do i tell the NEW PDF to use the higher resolution?
I'm creating an application that will open these PDF's later and read a Barcode that's been embedded but the default PDF's resolution is so low the barcode reader fails every time.
Any help you can offer would be very much appreciated!
-Curtis