在VB中如何實(shí)現(xiàn)將數(shù)據(jù)庫中的數(shù)據(jù)打印出來

數(shù)據(jù)庫中的數(shù)據(jù)打印出來嗎？

成都創(chuàng)新互聯(lián)專注為客戶提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都網(wǎng)站制作、成都網(wǎng)站建設(shè)、外貿(mào)營銷網(wǎng)站建設(shè)、靈武網(wǎng)絡(luò)推廣、微信小程序、靈武網(wǎng)絡(luò)營銷、靈武企業(yè)策劃、靈武品牌公關(guān)、搜索引擎seo、人物專訪、企業(yè)宣傳片、企業(yè)代運(yùn)營等，從售前售中售后，我們都將竭誠為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；成都創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供靈武建站搭建服務(wù)，24小時(shí)服務(wù)熱線：18982081108，官方網(wǎng)址：www.cdcxhl.com

給你一個(gè)思路，首先，你要做的是讀取數(shù)據(jù)庫記錄，并把它們保存起來。當(dāng)然，可以是保存在控件上，也可以保存在變量里。呵呵，當(dāng)然也可以讀一條記錄，打印一次。不過這可能有點(diǎn)那樣……。

讀取出來以后，你還需要進(jìn)行數(shù)據(jù)的排版，比如你需要打印成什么樣式，紙張類型等。

做好了這些，你就可以通過幾種方式來打印數(shù)據(jù)了。

當(dāng)然，用控件打印是很簡單的，因?yàn)楹芏嗫丶贾С謕rint方法。比如窗體的print方法。

思考是學(xué)習(xí)的唯一途徑。

vb.net 打印功能

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

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

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

vb.net如何實(shí)現(xiàn)打印DataGridView1里的內(nèi)容，求源碼

使用 PrintDocument 控件的 Print() 方法可以打印指定對象中的內(nèi)容，參考代碼如下：

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

PrintDocument1.Print()

End?Sub

Private?Sub?PrintDocument1_PrintPage(ByVal?sender?As?System.Object,?ByVal?e?As?System.Drawing.Printing.PrintPageEventArgs)?Handles?PrintDocument1.PrintPage

Dim?bm?As?New?Bitmap(Me.DataGridView1.Width,?Me.DataGridView1.Height)

DataGridView1.DrawToBitmap(bm,?New?Rectangle(0,?0,?Me.DataGridView1.Width,?Me.DataGridView1.Height))

e.Graphics.DrawImage(bm,?0,?0)

End?Sub

VB.NET 打印問題。

先拖過來控件PrintDocument1，然后雙擊PrintDocument1，在它的PrintPage事件中加入代碼如下：

Private Sub PrintDocument1_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage

dim a as String

a="abcd"

Dim mypen As Pen = New Pen(Color.Blue, 2)

e.Graphics.DrawString(a, New Font("宋體", 20), New Pen(Color.Black, 1).Brush, 30, 30)

End Sub

調(diào)用下面語句可直接用默認(rèn)打印機(jī)打印出來：

PrintDocument1.Print()

vb.net Document_PrintPage打印多行文本

比如：

Private Sub Document_PrintPage(ByVal sender As System.Object, ByVal e As System.Drawing.Printing.PrintPageEventArgs)

e.Graphics.DrawString(str0, New Font("Arial", 14, FontStyle.Regular), Brushes.Black, 50, 50)

e.Graphics.DrawString(A1, New Font("Arial", 10, FontStyle.Regular), Brushes.Black,50, 100)

e.Graphics.DrawString(A2, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 300,100)

e.Graphics.DrawString(A3, New Font("Arial", 10, FontStyle.Regular), Brushes.Black, 800,100)

也就是分次用不同坐標(biāo)和不同的字體來打印各變量。畫線用：

e.Graphics.DrawLine(BlackPen, x1, y1, x2, y2)。

具體坐標(biāo)數(shù)值自己用尺量出，再換算。