VB上如何打印窗體指定位置的內容？

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

創(chuàng)新互聯(lián)公司2013年成立，先為谷城等服務建站，谷城等地企業(yè)，進行企業(yè)商務咨詢服務。為谷城企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務解決您的所有建站問題。

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

(CurrentY) 坐標。

ScaleMode 屬性，當使用圖形方法或調整控件位置時，返回或設置一個值，該值指示對象坐標的度量單位。

具體實現(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打印當前窗體？？

讓你的窗體獲得焦點

按住ALT 再按 PRINT SCREEN SYSRQ

保存成圖片 打印圖片

vb.net 怎么實現(xiàn)發(fā)票打印窗體，按窗體上的格式打印出來，用的是access數(shù)據(jù)庫，請高手幫忙！

選擇開始菜單中→程序→【Management SQL Server 2008】→【SQL Server Management Studio】命令，打開【SQL Server Management Studio】窗口，并使用Windows或 SQL Server身份驗證建立連接。

在【對象資源管理器】窗口中展開服務器，然后選擇【數(shù)據(jù)庫】節(jié)點

右鍵單擊【數(shù)據(jù)庫】節(jié)點，從彈出來的快捷菜單中選擇【新建數(shù)據(jù)庫】命令。

執(zhí)行上述操作后，會彈出【新建數(shù)據(jù)庫】對話框。在對話框、左側有3個選項，分別是【常規(guī)】、【選項】和【文件組】。完成這三個選項中的設置會后，就完成了數(shù)據(jù)庫的創(chuàng)建工作，

在【數(shù)據(jù)庫名稱】文本框中輸入要新建數(shù)據(jù)庫的名稱。例如，這里以“新建的數(shù)據(jù)庫”。

在【所有者】文本框中輸入新建數(shù)據(jù)庫的所有者，如sa。根據(jù)數(shù)據(jù)庫的使用情況，選擇啟用或者禁用【使用全文索引】復選框。

在【數(shù)據(jù)庫文件】列表中包括兩行，一行是數(shù)據(jù)庫文件，而另一行是日記文件。通過單擊下面的【添加】、【刪除】按鈕添加或刪除數(shù)據(jù)庫文件。

切換到【選項頁】、在這里可以設置數(shù)據(jù)庫的排序規(guī)則、恢復模式、兼容級別和其他屬性。

切換到【文件組】頁，在這里可以添加或刪除文件組。

完成以上操作后，單擊【確定】按鈕關閉【新建數(shù)據(jù)庫】對話框。至此“新建的數(shù)據(jù)”數(shù)據(jù)庫創(chuàng)建成功。新建的數(shù)據(jù)庫可以再【對象資源管理器】窗口看到。

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

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

Imports System.Drawing.Printing

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

'先設置打印頁面的頁邊距

With Me.PrintForm1

Dim myMargins As New Margins '頁邊距設置信息是存放在這個Margins類型的對象中的

With myMargins '分別設置上下左右邊距,

.Left = 12

.Right = 12

.Top = 12

.Bottom = 12

End With

.PrinterSettings.DefaultPageSettings.Margins = myMargins '把myMargins對象賦給PrintForm1的設置屬性

End With

Me.Button1.Visible = False '這個是在打印的時候隱藏打印按鈕

Me.PrintForm1.Form = Me '設置要打印的窗體

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

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

End Sub

標題名稱：vbnet打印窗體,vb在窗體上打印
標題路徑：http://chinadenli.net/article31/dseppsd.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供定制網(wǎng)站、網(wǎng)站導航、關鍵詞優(yōu)化、網(wǎng)站改版、域名注冊、網(wǎng)站內鏈

廣告

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