Public Function OpenTextFile(Filename As String) As String
On Error Resume Next
If Dir(Filename) = "" Then Exit Function
Close #1
Dim a$, b$
Open Filename For Input As #1
Line Input #1, b$
Do While Not EOF(1)
Line Input #1, a$
b$ = b$ & Chr(13) & Chr(10) & a$
Loop
Close #1
OpenTextFile = b$
End Function''''''''''''''''''''''''''''
Printer.Print OpenTextFile("c:\ddd.text")
Printer.EndDoc
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货