If PageCounter = 0 Then
            ev.HasMorePages = False
 
        Else
            ev.HasMorePages = True
 
        End If
        PrintImage = New Bitmap(bmpProtocol(PageCounter))
        Dim p As New Point(ev.MarginBounds.Left, ev.MarginBounds.Top)
        Dim r As New Rectangle(p.X, p.Y, PrintImage.Width, PrintImage.Height) 
        ' Print Image to definde rectangle
        ev.Graphics.DrawImage(PrintImage, r)
        If PageCounter <= 0 Then
            PageCounter = 0
        Else
            PageCounter = PageCounter - 1
        End If