在vb.net中将打印文档或打印预览保存为图像

Question

我想将打印预览保存到vb.net中的图像文件中。 到目前为止，我的应用程序使用用户提供的文本生成打印预览并打印，但我想将打印的图像保存到我的计算机上。 我已经google了，看到了很多答案，比如this

但不知怎的，这对我不起作用。任何帮助将不胜感激。

我目前的代码：

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    PrintDocument1.Print()
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        PrintPreviewDialog1.ShowDialog()
End Sub

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    Dim fornt1 As New Font("Arial", 16, FontStyle.Regular)
    Dim rect As Rectangle = New Rectangle(New Point(0, 0), PictureBox1.Image.Size)
    e.Graphics.DrawImage(PictureBox1.Image, rect) 'Draw Image
    e.Graphics.DrawString(RichTextBox1.Text, fornt1, Brushes.LightBlue, 500, 500)
End Sub
End Class

Answer 1

我解决了你的问题。

以下是您的表单应如何显示：

这是代码：

Public Class Form1
Dim BMP As New Drawing.Bitmap(322, 332)
Dim Graph As Graphics = Graphics.FromImage(BMP)

Private Sub PrintBUT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintBUT.Click
    Graph.FillRectangle(Brushes.White, 0, 0, PictureBox1.Width, PictureBox1.Height)
    Graph.DrawString(RichTextBox1.Text, RichTextBox1.Font, Brushes.Black, 5, 5)
    PictureBox1.Image = BMP
End Sub

Private Sub SaveBUT_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveBUT.Click
    Dim saveFileDialog1 As New SaveFileDialog()
    saveFileDialog1.Filter = "jpg files (*.jpg)|*.jpg|All files (*.*)|*.*"
    Try
        saveFileDialog1.Filter = "JPEG |*.jpeg"
        If saveFileDialog1.ShowDialog() = DialogResult.OK Then
            PictureBox1.Image.Save(saveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
        End If
    Catch ex As Exception
    End Try
End Sub
End Class

我希望这段代码对你有用。 ：）