文本文件的打印:怎么实现?

imur 2003-12-17 03:47:26
在vb里,怎样将c:\a.txt文件打印出来?

谢谢先!
...全文
45 点赞 收藏 2
写回复
2 条回复
切换为时间正序
当前发帖距今超过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
回复
flc 2003-12-17
关注
帮你UP
回复
发动态
发帖子
VB基础类
创建于2007-09-28

7453

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告