怎樣用熱敏打印機(jī)把vb.net窗體內(nèi)文本框內(nèi)容打印出來(lái)

用PrintForm控件，在Visual Basic PowerPacks項(xiàng)目列表中vb2008 SP1以后版本就有了，下面是代碼

公司主營(yíng)業(yè)務(wù)：成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)、移動(dòng)網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實(shí)現(xiàn)互聯(lián)網(wǎng)宣傳，提高企業(yè)的競(jìng)爭(zhēng)能力。創(chuàng)新互聯(lián)是一支青春激揚(yáng)、勤奮敬業(yè)、活力青春激揚(yáng)、勤奮敬業(yè)、活力澎湃、和諧高效的團(tuán)隊(duì)。公司秉承以“開放、自由、嚴(yán)謹(jǐn)、自律”為核心的企業(yè)文化，感謝他們對(duì)我們的高要求，感謝他們從不同領(lǐng)域給我們帶來(lái)的挑戰(zhàn)，讓我們激情的團(tuán)隊(duì)有機(jī)會(huì)用頭腦與智慧不斷的給客戶帶來(lái)驚喜。創(chuàng)新互聯(lián)推出富民免費(fèi)做網(wǎng)站回饋大家。

Imports System.Drawing.Printing

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'先設(shè)置打印頁(yè)面的頁(yè)邊距

With Me.PrintForm1

Dim myMargins As New Margins '頁(yè)邊距設(shè)置信息是存放在這個(gè)Margins類型的對(duì)象中的

With myMargins '分別設(shè)置上下左右邊距,

.Left = 12

.Right = 12

.Top = 12

.Bottom = 12

End With

.PrinterSettings.DefaultPageSettings.Margins = myMargins '把myMargins對(duì)象賦給PrintForm1的設(shè)置屬性

End With

Me.Button1.Visible = False '這個(gè)是在打印的時(shí)候隱藏打印按鈕

Me.PrintForm1.Form = Me '設(shè)置要打印的窗體

Me.PrintForm1.Print() '調(diào)用打印窗體方法

Me.Button1.Visible = True '再把隱藏的打印按鈕顯示出來(lái)

End Sub

VB上如何打印窗體指定位置的內(nèi)容？

VB可以用CurrentX、CurrentY 屬性實(shí)現(xiàn)定位打印。用ScaleMode 屬性確定打印機(jī)對(duì)象坐標(biāo)的度量單位。

CurrentX、CurrentY 屬性，返回或設(shè)置下一次打印或繪圖方法的 水平 (CurrentX) 或垂直

(CurrentY) 坐標(biāo)。

ScaleMode 屬性，當(dāng)使用圖形方法或調(diào)整控件位置時(shí)，返回或設(shè)置一個(gè)值，該值指示對(duì)象坐標(biāo)的度量單位。

具體實(shí)現(xiàn)代碼：

Option?Explicit

Dim?X?As?Long

Dim?y?As?Long

Dim?fnt?As?Variant

Dim?txt?As?String

Dim?dy?As?Variant

Public?Function?prnt(X?As?Variant,?y?As?Variant,?fnt?As?Variant,?txt?As?Variant)

Printer.CurrentX?=?X

Printer.CurrentY?=?y

Printer.FontSize?=?fnt

Printer.Print?txt

End?Function

Private?Sub?Command1_Click()

Printer.ScaleMode?=?6?'以mm定位

Printer.CurrentX?=?10

Printer.CurrentY?=?20

fnt?=?12

txt?=?"YD(0)"

dy?=?prnt(X,?y,?fnt,?txt)

Printer.EndDoc

End?Sub

VB怎么打印窗體哦

可以調(diào)用窗體的PrintForm方法用打印機(jī)打印整個(gè)窗體，比如

[窗體名字.]PrintForm

如果省略窗體名字表示打印當(dāng)前窗體。

需要注意的是，用PrintForm方法時(shí)必須先顯示窗體。打印的內(nèi)容是整個(gè)窗體圖像，包括菜單欄，標(biāo)題欄等。另外，如果窗體包括圖形，必須將窗體的AutoRedraw屬性設(shè)為True時(shí)才可以。

分享文章：vb.net打印窗體局部,vb在窗體上打印
網(wǎng)頁(yè)網(wǎng)址：http://sd-ha.com/article12/phhpgc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供App開發(fā)、服務(wù)器托管、域名注冊(cè)、電子商務(wù)、小程序開發(fā)、網(wǎng)站維護(hù)

廣告

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