您所在位置：主题：谢谢！！帮帮忙啦！！vb中如何实现打印功能
丁丁宝贝
[专家分：0] 发布于 2005-08-18 12:47:00
[em20][em18][em10]
在vb中如何用replace函数实现打印功能。我写的代码是
Private Sub printWeb1()
Dim FS As Scripting.FileSystemObject
Dim TS As Scripting.TextStream
Dim tmpTXT
Set FS = New Scripting.FileSystemObject
Set TS = FS.OpenTextFile(inpath, ForReading, False)
Dim tmpTXT
tmpTXT = TS.ReadAll
For I = 3 To 10
If Check1(I).Value = True Then tmpTXT = Replace(tmpTXT, "{Check1(" & I & ")}", Check1(I).Caption)
Next
End sub
然后我又设计了一个网页模板来实现打印，可没能实现。有那位高手赐教赐教，不慎感激！！...........
在vb中如何用replace函数实现打印功能。我写的代码是
Private Sub printWeb1()
Dim FS As Scripting.FileSystemObject
Dim TS As Scripting.TextStream
Dim tmpTXT
Set FS = New Scripting.FileSystemObject
Set TS = FS.OpenTextFile(inpath, ForReading, False)
Dim tmpTXT
tmpTXT = TS.ReadAll
For I = 3 To 10
If Check1(I).Value = True Then tmpTXT = Replace(tmpTXT, "{Check1(" & I & ")}", Check1(I).Caption)
Next
End sub
然后我又设计了一个网页模板来实现打印，可没能实现。有那位高手赐教赐教，不慎感激！！...........