Public Sub printDoc1(ByVal Doc As CUP_Dokument.cls_Dokument, ByVal Seite As _
      Integer)
        Dim currentPrintDocument As System.Drawing.Printing.PrintDocument
        Try
            curPage = New CUP_Dokument.cls_DokumentPage
            curPage = Doc.PageContainer.Item(Seite)
            currentPrintDocument = New System.Drawing.Printing.PrintDocument()
            currentPrintDocument.DocumentName = "Test"
            currentPrintDocument.DefaultPageSettings.Landscape = Me.Landscape
            Me.PrintPreviewControl1.Zoom = Me.tbZoom.Value / 10
            AddHandler currentPrintDocument.PrintPage, AddressOf Me.PrintPage1
            Me.PrintPreviewControl1.Document = currentPrintDocument
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
 
    Private Sub PrintPage1(ByVal sender As Object, ByVal e As _
      System.Drawing.Printing.PrintPageEventArgs)
        Try
            e.Graphics.DrawImage(curPage.meta.DrawImage_MetaFile, 0, 0)
            'Nur einzelne Seiten.
            e.HasMorePages = False
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

Gru? Rub

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