请问在VB.NET要将groupbox中所有的控件打印出来，代码应该怎么写？

[bbq12345]

强制打成A4大小 谢谢

[AReed]

Imports System
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.IO

Namespace Microsoft.Samples.WinForms.VB.PrintingExample1

Public Class PrintingExample1
Inherits System.Windows.Forms.Form

private printFont As Font
private streamToPrint As StreamReader

Public Sub New ()

MyBase.New()

PrintingExample1 = Me

'此调用是 Windows 窗体设计器所必需的。
InitializeComponent()

'启动打印按钮的事件处理程序
AddHandler printButton.Click, AddressOf printButton_Click

End Sub


'在用户按下打印按钮时激发的事件
Private Sub printButton_Click(sender As object, e As System.EventArgs)

Try
streamToPrint = new StreamReader ("PrintMe.Txt")
Try
printFont = new Font("Arial", 10)
Dim pd as PrintDocument = new PrintDocument() '假定为默认打印机
AddHandler pd.PrintPage, New System.Drawing.Printing.PrintPageEventHandler(AddressOf Me.pd_PrintPage)
pd.Print()
Finally
streamToPrint.Close()
End Try

Catch ex As Exception
MessageBox.Show("打印文件时发生错误 - " + ex.Message)
End Try

End Sub

'每个要打印的页所激发的事件
Private Sub pd_PrintPage(ByVal sender As Object, ByVal ev As System.Drawing.Printing.PrintPageEventArgs)

Dim lpp As Single = 0
Dim yPos As Single = 0
Dim count As Integer = 0
Dim leftMargin As Single = ev.MarginBounds.Left
Dim topMargin As Single = ev.MarginBounds.Top
Dim line As String

'算出每页的行数
'在事件上使用 MarginBounds 以达到此目的
lpp = ev.MarginBounds.Height / printFont.GetHeight(ev.Graphics)

'现在，在文件上重复此操作以输出每行
'注意：假设单行比页宽窄
'首先检查行数，以便我们看不到不打印的行
line = streamToPrint.ReadLine()
While (count < lpp And line <> Nothing)

yPos = topMargin + (count * printFont.GetHeight(ev.Graphics))

ev.Graphics.DrawString(line, printFont, Brushes.Black, leftMargin, yPos, New StringFormat())

count = count + 1

If (count < lpp) Then
line = streamToPrint.ReadLine()
End If

End While

'如果有多行，则另外打印一页
If (line <> Nothing) Then
ev.HasMorePages = True
Else
ev.HasMorePages = False
End If

End Sub

'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub


#Region " Windows 窗体设计器生成的代码 "

'Windows 窗体设计器所必需的
Private components As System.ComponentModel.Container
Private WithEvents printButton As System.Windows.Forms.Button

Private WithEvents PrintingExample1 As System.Windows.Forms.Form

' 注意：下列代码是 Windows 窗体设计器所必需的
' 不要修改它
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.printButton = New System.Windows.Forms.Button()
Me.Text = "打印示例 1"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(504, 381)

printButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
printButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat
printButton.Size = New System.Drawing.Size(136, 40)
printButton.TabIndex = 0
printButton.Location = New System.Drawing.Point(32, 112)
printButton.Text = "打印文件"
Me.Controls.Add(printButton)
End Sub

#End Region

'应用程序的主要入口点
<STAThread()> Shared Sub Main()
System.Windows.Forms.Application.Run(New PrintingExample1())
End Sub

End Class

End Namespace

---------------------------------

[AReed]

Imports System
Imports System.ComponentModel
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Printing
Imports System.IO

Namespace Microsoft.Samples.WinForms.VB.PrintingExample4

Public Class PrintForm
Inherits System.Windows.Forms.Form

private storedPageSettings As PageSettings

Public Sub New ()

MyBase.New

PrintForm = Me

'此调用是 Windows 窗体设计器所必需的。
InitializeComponent()

'启动打印按钮的事件处理程序
AddHandler printButton.Click, AddressOf printButton_Click
AddHandler pageSetupButton.Click, AddressOf pageSetupButton_Click

End Sub

'在用户按下页面设置按钮时激发的事件
Private Sub pageSetupButton_Click(sender As object, e As System.EventArgs)

Try
Dim psDlg As New PageSetupDialog

If (storedPageSettings Is Nothing) Then
storedPageSettings = new PageSettings()
End If

psDlg.PageSettings = storedPageSettings
psDlg.ShowDialog
Catch ex As Exception
MessageBox.Show("发生错误 - " + ex.Message)
End Try

End Sub


