PDFsharp & MigraDoc Foundation

    Sub PDFCreate()

        Dim i As Integer
        Dim vPDFDoc As PdfDocument
        Dim vPDFPage As PdfPage
        Dim vXImg As XImage
        Dim vXGr As XGraphics
        Dim vslDebugStep As String

        vslDebugStep = "CreatePDF"
        vPDFDoc = New PdfDocument()
        For i = 1 To 274
            Console.WriteLine(i.ToString)
            vPDFPage = New PdfPage()
            vPDFPage.Size = PageSize.A4

            vXImg = XImage.FromFile(String.Format("1898109\1898109_{0}.FOB", i.ToString))
            vXImg.Interpolate = False

            'adjust PageSize
            If (vXImg.PointHeight > vPDFPage.Height.Value) Then vPDFPage.Height = vXImg.PointHeight
            If (vXImg.PointWidth > vPDFPage.Width.Value) Then vPDFPage.Width = vXImg.PointWidth

            vPDFDoc.Pages.Add(vPDFPage)
            vXGr = XGraphics.FromPdfPage(vPDFDoc.Pages(i - 1))
            vXGr.DrawImage(vXImg, 0, 0)
        Next
        vslDebugStep = "SavePDF"
        vPDFDoc.Save("test.pdf")
        vPDFDoc.Close()

    End Sub

...
  Dim vPDFDoc As PdfDocument
  Dim vPDFPage As PdfPage
  Dim vPDFDocTemp As PdfDocument

  vPDFDoc = New PdfDocument()
  For i = 1 To nPages
    sPageName = mImageManager.GetPageFileName(i, oDoc) 'external function to determine filename of image
    vPDFDocTemp = PdfReader.Open(GetPDFDoc(sPageName), PdfDocumentOpenMode.Import)
    vPDFPage = vPDFDocTemp.Pages(0)
    vPDFDoc.Pages.Add(vPDFPage)
  Next
  vPDFDoc.Save(String.Format("{0}\{1}_000001_{2}.pdf", mExportPath, vDocId, mBatchID))
  vPDFDoc.Close()
  vPDFDoc.Dispose()
...
...
   Private Function GetPDFDoc(ByVal sPageName As String) As MemoryStream
        Dim vReturnStream As New MemoryStream
        Dim vPDFDoc As New PdfDocument
        Dim vPDFPage As New PdfPage
        Dim vXImg As XImage
        Dim vXGr As XGraphics
        Dim vslDebugStep As String

        Try
            vPDFPage.Size = PageSize.A4
            vXImg = XImage.FromFile(sPageName)
            vXImg.Interpolate = False

            'adjust PageSize
            If (vXImg.PointHeight > vPDFPage.Height.Value) Then vPDFPage.Height = vXImg.PointHeight
            If (vXImg.PointWidth > vPDFPage.Width.Value) Then vPDFPage.Width = vXImg.PointWidth

            vPDFDoc.Pages.Add(vPDFPage)
            vXGr = XGraphics.FromPdfPage(vPDFPage)
            vXGr.DrawImage(vXImg, 0, 0)
            vPDFDoc.Save(vReturnStream, False)

        Catch ex As Exception
            Throw
        Finally
            vPDFDoc.Close()
            vPDFDoc.Dispose()
            vXImg.Dispose()
            vXGr.Dispose()

            GetPDFDoc = vReturnStream
        End Try

    End Function