文本文件的打印：怎么实现？

[imur]

在vb里，怎样将c:\a.txt文件打印出来？

谢谢先！

[flc]

关注
帮你UP

[SoHo_Andy]

测试通过
打印文本文件
Private Sub command1_Click()
Dim filenum As Integer
Dim fileContents As String
Dim fileInfo() As String
Dim i As Integer

filenum = FreeFile
Open "d:\aa.txt" For Binary As #filenum
fileContents = Space(LOF(filenum))
Get #filenum, , fileContents
Close filenum
fileInfo = Split(fileContents, vbCrLf)

Dim pp As Printer
For i = 0 To UBound(fileInfo) - 1
Printer.Print fileInfo(i)
Next
Printer.EndDoc
End Sub