印刷滚动面板与图像里面在vb

Question

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

我想第一调整图像，显示它在打印预览然后打印

在我的情况之前（因此它可以适应8.5×11" 纸），我有一个窗体（Form）用面板（基座=填充），我想打印里面的图像（2个图像）。但是，图像的打印的触发是在接下来的形式

在btnnext（form1中） Form2.Show（） 我.Hide（）

and the printing code is in the form2。我是vb中的新手，我对打印scroll没有任何意见能够面板。我在其他论坛尝试了不同的代码，但它没有打印整个图像，而是只显示了窗体的截图。 。任何反应可以理解的，太感谢你了

---

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