锐客网

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

在vb.net创建a4纸 vb怎么创建form2

IT技术创建

高分求解vb.net 打印的问题报表打印应该也能实现，但是在vb.net创建a4纸我觉得在vb.net创建a4纸你这个用文本打印更简单，将数据输出到txt文件 ， 结果用RichTextBox显示，但是需要简单在vb.net创建a4纸的排版，调用打印机打印RichTextBox即可在vb.net创建a4纸的
排版用tab（）、space（）、vbcrlf或PrintLine(1)换行，代码类似如下样式
PrintLine(1, TAB(60), "准考证")
PrintLine(1)
PrintLine(1, "姓名:"xingmingSpace(3) "准考证号在vb.net创建a4纸："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()
【在vb.net创建a4纸 vb怎么创建form2】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中建立word文档，并写入文字和图片？首先说明，你这样是写TXT，不是DOC，虽然Word可以打开，但根本就不是Word文件 。当然不能存储图片了 。请参考我以下的代码 。建一个Command1 。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Dim
ap
As
Word.Application,
doc
As
Document
Private
Sub
Form_Load()
'这个过程不必做修改 ， 是建立一个新的Word文档
Set
ap
=
CreateObject("word.application")
ap.Visible
=
True
Set
doc
=
ap.Documents.Add
End
Sub
Private
Sub
Command1_Click()
doc.Content.InsertAfter
Text:="请输入你要输入的内容"
'插入文字，请使用这种格式
doc.Shapes.AddPicture
FileName:="D:\a.jpg"
'插入图片，请使用这种格式，路径自己写
End
Sub
其他问题再找我 。
vb.net2010中如何在窗口中建立画布'绘制图形的三步曲
'1，获得一个Graphics对象
Dim MyGraphics As Graphics
MyGraphics = Me.CreateGraphics
'2，定义一个Pen对象，用于绘制图形（轮廓线）
Dim MyPen As New Pen(Color.Black)
'3，定义一个Brush对象，用于填充图形（如果需要填充的话）
Dim MyBrush As New SolidBrush(Color.Orange)
MyGraphics.FillEllipse(MyBrush, 200, 200, 100, 100)'绘制一个实心圆，该圆在：直线x=200，y=200 ， x=200+100，y=200+100所划的矩形区域内
MyGraphics.DrawEllipse(MyPen, 200, 200, 100, 100)'绘制一个空心圆 ， 该圆在：直线x=200，y=200，x=200+100，y=200+100所划的矩形区域内
关于在vb.net创建a4纸和vb怎么创建form2的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

推荐阅读


上一篇：jsp中java代码报错，jsp 报错怎么解决

下一篇：苹果Id下载，苹果id下载软件老是要求验证