建站
咨詢
售后
建站咨詢
新聞中心
怎樣用熱敏打印機(jī)把vb.net窗體內(nèi)文本框內(nèi)容打印出來
用PrintForm控件，在Visual Basic PowerPacks項(xiàng)目列表中vb2008 SP1以后版本就有了，下面是代碼
專注于為中小企業(yè)提供成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計(jì)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)淮陽免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動(dòng)了超過千家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(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è)置打印頁面的頁邊距
With Me.PrintForm1
Dim myMargins As New Margins '頁邊距設(shè)置信息是存放在這個(gè)Margins類型的對象中的
With myMargins '分別設(shè)置上下左右邊距,
.Left = 12
.Right = 12
.Top = 12
.Bottom = 12
End With
.PrinterSettings.DefaultPageSettings.Margins = myMargins '把myMargins對象賦給PrintForm1的設(shè)置屬性
End With
Me.Button1.Visible = False '這個(gè)是在打印的時(shí)候隱藏打印按鈕
Me.PrintForm1.Form = Me '設(shè)置要打印的窗體
Me.PrintForm1.Print() '調(diào)用打印窗體方法
Me.Button1.Visible = True '再把隱藏的打印按鈕顯示出來
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ī)對象坐標(biāo)的度量單位。
CurrentX、CurrentY 屬性，返回或設(shè)置下一次打印或繪圖方法的 水平 (CurrentX) 或垂直
(CurrentY) 坐標(biāo)。
ScaleMode 屬性，當(dāng)使用圖形方法或調(diào)整控件位置時(shí)，返回或設(shè)置一個(gè)值，該值指示對象坐標(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.net窗體打印字 vb單擊窗體怎樣打印出文字
當(dāng)前網(wǎng)址：http://fisionsoft.com.cn/article/ddoehsc.html
