vb.net只打印一页 vb中如何设置打印区域 _打印

在ASP.NET(VB语言)中,想把控件GridView只显示1页，且只有10行。能设置吗，如能，如何设置。什么意思啊。这个莫名其妙vb.net只打印一页的问题。
vb.net只打印一页你的意思是如果GridView有50条数据，然后就显示一页，然后这一页就有10行vb.net只打印一页？
那剩下的40行不要vb.net只打印一页了？
那这样子，数据库查询的时候你只查前面那10条记录不就行了
select top 10 * from table1
如果要是你想弄分页，GridView本来就有分页功能，启用分页，把GridView的PageSize属性改成10就行了
关于VB.NET编制打印程序，打印出来页面内容总是重叠在一起的问题参考：
把执行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
' 打印
Public Sub PrintRecordset(ByRef recRecordset As Recordset, ByVal strType As String)
Dim LeftMargin As Integer
Dim HeadTopPosition As Integer
Dim FieldNum As Integer
Dim PageCounter As Integer
Dim MyRecordset As ADODB.Recordset
Const FooterTopPosition = 24
Set MyRecordset = recRecordset
PageCounter = 1
' 设置Printer 对象坐标的度量单位为厘米
Printer.ScaleMode = vbCentimeters
LeftMargin = 1.5
HeadTopPosition = 2
' 定义打印页左上角的X 坐标和Y 坐标，通过改变ScaleLeft 和ScaleTop 的值，可改变打印页的左边距和上边距
Printer.ScaleLeft = -LeftMargin
Printer.ScaleTop = -HeadTopPosition
Printer.Font.Name = "Times New Roman"
Printer.Font.Size = 12
Printer.Print "音像店顾客管理系统"
Printer.Print strType
Printer.Print ""
If MyRecordset.EOF And MyRecordset.BOF Then
MsgBox "No Record At Presend!", vbCritical And vbOKOnly, "Print Error"
Exit Sub
End If
MyRecordset.MoveFirst
Do Until Printer.CurrentYFooterTopPosition
'Print the fields of the recordset in sequence
For FieldNum = 0 To MyRecordset.Fields.Count - 1
Printer.Print MyRecordset.Fields(FieldNum).Name_
": "_
MyRecordset.Fields(FieldNum).Value
If Printer.CurrentYFooterTopPosition Then
Printer.CurrentX = 8
Printer.Print "Page: "PageCounter
' 创建多页文档
Printer.NewPage
PageCounter = PageCounter1
End If
Next FieldNum
MyRecordset.MoveNext
If MyRecordset.EOF Then Exit Do
' 在记录之间空一行
Printer.Print ""
Loop
'Print the Page number as a footer
Printer.CurrentX = 8
Printer.CurrentY = FooterTopPosition
Printer.Print "Page: "PageCounter
' 将输出送到打印机
Printer.EndDoc
End Sub
高分求解vb.net 打印的问题报表打印应该也能实现，但是我觉得你这个用文本打印更简单，将数据输出到txt文件，结果用RichTextBox显示，但是需要简单的排版，调用打印机打印RichTextBox即可的
排版用tab（）、space（）、vbcrlf或PrintLine(1)换行，代码类似如下样式
PrintLine(1, TAB(60), "准考证")
PrintLine(1)
PrintLine(1, "姓名:"xingmingSpace(3) "准考证号："cel(1)Space(3)cel(2)Space(3)cel(3))
但是TAB()排版比较规整
打印代码类似如下：
PrintDialog1.Document = PrintDocument1
PrintDocument1.DocumentName = "准考证"
PrintDialog1.AllowSomePages = False
PrintDialog1.ShowHelp = False
PrintDialog1.ShowNetwork = False
PrintDialog1.AllowSelection = False
PrintDialog1.AllowPrintToFile = False
MySReader = New StringReader(RichTextBox1.Text)
stringToPrint = MySReader.ReadToEnd()
PageSetupDialog1.Document = PrintDocument1
PageSetupDialog1.PageSettings.Margins.Bottom = 50
PageSetupDialog1.PageSettings.Margins.Top = 50
PageSetupDialog1.PageSettings.Margins.Left = 50
PageSetupDialog1.PageSettings.Margins.Right = 50
If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings'页面设置
If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
If PrintDialog1.PrinterSettings.IsValid = True Then
PrintDocument1.Print()
MsgBox("打印完成！"vbCrLf"Print completed!", , "Print hint(打印提示)")
Else
MsgBox("打印失败！打印机不可用。"vbCrLf"Print failed! The printer is not valid.", , "Print hint(打印提示)")
End If
Else
Exit Sub
End If
End If
【vb.net只打印一页 vb中如何设置打印区域】vb.net只打印一页的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb中如何设置打印区域、vb.net只打印一页的信息别忘了在本站进行查找喔。

vb.net只打印一页 vb中如何设置打印区域

推荐阅读

朩字旁和什么有关比如条

2019-01-10|2019-01-10 有点疲惫的一天

无线监控选用设备相关知识和方案！无线监控设备

运行出现威力热水器显示e1怎么解决？

Z5|用iQOO Z5玩《原神》是什么体验？中等画质流畅运行无压力

维生素c吃多长时间停一下

定性资料分析

减肥|体重无法下降的几个原因，只有及时纠正，才能持续瘦下来！

苹果14自动锁屏怎么设置，iphone自动锁屏设置方法是什么

带墨字的古风名字带墨字的古风名字女

土味情话大全土味情话大全撩女朋友

少女前线云图计划阵容推荐布阵攻略

速腾显示车门没关故障速腾显示门没关怎么回事

西门子冰箱显示报警情况啊如何处理与故障原因

荒野乱斗最新版本下载安卓，哪里可以下载荒野乱斗破解

有效运用大数据如何利用大数据

美的风骏空调怎么打开美的风骏空调不制热

提供好的深圳牙齿美白

宣传单手工制作大全图片传单怎么做

瑟缩在词典中的解释是什么意思瑟缩在词典中是什么意思