VB中用什么代碼打印文件啊,語句怎么寫啊,

VB中的幾種打印方法

讓客戶滿意是我們工作的目標，不斷超越客戶的期望值來自于我們對這個行業(yè)的熱愛。我們立志把好的技術(shù)通過有效、簡單的方式提供給客戶，將通過不懈努力成為客戶在信息化領(lǐng)域值得信任、有價值的長期合作伙伴，公司提供的服務(wù)項目有：域名注冊、虛擬主機、營銷軟件、網(wǎng)站建設(shè)、平陰網(wǎng)站維護、網(wǎng)站推廣。

1. 采用Visual Basic 提供的簡單打印函數(shù)PrintForm 方法。應(yīng)用程序窗體的PrintForm 方法時，Visual Basic 把窗體的位圖送到當前打印機。該方法的優(yōu)點在于它幾乎不需要任何編程，但也有很大缺陷。最為突出的是當?shù)头直媛蕡D形在高分辨率打印機上打印時，其結(jié)果令人無法滿意，會產(chǎn)生鋸齒。下面代碼將在打印機上打印窗體。

Private Sub Command1_Click() ' 用PrintForm 打印

Me.PrintForm ' 打印窗體的可見區(qū)域

End Sub

2. 用Printer 對象進行高分辨率輸出。但要想產(chǎn)生復(fù)雜的打印輸出，編程較為煩瑣。Printer 對象代表系統(tǒng)缺省的打印機，Printer 對象支持許多由窗體和圖形框所支持的屬性和方法，三種對象都有畫線和畫方框。應(yīng)用程序可用以下代碼在Printer 對象上畫出一平方英寸的方框。它離左上角二英寸。注意：打印機以twips 來測量距離。每英寸有1440 個twips。

Printer.Line(2 ＊1440,2 ＊1440) －Step(1440,1440), ,B

打印機、從窗體和圖形框都有Circle、PaintPicture、Print、Pset、TextHeight、TextWidth 方法。使用這些方法，應(yīng)用程序可以為打印機生成高分辨率輸出。

打印文本直接用Print 方法，見下列代碼：

Printer.Print "Hello,China ComputerWorld!" ' 打印字符串

Printer 對象還有一些窗體和圖形框都沒有方法：

NewPage 告訴打印機，程序?qū)Ξ斍拜敵鲰摰陌l(fā)送已經(jīng)結(jié)束，Printer 對象應(yīng)開始新的一頁。

EndDoc 告訴VB，程序創(chuàng)建文檔結(jié)束，VB 應(yīng)將它發(fā)送到物理打印機上打印。

KillDoc 取消當前打印作業(yè)。應(yīng)用程序應(yīng)該終止由EndDoc 和KillDoc 所設(shè)定的每個打印作業(yè)。

Zoom 屬性用于定義打印輸出的縮放因子。

Copies 屬性用于定義打印的副本數(shù)目。

3. 采用直接將數(shù)據(jù)傳送打印機的方法進行打印輸出。有兩種方法將數(shù)據(jù)送往打印機。第一種是用Print ＃方法，就像將數(shù)據(jù)寫入一個文件一樣。另一種方法寫端口，但不是送文本，而是送特定的PCL 語言，PCL 表示打印控制語言，它是一種特殊語言，用轉(zhuǎn)義代碼來控制打印機的具體動作。因為此方法太煩瑣，本文不做太多介紹。

4. 如果你在編程時用到了RichTextBox 控制，那么你可以使用該控件的SelPrint 方法來打印，使用非常簡單。下面一段代碼即用RichTextBox 控件的SelPrint 方法來完成打印。

Private Sub Command3_Click() 'SelPrint 方法

CommonDialog1.Flags=cdlPDReturnDC ＋cdlPDNoPageNums

If RTF1.SelLength = 0 Then

'RTF1 為窗體的RichTextBox 控制

CommonDialog1.Flags = CommonDialog1.Flags

＋cdlPDAllPages

Else

CommonDialog1.Flags = CommonDialog1.Flags ＋

