锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net输出打印 vbnet printdocument

IT技术方法

高分求解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 打印功能可以把数据导出到EXCEL，然后使用EXCEL进一步处理后使用 。
也可以做成vb报表(VB自带有) 。
先设置报表格式，打印时向报表传递数据就可以了 。
用vb.net2008打印杨辉三角形(打印10行),要求如图所示？Public Class Form1
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim n As Integer, i As Integer, j As Integer, a(,) As Integer
n = 10
ReDim a(n + 1, n + 1)
For i = 1 To n + 1
a(i, 1) = 1 : a(i, i) = 1 : Next i
For i = 3 To n + 1
For j = 2 To i - 1
a(i, j) = a(i - 1, j - 1) + a(i - 1, j)
Next j, i
For i = 1 To n + 1
For j = 1 To i
TextBox1.AppendText(Space(4 - Len(Trim(Str(a(i, j)))))Trim(Str(a(i, j))))
Next j
TextBox1.AppendText(vbCrLf)
Next i
End Sub
End Class,9,
xixihahano1举报
谢谢了，但是你写的代码可以输出多少行？多久会溢出了
举报ccddty
没试过，你可以试试，将n的值加大 当n》16的时候就显示“参数“Number”必须大于或等于 0 。”了 有没有办法解决？,
vb.net怎么打印执行代码行数如何在VB.net中的应用程序运行打印行数
[英] how to print out line number during application run in VB.net
查看：341 发布时间：2015/11/25 16:05:39 .net vb.net debugging stack-trace line-numbers
万维广告联盟
?? 杜绝删库跑路 。一个平台登录所有资产，实现事先防范、事中控制、事后溯源，满足等保合规要求 。
广告
本文介绍了如何在VB.net中的应用程序运行打印行数的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
我想打印出我的调试消息，在VB.net应用程序的行号 。我不喜欢这样，
Dim st As StackTrace
Dim sf As StackFramee
st = New StackTrace(New StackFrame(True))
sf = st.GetFrame(0)
Console.WriteLine.("Line "sf.GetFileLineNumber()）
我想把片段的一类，每次我打电话logMsg方法来记录我的消息 ， 行号源$ C $ C 。但我发现 ， 如果我把上面的代码段为一类 ， 行数总是相同的，这是我新的'圣' 。行

推荐阅读


上一篇：linux内置命令找不到，linux找不到命令解决方法

下一篇：勘察单位公众号名称怎么填，勘察单位编号怎么填