Private PageCounter As Integer
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim currentPrintDocument As PrintDocument
        Dim dr As System.Data.DataRow
 
        Try
            'Auswahl, Sortierung etc. noch implementieren.
            For Each dr In Me.DS_TerminalService1.Tables( _
              "tblTerminalPrinterJobsPages").Rows
                'Variable wird initialisiert.
                currentPrintDocument = New PrintDocument()
                'Documentenname wird übergeben.
                currentPrintDocument.DocumentName = "Test" & PageCounter
                'Handler für 'Page' wird erzeugt.
                AddHandler currentPrintDocument.PrintPage, AddressOf _
                  Me.PrintPage
                'Hier wird der Drucker übergeben.
                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
                'PageCounter wird erhöht.
                PageCounter = PageCounter + 1
            Next
        Catch
            MsgBox("Fehler beim Drucken!")
        End Try
    End Sub
 
    Private Sub PrintPage(ByVal sender As Object, ByVal e As PrintPageEventArgs)
        Dim metafile1
        Dim Storagedb As Stream
 
        'Umwandlung von des Streams in ein Metafile.
        Dim bits As Byte() = CType(Me.DS_TerminalService1.Tables( _
          "tblTerminalPrinterJobsPages").Rows(PageCounter).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
    End Sub

Gru? Rub

(PS: Besuch doch mal meine Seiten http://e-liquids.de und http://jjpassion.de)