PDFsharp & MigraDoc Foundation

    Private Function imagenRedimensionar(ByVal foto As String, ByVal imgImagen As XImage, ByVal intAltoLimite As Integer, ByVal intAnchoLimite As Integer) As String
        Dim strLogoRedimensionado As String = ""
        Dim strExtension As String
        Dim bmImagen As Bitmap
        Dim intAltoRedimensionado, intAnchoRedimensionado, intContador As Integer
        Try
         'Change the path to the picture so I can save and load the resized one from there.
            strExtension = foto.Substring(foto.IndexOf(CType(".", Char)), foto.Length - foto.IndexOf(CType(".", Char)))
            strLogoRedimensionado = foto.Substring(0, foto.IndexOf(CType(".", Char))) + "_redimensionado" + strExtension

         'Load the original image
            bmImagen = New Bitmap(foto)

         'Get the original heith and with of the picture
            intAltoRedimensionado =  imgImagen.PointHeight
            intAnchoRedimensionado =  imgImagen.PointWidth
         'If one of the properties is bigger than the rectangle is going to fit make it smaller
         'in both sides until de biggest one fits.
            While intAltoRedimensionado > intAltoLimite Or intAnchoRedimensionado > intAnchoLimite
                intAltoRedimensionado = CType(intAltoRedimensionado * 0.95, Integer)
                intAnchoRedimensionado = CType(intAnchoRedimensionado * 0.95, Integer)
            End While
            Dim bmImagenRedimensionada As New Bitmap(bmImagen, intAnchoRedimensionado, intAltoRedimensionado)
            intContador = 0
         'If the file exist it must be in the header of gooter and won't let me save it
            While System.IO.File.Exists(strLogoRedimensionado)
            'So I change the name again (Stupid, change code to use the last resized image if it fits)
                strLogoRedimensionado = foto.Substring(0, foto.IndexOf(CType(".", Char))) + "_redimensionado" + intContador.ToString + strExtension
                intContador += 1
            End While
         'Save the resized picture to the new path
            bmImagenRedimensionada.Save(strLogoRedimensionado)
        Catch ex As Exception
            strLogoRedimensionado = foto
        End Try
      'Return the new path so the resized image can be loaded from there
        Return strLogoRedimensionado
    End Function

Dim bmImagenRedimensionada As New Bitmap(bmImagen, intAnchoRedimensionado, intAltoRedimensionado)

Private Function GetRect(ByRef Img As PdfSharp.Drawing.XImage) As PdfSharp.Drawing.XRect
        Dim HeightFactor As Double = (Me._Profile.PageHeight - Me._Profile.MarginTop - Me._Profile.MarginBottom) / Img.PointHeight
        Dim WidthFactor As Double = (Me._Profile.PageWidth - Me._Profile.MarginLeft - Me._Profile.MarginRight) / Img.PointWidth
        Dim EndPoint As PdfSharp.Drawing.XPoint = Nothing
        If HeightFactor < WidthFactor Then
            EndPoint = New PdfSharp.Drawing.XPoint((Me._Profile.MarginLeft + (Img.PointWidth * HeightFactor)), (Me._Profile.MarginTop + (Img.PointHeight * HeightFactor)))
        Else
            EndPoint = New PdfSharp.Drawing.XPoint((Me._Profile.MarginLeft + (Img.PointWidth * WidthFactor)), (Me._Profile.MarginTop + (Img.PointHeight * WidthFactor)))
        End If
        Return New PdfSharp.Drawing.XRect(New PdfSharp.Drawing.XPoint(Me._Profile.MarginLeft, Me._Profile.MarginTop), EndPoint)
    End Function

    Friend Function Print(ByRef Room As RoomScripter) As Byte()
        Dim Img As PdfSharp.Drawing.XImage = Room.DrawImage()
        If Img Is Nothing Then
            Return Nothing
        Else
            Dim PdfDocument As New PdfSharp.Pdf.PdfDocument()
            Dim gfx As PdfSharp.Drawing.XGraphics = Me.NewQfx(PdfDocument)
            gfx.DrawImage(Img, Me.GetRect(Img))
            Img.Dispose()
            Dim Stream As New System.IO.MemoryStream()
            PdfDocument.Save(Stream)
            Dim Arr() As Byte = Stream.ToArray()
            Stream.Close()
            Stream.Dispose()
            PdfDocument.Dispose()
            PdfDocument = Nothing
            Return Arr
        End If
    End Function

Private Function GetRect(ByRef Img As PdfSharp.Drawing.XImage) As PdfSharp.Drawing.XRect
        Dim Height As Double = PdfSharp.Drawing.XUnit.FromMillimeter(Me._Profile.PageHeight - Me._Profile.MarginTop - Me._Profile.MarginBottom).Point
        Dim Width As Double = PdfSharp.Drawing.XUnit.FromMillimeter(Me._Profile.PageWidth - Me._Profile.MarginLeft - Me._Profile.MarginRight).Point
        Dim HeightFactor As Double = Height / Img.PointHeight
        Dim WidthFactor As Double = Width / Img.PointWidth
        Dim EndPoint As PdfSharp.Drawing.XPoint = Nothing
        If HeightFactor < WidthFactor Then
            EndPoint = New PdfSharp.Drawing.XPoint((Img.PointWidth * HeightFactor), (Img.PointHeight * HeightFactor))
        Else
            EndPoint = New PdfSharp.Drawing.XPoint((Img.PointWidth * WidthFactor), (Img.PointHeight * WidthFactor))
        End If
        Dim Res As New PdfSharp.Drawing.XRect(New PdfSharp.Drawing.XPoint(0, 0), EndPoint)
        Height = (Height - Res.Height) / 2
        Width = (Width - Res.Width) / 2
        EndPoint = New PdfSharp.Drawing.XPoint((EndPoint.X + Width), (EndPoint.Y + Height))
        Res = New PdfSharp.Drawing.XRect(New PdfSharp.Drawing.XPoint(Width, Height), EndPoint)
        Return Res
    End Function

    Friend Function Print(ByRef Room As RoomScripter) As Byte()
        Dim Img As PdfSharp.Drawing.XImage = Room.DrawImage()
        If Img Is Nothing Then
            Return Nothing
        Else
            Dim PdfDocument As New PdfSharp.Pdf.PdfDocument()
            Dim gfx As PdfSharp.Drawing.XGraphics = Me.NewQfx(PdfDocument)
            gfx.DrawImage(Img, Me.GetRect(Img))
            Img.Dispose()
            Dim Stream As New System.IO.MemoryStream()
            PdfDocument.Save(Stream)
            Dim Arr() As Byte = Stream.ToArray()
            Stream.Close()
            Stream.Dispose()
            PdfDocument.Dispose()
            PdfDocument = Nothing
            Return Arr
        End If
    End Function