vb.net Document_PrintPage打印多行文本

比如：

創(chuàng)新互聯(lián)建站堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站設(shè)計(jì)、網(wǎng)站建設(shè)、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿(mǎn)足客戶(hù)于互聯(lián)網(wǎng)時(shí)代的長(zhǎng)泰網(wǎng)站設(shè)計(jì)、移動(dòng)媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

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)

也就是分次用不同坐標(biāo)和不同的字體來(lái)打印各變量。畫(huà)線(xiàn)用：

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

具體坐標(biāo)數(shù)值自己用尺量出，再換算。

vb.net 打印功能

可以把數(shù)據(jù)導(dǎo)出到EXCEL，然后使用EXCEL進(jìn)一步處理后使用。

也可以做成vb報(bào)表(VB自帶有)。

先設(shè)置報(bào)表格式，打印時(shí)向報(bào)表傳遞數(shù)據(jù)就可以了。

怎么用VB.NET編程實(shí)現(xiàn)在桌面隨機(jī)坐標(biāo)顯示指定的某些圖片（隨機(jī)顯示某張圖片），望高手幫忙

1.首先建立一個(gè)基于Microsoft?.NET?Framework?2.0以上的VB.NET解決方案。

2.在窗體上面添加一個(gè)PictureBox控件，并綁定到父容器里面（綁定到父容器的操作可以不去實(shí)現(xiàn)）。

3.給PictureBox.Image指定路徑，這里以“C:\Windows\Web\Wallpaper\Windows\img0.jpg”為例子，當(dāng)然這張圖片在Windows?7旗艦版下面會(huì)有的。

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?開(kāi)發(fā)的，若有錯(cuò)誤請(qǐng)參考請(qǐng)他方法進(jìn)行修改

vb.net怎么自定義坐標(biāo)系

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

你只要記住，這里的x1,y1是左上角的坐標(biāo)，x2,y2是右下角的坐標(biāo)，通過(guò)這兩個(gè)點(diǎn)的坐標(biāo)設(shè)定，就可以決定坐標(biāo)原點(diǎn)的位置以及坐標(biāo)軸的方向了，比如

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

以上是把坐標(biāo)原點(diǎn)設(shè)在窗體中心，x軸長(zhǎng)600，方向從左到右，y軸長(zhǎng)400，方向從下向上。

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

以上是把坐標(biāo)原點(diǎn)設(shè)在窗體右上角，x軸長(zhǎng)800，方向從右到左，y軸長(zhǎng)600，方向從上向下。

下面說(shuō)坐標(biāo)軸和原點(diǎn)的標(biāo)示法：

假定自定義坐標(biāo)設(shè)為：

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

則

Line (-300, 0)-(300, 0) '畫(huà)x軸

Line (0, 200)-(0, -200) '畫(huà)y軸

CurrentX = 290

CurrentY = -5

Print "x" '標(biāo)示x軸

CurrentX = 5

CurrentY = 200

Print "y" '標(biāo)示y軸

CurrentX = 5

CurrentY = -5

Print "0" '標(biāo)示原點(diǎn)

vb的printer.scale 用來(lái)打印全屏或者當(dāng)前控件顯示內(nèi)容，換成vb.net用什么方法能實(shí)現(xiàn)？

報(bào)表打印應(yīng)該也能實(shí)現(xiàn)，但是我覺(jué)得你這個(gè)用文本打印更簡(jiǎn)單，將數(shù)據(jù)輸出到txt文件，結(jié)果用RichTextBox顯示，但是需要簡(jiǎn)單的排版，調(diào)用打印機(jī)打印RichTextBox即可的

排版用tab（）、space（）、vbcrlf或PrintLine(1)換行，代碼類(lèi)似如下樣式

PrintLine(1, TAB(60), "準(zhǔn)考證" )

PrintLine(1)

PrintLine(1, "姓名:" xingming Space(3) "準(zhǔn)考證號(hào)：" cel(1) Space(3) cel(2) Space(3) cel(3))

但是TAB()排版比較規(guī)整

分享題目：關(guān)于vb.net按坐標(biāo)打印的信息
分享網(wǎng)址：http://aaarwkj.com/article22/dsigejc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)頁(yè)設(shè)計(jì)公司、微信小程序、響應(yīng)式網(wǎng)站、網(wǎng)站排名、品牌網(wǎng)站制作、用戶(hù)體驗(yàn)

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶(hù)投稿、用戶(hù)轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話(huà)：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)