VB.NET程序如何實現表格填寫和打印

一般情況下先用EXCEL做好一個樣表文件，設定好打印區域和樣式，需要填內容的時候，先程序復制一個樣表文件，然后調用API打開表格填寫內容并打印，如果想用API來實現調整模板和打印預覽，可能比較困難，而且很抽象，個人覺得費時費力效果還不一定理想

東興網站建設公司成都創新互聯,東興網站設計制作，有大型網站制作公司豐富經驗。已為東興近1000家提供企業網站建設服務。企業網站搭建\成都外貿網站建設要多少錢，請找那個售后服務好的東興做網站的公司定做！

高分求解vb.net 打印的問題

報表打印應該也能實現，但是我覺得你這個用文本打印更簡單，將數據輸出到txt文件，結果用RichTextBox顯示，但是需要簡單的排版，調用打印機打印RichTextBox即可的

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

PrintLine(1, TAB(60), "準考證" )

PrintLine(1)

PrintLine(1, "姓名:" xingming Space(3) "準考證號：" cel(1) Space(3) cel(2) Space(3) cel(3))

但是TAB()排版比較規整

打印代碼類似如下：

PrintDialog1.Document = PrintDocument1

PrintDocument1.DocumentName = "準考證"

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 '頁面設置

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

If PrintDialog1.PrinterSettings.IsValid = True Then

PrintDocument1.Print()

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

Else

MsgBox("打印失敗！打印機不可用。" vbCrLf "Print failed! The printer is not valid.", , "Print hint(打印提示)")

End If

Else

Exit Sub

End If

End If

vb.net 打印功能

可以把數據導出到EXCEL，然后使用EXCEL進一步處理后使用。

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

先設置報表格式，打印時向報表傳遞數據就可以了。

如何用VB實現表格打印功能？

VB下數據報表打印輸出方法有多種，一是通過自己的設計和編程完成報表打印輸出。二是通過MS OFFICE實現報表打印輸出。三是應用數據報表設計器的報表打印輸出。本人經常使用第一種方法，它具有根據需要靈活應用的特點，但需編寫程序。下附代碼，第一段代碼定義基本變量，第二段代碼定義打印函數，第三段代碼是具體打印代碼，含數據轉換。第四段代碼是窗體加載代碼，具體連接數據庫和打印代碼根據你所涉及的數據要求進行修改。

Option Explicit

Private n As Integer

Private m As Integer

Private zh_dm(10) As Double

Private dy_dm(3000, 10) As Variant

Private zsl As Integer

Private y As Integer

Private x As Integer

Private i As Integer

Private k As Integer

Private p As Integer

Private pa As Integer

Private j As Integer

Private txt As String

Private fnt As Integer

Private dd As Variant

Public Function prnt(x As Variant, y As Variant, fnt As Variant, txt0 As Variant)

Printer.CurrentX = x

Printer.CurrentY = y

Printer.FontSize = fnt

Printer.Print txt0

End Function

Private Sub cmdPrint_Click()

Adodc1.Recordset.MoveFirst

For i = 0 To zsl - 1

For j = 0 To 7

dy_dm(i, j) = Adodc1.Recordset(j)

Next j

Adodc1.Recordset.MoveNext

Next i

'確定頁數

k = Int(zsl / 80)'80為每頁行數

If k - zsl / 80 0 Then

k = k + 1

End If

fnt = 8

For p = 0 To k - 1

pa = p + 1

y = 300

x = 4500

txt = "機物料庫存"

dd = prnt(x, y, fnt, txt)

x = 8500

txt = "第" p + 1 "頁"

dd = prnt(x, y, fnt, txt)

y = 500

x = 600

txt = "備件代碼"

dd = prnt(x, y, fnt, txt)

x = 1500

txt = "備件名稱"

dd = prnt(x, y, fnt, txt)

x = 3500

txt = "備件規格"

dd = prnt(x, y, fnt, txt)

x = 5500

txt = "進口計算機號"

dd = prnt(x, y, fnt, txt)

x = 7500

txt = "最低儲備量"

dd = prnt(x, y, fnt, txt)

x = 9000

txt = "庫存量"

dd = prnt(x, y, fnt, txt)

For i = 0 + p * 80 To 79 + p * 80

y = 700 + 180 * (i - p * 80)

x = 600

txt = dy_dm(i, 1)

dd = prnt(x, y, fnt, txt)

x = 1500

txt = dy_dm(i, 2)

dd = prnt(x, y, fnt, txt)

x = 3500

txt = dy_dm(i, 3)

dd = prnt(x, y, fnt, txt)

x = 5500

txt = dy_dm(i, 4)

dd = prnt(x, y, fnt, txt)

x = 7500

txt = dy_dm(i, 5)

dd = prnt(x, y, fnt, txt)

x = 9000

txt = dy_dm(i, 6)

dd = prnt(x, y, fnt, txt)

If Int(i / 10) - i / 10 = 0 Then

Printer.Line (500, 695 + (i - p * 80) * 180)-(10000, 695 + (i - p * 80) * 180)

End If

Next i

If zsl - p * 80 80 Then

Printer.Line (500, 695 + 180 * 80)-(10000, 695 + 180 * 80)

Printer.NewPage

End If

Next p

Printer.EndDoc ' 打印完成。

Cls

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jwl_dbf"

Adodc1.RecordSource = "select cs.js_dm,cs.備件代碼,cs.備件名稱,cs.備件規格,cs.進口計算機號,cs.最低庫存量,sl.結存數量,sl.結存金額,sl.結存單價,sl.類別代碼 from JWCK_BM as cs,jwl_jiec as sl" _

" where cs.備件代碼 = sl.備件代碼" " and cs.備件代碼" "''" " order by sl.類別代碼,sl.備件代碼"

Adodc1.Refresh

DataGrid1.Refresh

zsl = Adodc1.Recordset.RecordCount

Adodc3.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=jwl_dbf"

Adodc3.RecordSource = "select sum(結存金額) as hj from jwl_jiec"

Adodc3.Refresh

End Sub

以上供參考。其它請參考西安交通大學出版社出版的“VISUAL BASIC 6.0 高級編程技巧-ADO數據訪問篇“

如何用VB.NET導入和導出EXCEL表，打印預覽？？？

NET中數據庫數據導入Excel并打印摘要：眾所周知，WEB上的打印是比較困難的，常見的WEB上打印的方法大概 ... type=button value=打印預覽onclick=document.all.WebBrowser.ExecWB(7,1) ... 3、將數據庫的數據或要打印的內容導出到Excel，Word中去打印

我的vb.net中沒有CrystalReport控件怎么打印報表啊?

不會吧，在vb.net工程中，選擇新項目的追加，在實用程序的選項中，可看到有CrystalReport的選項。

它和VB不同，VB用的是控件。

你最好，上網或去書店看一看有關vb.net的報表設計。

本文名稱：vb.net直接打印報表 vb打印excel
本文來源：http://m.newbst.com/article32/doojgpc.html

成都網站建設公司_創新互聯，為您提供移動網站建設、Google、用戶體驗、云服務器、搜索引擎優化、網站維護

廣告

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