Sub speichern(ByVal pd As PrintPreviewDialog)
        'Dateipfad erstellen
        Dim DateiSp As String = IO.Path.Combine( _
          My.Computer.FileSystem.SpecialDirectories.Desktop, Form4.DruckBSH & _
          ".Jpeg")
        'Neue Bitmap in der Grösses des Printpreviewdialoges erstellen 
        Dim bmp As New Bitmap(pd.Width, pd.Height)
        'Den Dialog ins Bitmap zeichnen
        pd.DrawToBitmap(bmp, New Rectangle(0, 0, pd.Width, pd.Height))
        'und speichern
        bmp.Save(DateiSp, Drawing.Imaging.ImageFormat.Jpeg)
        'in die Zwischenablage, warum auch immer
        Clipboard.SetImage(bmp)
        'und Aus
    End Sub

 Private Sub PrintPreviewDialog1_Shown(ByVal sender As Object, ByVal e As _
   System.EventArgs) Handles PrintPreviewDialog1.Shown
        speichern(DirectCast(sender, PrintPreviewDialog))
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus