VB.NET打印问题(有滚动条控件的内容怎么全部打印)

来源：百度知道 编辑：UC知道 时间：2024/06/30 06:30:11
我用VB.NET编程时,遇到打印的问题。我打印的是整个窗体，窗体上依顺序有标签、面板（面板上有画图）、标签、RichTextBox文本框控件、标签，主要的问题是文本框控件有滚动条的，打印的时候如何让滚动条中的所有内容都打印出来？（总是只能打印RichTextBox中显示的部分，遮住的部分不能打印，有什么办法，可以让滚动条中文本内容全部打印？）

参考：

把执行SQL语句后得到的记录集逐条（含字段名）显示在LISTVIEW控件中
'----------------------------------------------------------------
Public Sub ListUpdate(ByRef rs As Recordset, ByRef lv As ListView)

Dim head As ColumnHeader, Item As ListItem
Dim i As Integer, j As Integer
Dim lvWidth As Integer
lvWidth = lv.Width

'初始化LISTVIEW的某些属性
lv.View = lvwReport
lv.GridLines = True
lv.FullRowSelect = True

lv.ListItems.Clear
lv.ColumnHeaders.Clear

For i = 0 To rs.Fields.Count - 1
Set head = lv.ColumnHeaders.Add
head.Text = rs.Fields(i).Name
head.Width = lvWidth / rs.Fields.Count
Next

For j = 1 To PERPAGE
If rs.EOF Then Exit For
Set Item = lv.ListItems.Add
Item.Text = "" & rs.Fields(0).Value
For i = 1 To rs.Fields.Count - 1
Item.SubItems(i) = "" & rs.Fields(i).Value
Next
rs.MoveNext

Next

End Sub

&