vb.net窗體打印,vb單擊窗體怎樣打印出文字

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

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

目前成都創(chuàng)新互聯(lián)公司已為上千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)絡(luò)空間、網(wǎng)站運(yùn)營(yíng)、企業(yè)網(wǎng)站設(shè)計(jì)、東烏珠穆沁網(wǎng)站維護(hù)等服務(wù)，公司將堅(jiān)持客戶(hù)導(dǎo)向、應(yīng)用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶(hù)和合作伙伴齊心協(xié)力一起成長(zhǎng)，共同發(fā)展。

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類(lèi)型的對(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.net 怎么實(shí)現(xiàn)發(fā)票打印窗體，按窗體上的格式打印出來(lái)，用的是access數(shù)據(jù)庫(kù)，請(qǐng)高手幫忙！

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

在【對(duì)象資源管理器】窗口中展開(kāi)服務(wù)器，然后選擇【數(shù)據(jù)庫(kù)】節(jié)點(diǎn)

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

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

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

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

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

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

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

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

vb.net 怎么用print打印字符串到窗口？

vb的函數(shù)已經(jīng)不適合vb.net了，想學(xué)vb，得裝個(gè)vb6。用vb.net的話(huà)，使用Debug.WriteLine("hello world")，可以在輸出窗口查看到這個(gè)信息，這是最簡(jiǎn)單的，想直接寫(xiě)窗體就得多寫(xiě)幾行代碼了，具體搜索一下

vb.net 打印功能

可以把數(shù)據(jù)導(dǎo)出到EXCEL，然后使用EXCEL進(jìn)一步處理后使用。

也可以做成vb報(bào)表(VB自帶有)。

先設(shè)置報(bào)表格式，打印時(shí)向報(bào)表傳遞數(shù)據(jù)就可以了。

如何用VB.NET打印當(dāng)前窗體？？

讓你的窗體獲得焦點(diǎn)

按住ALT 再按 PRINT SCREEN SYSRQ

保存成圖片 打印圖片

高分求解vb.net 打印的問(wèn)題

報(bào)表打印應(yīng)該也能實(shí)現(xiàn)，但是我覺(jué)得你這個(gè)用文本打印更簡(jiǎn)單，將數(shù)據(jù)輸出到txt文件，結(jié)果用RichTextBox顯示，但是需要簡(jiǎn)單的排版，調(diào)用打印機(jī)打印RichTextBox即可的

排版用tab（）、space（）、vbcrlf或PrintLine(1)換行，代碼類(lèi)似如下樣式

PrintLine(1, TAB(60), "準(zhǔn)考證" )

PrintLine(1)

PrintLine(1, "姓名:" xingming Space(3) "準(zhǔn)考證號(hào)：" cel(1) Space(3) cel(2) Space(3) cel(3))

但是TAB()排版比較規(guī)整

打印代碼類(lèi)似如下：

PrintDialog1.Document = PrintDocument1

PrintDocument1.DocumentName = "準(zhǔn)考證"

PrintDialog1.AllowSomePages = False

PrintDialog1.ShowHelp = False

PrintDialog1.ShowNetwork = False

PrintDialog1.AllowSelection = False

PrintDialog1.AllowPrintToFile = False

MySReader = New StringReader(RichTextBox1.Text)

stringToPrint = MySReader.ReadToEnd()

PageSetupDialog1.Document = PrintDocument1

PageSetupDialog1.PageSettings.Margins.Bottom = 50

PageSetupDialog1.PageSettings.Margins.Top = 50

PageSetupDialog1.PageSettings.Margins.Left = 50

PageSetupDialog1.PageSettings.Margins.Right = 50

If PageSetupDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

PrintDocument1.DefaultPageSettings = PageSetupDialog1.PageSettings '頁(yè)面設(shè)置

If PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

If PrintDialog1.PrinterSettings.IsValid = True Then

PrintDocument1.Print()

MsgBox("打印完成！" vbCrLf "Print completed!", , "Print hint(打印提示)")

Else

MsgBox("打印失?。〈蛴C(jī)不可用。" vbCrLf "Print failed! The printer is not valid.", , "Print hint(打印提示)")

End If

Else

Exit Sub

End If

End If

新聞標(biāo)題：vb.net窗體打印,vb單擊窗體怎樣打印出文字
分享路徑：http://muchs.cn/article6/phijog.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供標(biāo)簽優(yōu)化、做網(wǎng)站、網(wǎng)站制作、品牌網(wǎng)站設(shè)計(jì)、響應(yīng)式網(wǎng)站、企業(yè)建站

廣告

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