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

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

專注于為中小企業(yè)提供成都網(wǎng)站建設(shè)、網(wǎng)站設(shè)計服務(wù),電腦端+手機端+微信端的三站合一,更高效的管理,為中小企業(yè)淮陽免費做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了超過千家企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實現(xiàn)規(guī)模擴充和轉(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è)置信息是存放在這個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 '這個是在打印的時候隱藏打印按鈕

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

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

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

End Sub

vb中怎樣在窗體打字

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

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

代碼實例：

Private Sub Form_Load()

Label1.FontSize = 22

Label1.ForeColor = vbWhite

Label1.BackStyle = 0

End Sub

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

VB可以用CurrentX、CurrentY 屬性實現(xiàn)定位打印。用ScaleMode 屬性確定打印機對象坐標的度量單位。

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

(CurrentY) 坐標。

ScaleMode 屬性，當(dāng)使用圖形方法或調(dià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