- Code: Select all
Public Function Merge2PDF(ByVal PDF1 As String, ByVal PDF2 As String, ByVal OutputPDF As String) As Boolean
Dim bOK As Boolean = True
Dim oGdPictureImaging As New GdPicture.GdPictureImaging
Dim oGdViewer As New GdPicture.GdViewer
Dim RasterizedPage As Integer
Dim PdfID As Integer
Dim TotalPages As Integer = 0
oGdPictureImaging.SetLicenseNumber("XXX") 'Unlocking GdPicture.NET -> Replace XXX by a commercial or demo license KEY
PdfID = oGdPictureImaging.PdfNewPdf(OutputPDF, True) 'PDF/A
If oGdViewer.DisplayFromFile(PDF1) = GdPictureStatus.OK Then
'Adding all rasterized pages of first to output PDF
For i As Integer = 1 To oGdViewer.PageCount
RasterizedPage = oGdViewer.PdfRenderPageToGdPictureImage(200, i)
oGdPictureImaging.ConvertTo1Bpp(RasterizedPage) 'Comment to keep true color image !!
oGdPictureImaging.PdfAddImageFromGdPictureImage(PdfID, RasterizedPage)
oGdPictureImaging.ReleaseGdPictureImage(RasterizedPage)
TotalPages = TotalPages + 1
Next
oGdViewer.CloseDocument()
If oGdViewer.DisplayFromFile(PDF2) = GdPictureStatus.OK Then
'Adding all rasterized pages of second to output PDF
For i As Integer = 1 To oGdViewer.PageCount
RasterizedPage = oGdViewer.PdfRenderPageToGdPictureImage(200, i)
oGdPictureImaging.ConvertTo1Bpp(RasterizedPage) 'Comment to keep true color image !!
oGdPictureImaging.PdfAddImageFromGdPictureImage(PdfID, RasterizedPage)
oGdPictureImaging.ReleaseGdPictureImage(RasterizedPage)
TotalPages = TotalPages + 1
Next
oGdViewer.CloseDocument()
'Now we have to draw all images of the PDF on its pages
Dim CurrentPageWidth, CurrentPageHeight As Single
For i As Integer = 1 To TotalPages
CurrentPageWidth = oGdPictureImaging.PdfGetImageWidth(PdfID, i)
CurrentPageHeight = oGdPictureImaging.PdfGetImageHeight(PdfID, i)
oGdPictureImaging.PdfNewPage(PdfID, CurrentPageWidth, CurrentPageHeight)
oGdPictureImaging.PdfDrawImage(PdfID, i, 0, 0, CurrentPageWidth, CurrentPageHeight)
Next
Else
bOK = False
End If
Else
bOK = False
End If
oGdPictureImaging.PdfEndPdf(PdfID)
Return bOK
End Function
Note: This code creates black & white PDF. To keep page in color just comment these lines:
- Code: Select all
oGdPictureImaging.ConvertTo1Bpp(RasterizedPage) 'Comment to keep true color image !!
'...
oGdPictureImaging.ConvertTo1Bpp(RasterizedPage) 'Comment to keep true color image !!
