在vb中打印带有图像的可滚动面板

Question

大家好。我在可滚动面板中打印图像时遇到问题。谁能帮我解决这个问题？

我想先调整图像的大小（这样它可以适合 8.5 x 11" 的纸张），然后在打印预览中显示然后打印

在我的例子中，我有一个带有面板（dock=fill）的表单（form1），我想在其中打印图像（2 个图像）。但是，图像打印的触发器在下一个表单中

在 btnnext(form1) 中 Form2.Show() 我.Hide()

打印代码为form2。我是 vb 的新手，我对打印可滚动面板一无所知。我在其他论坛尝试了不同的代码，但它没有打印整个图像，而只打印了表单的屏幕截图。任何回复将不胜感激。，非常感谢您

---

Public Class Form2

Private WithEvents pd As New Printing.PrintDocument
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    Using bmp As New Bitmap(Form1.pb1.Width, Form1.pb1.Height)
        Form1.panel1.DrawToBitmap(bmp, New Rectangle(0, 0, Form1.pb1.Width, Form1.pb1.Height))
        e.Graphics.DrawImage(bmp, e.MarginBounds)
    End Using
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    PrintDocument1.Print()
End Sub 
End Class

- ^它只打印您在屏幕上可以看到的内容。不是整个面板..

Answer 1

基本上，保持所有内容相同，但不是在整个页面上打印整个第一张图像，而是根据其位置和大小相对于 MarginBounds 的比例打印第二张图像

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
    Using bmp As New Bitmap(Form1.pb1.Width, Form1.pb1.Height)
        Form1.pb1.DrawToBitmap(bmp, New Rectangle(0, 0, Form1.pb1.Width, Form1.pb1.Height))
        'Print pb1 to fill the whole page
        e.Graphics.DrawImage(bmp, e.MarginBounds)
    End Using
    Using bmp2 As New Bitmap(Form1.pb2.Width, Form1.pb2.Height)
        Form1.pb2.DrawToBitmap(bmp2, New Rectangle(0, 0, Form1.pb2.Width, Form1.pb2.Height))

        Dim x as Double = Form1.pb2.Location.X - Form1.pb1.Location.X
        x = x * e.MarginBounds.Width / Form1.pb1.Width
        x = x + e.MarginBounds.X

        Dim y as Double = Form1.pb2.Location.Y - Form1.pb1.Location.Y
        y = y * e.MarginBounds.Height / Form1.pb1.Height
        y = y + e.MarginBounds.Y

        Dim width as Double = Form1.pb2.width
        width = width * e.MarginBounds.Width / Form1.pb1.Width

        Dim height as Double = Form1.pb2.Height
        height = height * e.MarginBounds.Height / Form1.pb1.Height

        e.Graphics.DrawImage(bmp2, New Rectangle(x, y, width, height))
    End Using
End Sub