7453
社区成员
- 主页
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
SoHo_Andy 2003-12-17
测试通过
打印文本文件
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
打印文本文件
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
flc 2003-12-17
关注
帮你UP
帮你UP
