Private Sub printDoc()
                       currentPrintDocument = New PrintDocument()
                      currentPrintDocument.DocumentName = "Test" 
                    'Handler für 'Page' wird erzeugt.
                    AddHandler currentPrintDocument.PrintPage, AddressOf _
                     Me.PrintPage
                    DokuId = 1
                   currentPrintDocument.PrinterSettings.PrinterName = _
                     "\\FSC01\Lexmark Optra"
                    'Prüft, ob Drucker funktionsfähig ist.
                    If currentPrintDocument.PrinterSettings.IsValid Then
                        currentPrintDocument.Print()
                    Else
                        MessageBox.Show("Printer is invalid.")
                    End If
          Catch ex As Exception
                 End Try
    End Sub
 
    Private Sub PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
        Try
            Dim metafile1
            Dim Storagedb As Stream
            Dim dv As New DataView
            dv.Table = Me.DS_TerminalService1.Tables( _
              "tblTerminalPrinterJobsPages")
            dv.RowFilter = " ID =1" 
            'Umwandlung des Streams in ein Metafile.
            Dim bits As Byte() = CType(dv.Item(0).Item("Meta"), Byte())
            Storagedb = New MemoryStream(bits)
            'Stream wird zurückgesetzt.
            Storagedb.Seek(0, SeekOrigin.Begin)
            metafile1 = New Metafile(Storagedb)
            'Stream wird geschlossen.
            Storagedb.Close()
            'Grafic wird übergeben.
            e.Graphics.DrawImage(metafile1, 60, 10)
            'Metafile wird gelöscht.
            metafile1.Dispose()
            'Nur einzelne Seiten.
            e.HasMorePages = False
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub