新聞中心
VB.NET程序如何實現(xiàn)表格填寫和打印
一般情況下先用EXCEL做好一個樣表文件,設(shè)定好打印區(qū)域和樣式,需要填內(nèi)容的時候,先程序復(fù)制一個樣表文件,然后調(diào)用API打開表格填寫內(nèi)容并打印,如果想用API來實現(xiàn)調(diào)整模板和打印預(yù)覽,可能比較困難,而且很抽象,個人覺得費時費力效果還不一定理想
公司主營業(yè)務(wù):成都網(wǎng)站制作、成都網(wǎng)站設(shè)計、移動網(wǎng)站開發(fā)等業(yè)務(wù)。幫助企業(yè)客戶真正實現(xiàn)互聯(lián)網(wǎng)宣傳,提高企業(yè)的競爭能力。創(chuàng)新互聯(lián)建站是一支青春激揚、勤奮敬業(yè)、活力青春激揚、勤奮敬業(yè)、活力澎湃、和諧高效的團隊。公司秉承以“開放、自由、嚴謹、自律”為核心的企業(yè)文化,感謝他們對我們的高要求,感謝他們從不同領(lǐng)域給我們帶來的挑戰(zhàn),讓我們激情的團隊有機會用頭腦與智慧不斷的給客戶帶來驚喜。創(chuàng)新互聯(lián)建站推出綏陽免費做網(wǎng)站回饋大家。
VB.NET怎么實現(xiàn)打印功能啊 嗚嗚(
利用 printdocument控件
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
PrintDocument1.Print()
End Sub
Private Sub PrintDocument1_PrintPage(sender As System.Object, e As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage
Dim stringFont As New Font("Arial", 16)
Dim rectDraw As New RectangleF(e.MarginBounds.Left, e.MarginBounds.Top, e.MarginBounds.Width, e.MarginBounds.Height)
Dim strFormat As New StringFormat
Dim s As String
s = "print word" '打印的內(nèi)容
e.Graphics.DrawString(s, stringFont, Brushes.AliceBlue, rectDraw, strFormat)
End Sub
vb.net 打印功能
可以把數(shù)據(jù)導(dǎo)出到EXCEL,然后使用EXCEL進一步處理后使用。
也可以做成vb報表(VB自帶有)。
先設(shè)置報表格式,打印時向報表傳遞數(shù)據(jù)就可以了。
vb.net如何實現(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如何打印 vb打印語句
文章分享:http://www.ef60e0e.cn/article/dosceji.html