vb.net Document_PrintPage打印多行文本

比如：

创新互联建站坚持“要么做到，要么别承诺”的工作理念，服务领域包括：成都网站设计、网站建设、企业官网、英文网站、手机端网站、网站推广等服务，满足客户于互联网时代的长泰网站设计、移动媒体设计的需求，帮助企业找到有效的互联网解决方案。努力成为您成熟可靠的网络建设合作伙伴！

Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

e.Graphics.DrawString(str0, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)

e.Graphics.DrawString(A1, New Font("Arial", 10, FontStyle.Regular), Brushes.Black,50, 100)

e.Graphics.DrawString(A2, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 300,100)

e.Graphics.DrawString(A3, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 800,100)

也就是分次用不同坐标和不同的字体来打印各变量。画线用：

e.Graphics.DrawLine(BlackPen, x1, y1, x2, y2)。

具体坐标数值自己用尺量出，再换算。

vb.net 打印功能

可以把数据导出到EXCEL，然后使用EXCEL进一步处理后使用。

也可以做成vb报表(VB自带有)。

先设置报表格式，打印时向报表传递数据就可以了。

怎么用VB.NET编程实现在桌面随机坐标显示指定的某些图片（随机显示某张图片），望高手帮忙

1.首先建立一个基于Microsoft .NET Framework 2.0以上的VB.NET解决方案。

2.在窗体上面添加一个PictureBox控件，并绑定到父容器里面（绑定到父容器的操作可以不去实现）。

3.给PictureBox.Image指定路径，这里以“C:\Windows\Web\Wallpaper\Windows\img0.jpg”为例子，当然这张图片在Windows 7旗舰版下面会有的。

4.添加代码：

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Randomize()

Dim xScn As UInteger = My.Computer.Screen.Bounds.Width

Dim yScn As UInteger = My.Computer.Screen.Bounds.Height

ReLine:

Dim xShow As Integer = Int((xScn + 1) * Rnd()) - Me.Width

Dim yShow As Integer = Int((yScn + 1) * Rnd()) - Me.Height

Me.FormBorderStyle = Windows.Forms.FormBorderStyle.None

PictureBox1.Image = Image.FromFile("C:\Windows\Web\Wallpaper\Windows\img0.jpg")

PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage

If xShow = 0 And yShow = 0 Then

Me.Location = New Point(xShow, yShow)

Else

GoTo ReLine

End If

Me.Show()

End Sub

End Class

5.我是使用 Visual Studio 2012 Ultimate 开发的，若有错误请参考请他方法进行修改

vb.net怎么自定义坐标系

scale(x1,y1)-(x2,y2)

你只要记住，这里的x1,y1是左上角的坐标，x2,y2是右下角的坐标，通过这两个点的坐标设定，就可以决定坐标原点的位置以及坐标轴的方向了，比如

Scale (-300,200)-(300,-200)

以上是把坐标原点设在窗体中心，x轴长600，方向从左到右，y轴长400，方向从下向上。

Scale (800,0)-(0,600)

以上是把坐标原点设在窗体右上角，x轴长800，方向从右到左，y轴长600，方向从上向下。

下面说坐标轴和原点的标示法：

假定自定义坐标设为：

Scale (-300, 200)-(300, -200)

则

Line (-300, 0)-(300, 0) '画x轴

Line (0, 200)-(0, -200) '画y轴

CurrentX = 290

CurrentY = -5

Print "x" '标示x轴

CurrentX = 5

CurrentY = 200

Print "y" '标示y轴

CurrentX = 5

CurrentY = -5

Print "0" '标示原点

vb的printer.scale 用来打印全屏或者当前控件显示内容，换成vb.net用什么方法能实现？

报表打印应该也能实现，但是我觉得你这个用文本打印更简单，将数据输出到txt文件，结果用RichTextBox显示，但是需要简单的排版，调用打印机打印RichTextBox即可的

排版用tab（）、space（）、vbcrlf或PrintLine(1)换行，代码类似如下样式

PrintLine(1, TAB(60), "准考证" )

PrintLine(1)

PrintLine(1, "姓名:" xingming Space(3) "准考证号：" cel(1) Space(3) cel(2) Space(3) cel(3))

但是TAB()排版比较规整

当前标题：关于vb.net按坐标打印的信息
文章转载：http://ybzwz.com/article/dsigejc.html