Private Sub btn_Print_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles btn_Print.Click
        Me.PrintPreviewControl1.InvalidatePreview()
        Application.DoEvents()
        SaveControlBitmap(PrintPreviewControl1)
        If Me.PrintDialog.ShowDialog = Windows.Forms.DialogResult.OK Then
            Me.PrintDoc.Print()
            Me.PrintPreviewControl1.InvalidatePreview()
        Else
        End If
 
    End Sub
 
    Private Sub btn_PageSetup_Click(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles btn_PageSetup.Click
        Me.PrintPreviewControl1.InvalidatePreview()
        Application.DoEvents()
        If Me.PageDialog.ShowDialog() = Windows.Forms.DialogResult.OK Then
            Me.PrintPreviewControl1.InvalidatePreview()
 
        Else
        End If
    End Sub
 
    Private Sub SaveControlBitmap(ByVal c As Control)
    Dim DateiSp As String = IO.Path.Combine( _
        My.Computer.FileSystem.SpecialDirectories.Desktop, BMO.DruckBSH2 & "-" _
        & BMO.DruckBU2 & _
                      ".Jpeg")
 
        Using bmp As New Bitmap(c.ClientRectangle.Width, _
          c.ClientRectangle.Height)
            c.DrawToBitmap(bmp, c.ClientRectangle)
            bmp.Save(DateiSp, System.Drawing.Imaging.ImageFormat.Jpeg)
        End Using
     End Sub