在VB中如何實現將數據庫中的數據打印出來

數據庫中的數據打印出來嗎？

創新互聯公司專注于企業全網整合營銷推廣、網站重做改版、肥東網站定制設計、自適應品牌網站建設、H5響應式網站、成都做商城網站、集團公司官網建設、外貿網站建設、高端網站制作、響應式網頁設計等建站業務，價格優惠性價比高，為肥東等各大城市提供網站開發制作服務。

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

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

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

當然，用控件打印是很簡單的，因為很多控件都支持print方法。比如窗體的print方法。

思考是學習的唯一途徑。

vb.net Document_PrintPag 打印

我幫你把最后一部分的語句順序調換一下。你試一試

sub button1_click() '---執行打印

Dim pd As PrintDocument = New PrintDocument

pd.PrinterSettings = PrintDialog1.PrinterSettings

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

for i=0 to 1 '這樣可以兩次截圖

CaptureScreen() '--執行前面自定義函數截圖

AddHandler pd.PrintPage, AddressOf Document_PrintPage

pd.Print()

Threading.Thread.sleep(100) ‘ 再加上一個間隔

next

end sub

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)

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

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

具體坐標數值自己用尺量出，再換算。

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

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