cdlPDSelection

End If

CommonDialog1.CancelError = True

On Error Resume Next

CommonDialog1.ShowPrinter

If Err.Number = cdlCancel Then Exit Sub

If Err.Number 0 Then

Beep

MsgBox "Error printing file."

＆vbCrLf ＋Err.Description, vbOKOnly ＋vbExclamation,

“Printing Error!"

Exit Sub

End If

Printer.Print ""

RTF1.SelPrint CommonDialog1.hDC

' 打印RTF1 控件的可見區(qū)域

End Sub

上面代碼先進行打進設(shè)置，再進行打印。如果不需要設(shè)置，采用下面代碼更為簡單:

RTF1.SelPrint Printer.hDC

' 打印RTF1 控件的可見區(qū)域

5. 可以在VB 中調(diào)用Word 97 提供的OLE 自動化服務(wù)，利用Word 97 強大的打印功能來完成VB 打印，筆者認為這是最令人滿意的方法。下面代碼說明VB 如何與Word 集成。

Private Sub Command4_Click() ' 調(diào)用Word 打印

Dim objWord As Object

Const CLASSOBJECT = "Word.Application"

On Error GoTo objError

Set objWord = CreateObject(CLASSOBJECT)

objWord.Visible = True

objWord.Documents.Add

With objWord

.ActiveDocument.Paragraphs.Last.Range.Bold = False

.ActiveDocument.Paragraphs.Last.Range.Font.Size =20

.ActiveDocument.Paragraphs.Last.Range.Font.Name =

"黑體"

.ActiveDocument.Paragraphs.Last.Range.Font.ColorIndex==4

.ActiveDocument.Paragraphs.Last.Range.Text =

"我是計算機世界讀者!"

End With

Clipboard.Clear

Clipboard.SetText

"通過剪切板向WORD 傳送數(shù)據(jù)!"

objWord.Selection.Paste

objWord.PrintPreview = True ' 預(yù)覽方式

'objWord.PrintOut' 執(zhí)行打印

'objWord.Quit' 退出Word

Exit Sub

objError:

If Err 429 Then

MsgBox Str ＄(Err) ＆Error ＄

Set objWord = Nothing

' 不能創(chuàng)建Word 對象則退出

Exit Sub

Else

Resume Next

End If

End Sub

6. 用VC 編制DLL 模塊完成打印。在VB 中調(diào)用該模塊，用混合編程方法進行打印輸出。因涉及VC 編程比較煩瑣，這里不再討論。

VB打印的代碼如下圖

用VB可以直接使用對象 Printer 進行數(shù)據(jù)及圖片的打印。

如：

'***初始化打印機

Printer.ScaleMode = 1

Printer.FontName = "仿宋_GB2312"

Printer.FontSize = 8

Printer.FontBold = False

'設(shè)置打印區(qū)域,四個 參數(shù)分別是打印區(qū)域的左上角及右下角坐標

' 這里以 A4 打印紙張大小為例，邊框距各為2cm.

PrtLeftx=567*2

PrtLefty=567*2.0

PrtRightx=567*(21-2)

PrtLefty=567*(29.5-2)

'**打印線條

Printer.DrawWidth = 2

Printer.Line (PrtLeftx, PrtLefty)-(PrtRightx, PrtLefty)

Printer.DrawWidth = 1

' 打印字符串

Printer.Print "中國 China"

要打印窗體中TextBox 中的內(nèi)容，將其賦給變量或直接打印都可以。

VB 打印預(yù)覽

你在窗體中放一個圖片框（比如Picture1），然后你把上述代碼中所有的Printer都換成Picture1（但最后一行即Printer.EndDoc要刪掉），效果就是打印預(yù)覽了。

當前名稱：net.vb打印預(yù)覽代碼,vb 打印預(yù)覽
網(wǎng)站地址：http://chinadenli.net/article43/dsgdses.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供手機網(wǎng)站建設(shè)、品牌網(wǎng)站建設(shè)、虛擬主機、外貿(mào)網(wǎng)站建設(shè)、網(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)