测试通过
打印文本文件
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