补上代码如下:
'打印预览
Private PrintPreviewDialog1 As New PrintPreviewDialog
Private Sub PrintPreview(ButtonM As Object, e As EventArgs)
If FmPrint1() = False Then Exit Sub
With Me.PrintPreviewDialog1
.Document = PrintDocument1
.DrawToBitmap(Image1, PanelContainer1.ClientRectangle)
.FormBorderStyle = FormBorderStyle.None
.ShowInTaskbar = False
.WindowState = FormWindowState.Maximized
.ShowDialog()
Graphics1.Clear(PanelContainer1.BackColor)
Graphics1.EndContainer(GraphicsContainerState1)
End With
End Sub
Private Function FmPrint1() As Boolean
Image1 = New Bitmap(PanelContainer1.Width, PanelContainer1.Height, PanelContainer1.CreateGraphics) 'PanelContainer1.DrawToBitmap
Graphics1 = Graphics.FromImage(Image1)
GraphicsContainerState1 = Graphics1.BeginContainer()
Graphics1.CopyFromScreen(PanelContainer1.Location.X, PanelContainer1.Location.Y, 0, 0, PanelContainer1.Size)
AddHandler Me.PrintDocument1.PrintPage, AddressOf Me.PrintPage1
End Function
Private Sub PrintPage1(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)
e.Graphics.DrawImage(Image1, 0, 0)
End Sub