新聞中心
vb點虐 打印問題
可以將打印機(jī)默認(rèn)打印設(shè)置改為黑白打印,如果打印對象是RGB配色,打印機(jī)驅(qū)動轉(zhuǎn)換為CMYK顏色時,黑色都是由彩色墨水組成的
創(chuàng)新互聯(lián)專注于企業(yè)成都全網(wǎng)營銷推廣、網(wǎng)站重做改版、保定網(wǎng)站定制設(shè)計、自適應(yīng)品牌網(wǎng)站建設(shè)、H5高端網(wǎng)站建設(shè)、電子商務(wù)商城網(wǎng)站建設(shè)、集團(tuán)公司官網(wǎng)建設(shè)、外貿(mào)網(wǎng)站制作、高端網(wǎng)站制作、響應(yīng)式網(wǎng)頁設(shè)計等建站業(yè)務(wù),價格優(yōu)惠性價比高,為保定等各大城市提供網(wǎng)站開發(fā)制作服務(wù)。
2.可以試一下圖片從一個標(biāo)準(zhǔn)灰度圖片格式化而來,這樣圖片自身只有黑白色,也許可以
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點虐 怎么從文本文檔中讀取一行數(shù)據(jù),將文本輸出到控制臺?
以下示例一次從文件中讀取一行,然后將每行文本打印到控制臺。
Sub ReadTextLinesFromFile()
Dim file As New System.IO.StreamReader("c:test.txt")
Dim oneLine As String
oneLine = file.ReadLine()
While (oneLine "")
Console.WriteLine(oneLine)
oneLine = file.ReadLine()
End While
file.Close()
End Sub
標(biāo)題名稱:vb點虐 控制臺打印 vb打印代碼
地址分享:http://ef60e0e.cn/article/ddjopse.html