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

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

專注于為中小企業(yè)提供成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)淮陽(yáng)免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了超過(guò)千家企業(yè)的穩(wěn)健成長(zhǎng)，幫助中小企業(yè)通過(guò)網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

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中怎樣在窗體打字

VB6.0可以將顯示在容器前的標(biāo)簽控件的BackStyle 屬性，設(shè)置為0使其透明而不遮擋后面的圖片內(nèi)容。

BackStyle 屬性，返回或設(shè)置一個(gè)值，它指定 Label 控件或 Shape 控件的背景是透明的還是非透明的。

代碼實(shí)例：

Private Sub Form_Load()

Label1.FontSize = 22

Label1.ForeColor = vbWhite

Label1.BackStyle = 0

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

文章標(biāo)題：vb.net窗體打印字 vb單擊窗體怎樣打印出文字
文章源于：http://www.chinadenli.net/article32/ddoehsc.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站維護(hù)、網(wǎng)站收錄、全網(wǎng)營(yíng)銷推廣、網(wǎng)站排名、面包屑導(dǎo)航、電子商務(wù)

廣告

聲明：本網(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)