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

創(chuàng)新互聯(lián)公司專注于企業(yè)全網(wǎng)整合營銷推廣、網(wǎng)站重做改版、肥東網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、H5響應(yīng)式網(wǎng)站、成都做商城網(wǎng)站、集團公司官網(wǎng)建設(shè)、外貿(mào)網(wǎng)站建設(shè)、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù),價格優(yōu)惠性價比高,為肥東等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
給你一個思路,首先,你要做的是讀取數(shù)據(jù)庫記錄,并把它們保存起來。當(dāng)然,可以是保存在控件上,也可以保存在變量里。呵呵,當(dāng)然也可以讀一條記錄,打印一次。不過這可能有點那樣……。
讀取出來以后,你還需要進(jìn)行數(shù)據(jù)的排版,比如你需要打印成什么樣式,紙張類型等。
做好了這些,你就可以通過幾種方式來打印數(shù)據(jù)了。
當(dāng)然,用控件打印是很簡單的,因為很多控件都支持print方法。比如窗體的print方法。
思考是學(xué)習(xí)的唯一途徑。
我?guī)湍惆炎詈笠徊糠值恼Z句順序調(diào)換一下。你試一試
sub button1_click() '---執(zhí)行打印
Dim pd As PrintDocument = New PrintDocument
pd.PrinterSettings = PrintDialog1.PrinterSettings
If _PrintDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
for i=0 to 1 '這樣可以兩次截圖
CaptureScreen() '--執(zhí)行前面自定義函數(shù)截圖
AddHandler pd.PrintPage, AddressOf Document_PrintPage
pd.Print()
Threading.Thread.sleep(100) ‘ 再加上一個間隔
next
end sub
比如:
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ù)值自己用尺量出,再換算。
一般情況下先用EXCEL做好一個樣表文件,設(shè)定好打印區(qū)域和樣式,需要填內(nèi)容的時候,先程序復(fù)制一個樣表文件,然后調(diào)用API打開表格填寫內(nèi)容并打印,如果想用API來實現(xiàn)調(diào)整模板和打印預(yù)覽,可能比較困難,而且很抽象,個人覺得費時費力效果還不一定理想
                文章名稱:vb.net編寫批量打印 vb編寫打印功能
                
                新聞來源:http://chinadenli.net/article28/hihdcp.html
            
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)站收錄、面包屑導(dǎo)航、外貿(mào)建站、外貿(mào)網(wǎng)站建設(shè)、App開發(fā)、網(wǎng)站改版
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)