'在用户按下打印按钮时激发的事件
Private Sub printButton_Click(sender As object, e As System.EventArgs)

Try
Dim streamToPrint As StreamReader = new StreamReader ("PrintMe.Txt")
Try
'假定为默认打印机
Dim pd As TextFilePrintDocument = new TextFilePrintDocument(streamToPrint)

If Not (storedPageSettings Is Nothing) Then
pd.DefaultPageSettings = storedPageSettings
End If


Dim dlg As New PrintDialog()
dlg.Document = pd
Dim result As DialogResult = dlg.ShowDialog()

If (result = System.Windows.Forms.DialogResult.OK) Then
pd.Print()
End If

Finally
streamToPrint.Close()
End Try

Catch ex As Exception
MessageBox.Show("打印文件时发生错误 - " + ex.Message)
End Try

End Sub

'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub



#Region " Windows 窗体设计器生成的代码 "

'Windows 窗体设计器所必需的
Private components As System.ComponentModel.Container
Private WithEvents printButton As System.Windows.Forms.Button
Private WithEvents pageSetupButton As System.Windows.Forms.Button

Private WithEvents PrintForm As System.Windows.Forms.Form

'注意：下列过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改它。
'不要使用代码编辑器修改它。
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.printButton = New System.Windows.Forms.Button()
Me.pageSetupButton = New System.Windows.Forms.Button()
Me.Text = "打印示例 4"
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.ClientSize = New System.Drawing.Size(504, 381)

printButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
printButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat
printButton.Size = New System.Drawing.Size(136, 40)
printButton.TabIndex = 0
printButton.Location = New System.Drawing.Point(32, 112)
printButton.Text = "打印文件"

pageSetupButton.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
pageSetupButton.FlatStyle = System.Windows.Forms.FlatStyle.Flat
pageSetupButton.Size = New System.Drawing.Size(136, 40)
pageSetupButton.TabIndex = 1
pageSetupButton.Location = New System.Drawing.Point(32, 160)
pageSetupButton.Text = "页面设置"
Me.Controls.Add(printButton)
Me.Controls.Add(pageSetupButton)
End Sub

#End Region

'应用程序的主要入口点
<STAThread()> Shared Sub Main()
System.Windows.Forms.Application.Run(New PrintForm())
End Sub

End Class

End Namespace

[bbq12345]

哇 这么快就有答复了 谢谢 ^^
等晚上试试

[bbq12345]

粗略看了一下 好象有点答非所问

[earlsen]

打印 Windows 窗体 (Visual Basic)

Private Declare Function BitBlt Lib "gdi32.dll" Alias "BitBlt" (ByVal _
hdcDest As IntPtr, ByVal nXDest As Integer, ByVal nYDest As _
Integer, ByVal nWidth As Integer, ByVal nHeight As Integer, ByVal _
hdcSrc As IntPtr, ByVal nXSrc As Integer, ByVal nYSrc As Integer, _
ByVal dwRop As System.Int32) As Long
Dim memoryImage As Bitmap
Private Sub CaptureScreen()
Dim mygraphics As Graphics = Me.CreateGraphics()
Dim s As Size = Me.Size
memoryImage = New Bitmap(s.Width, s.Height, mygraphics)
Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)
Dim dc1 As IntPtr = mygraphics.GetHdc
Dim dc2 As IntPtr = memoryGraphics.GetHdc
BitBlt(dc2, 0, 0, Me.ClientRectangle.Width, _
Me.ClientRectangle.Height, dc1, 0, 0, 13369376)
mygraphics.ReleaseHdc(dc1)
memoryGraphics.ReleaseHdc(dc2)
End Sub
Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, _
ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles _
PrintDocument1.PrintPage
e.Graphics.DrawImage(memoryImage, 0, 0)
End Sub
Private Sub PrintButton_Click(ByVal sender As System.Object, ByVal e As _
System.EventArgs) Handles PrintButton.Click
CaptureScreen()
PrintDocument1.Print()
End Sub

[bbq123456]

不知道只能回复3贴-_-!
earlsen的代码虽然可以实现GROUPBOX的打印 但是由于是通过截取屏幕实现的 所以在机子反映迟钝或用SCALE放大时 不能达到效果
有没有直接打印GROUPBOX 或 如何在将图象传给打印机时将图象放大
谢谢

[bbq12345]

谢谢earlsen 代码已经通过了 但还有一个问题是 要把临时图象放大到A4大小应该怎么写 谢谢

[bbq12345]

看了下应该能用SCALE解决

[bbq12345]

等下午再试试 能解决就结贴 不能的话 还要请教^^