Code: Select all
Private Sub Form_Load()
Dim strArgs() As String
Dim inFile As String
Dim outFile As String
inFile = "C:\S.pdf"
outFile = "C:\S.tif"
Dim nPage As Long
Dim Imaging As Object
Set Imaging = CreateObject("gdpicturepro5.Imaging")
GdViewer.SetLicenseNumber ("XXX")
Imaging.SetLicenseNumber ("XXX")
GdViewer.SetZoomFitControl
GdViewer.LockControl = True
GdViewer.DisplayFromPdfFile (inFile)
For nPage = 1 To GdViewer.PageCount
GdViewer.DisplayFrame (nPage)
If nPage = 1 Then
Imaging.SetNativeImage (Imaging.CreateClonedImage(GdViewer.GetNativeImage))
Call Imaging.TiffSaveAsNativeMultiPage(outFile)
Else
Call Imaging.TiffAddToNativeMultiPage(GdViewer.GetNativeImage)
End If
Next nPage
Imaging.TiffCloseNativeMultiPage
Unload Me
End Sub