Private Sub Print(ByVal sender As Object, ByVal e As _
      System.Drawing.Printing.PrintPageEventArgs)
        Try
            Dim dv As New DataView
            dv.Table = Me.DS_PrintClient1.tblTerminalPrinterJobsPages
            dv.Sort = "Seite"
 
            e.PageSettings.Color = False
 
            'For i As Integer = 0 To dv.Count - 1
                Dim bytes() As Byte
                bytes = CType(dv.Item(0).Item("Meta"), Byte())
 
                Dim fs As New IO.MemoryStream(bytes, 0, bytes.Length, False)
                Dim bmp As New System.Drawing.Bitmap(fs)
 
                e.Graphics.DrawImage(bmp, New Point(0, 0))
            'Next
 
            e.HasMorePages = False
 
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub