想用VB打印制定文件夹中的文档

小木233 发布于 2016-07-27 15:23， 2156 次点击

Sub A()
FName = Dir("C:\Documents and Settings\ld\桌面\123*.doc")
Do While FName <> ""
Documents.Open FileName:="C:\Documents and Settings\ld\桌面\123" & FName
ActiveWindow.Close Savechanges:=False
FName = Dir
Loop
End Sub

为什么运行不了呢？也没有提示任何错误。。。
求指导，我是新人小白

5 回复

chen35232016-07-27 20:27

建议到［VB论坛］左下角关健字输入“word”,点击“本版搜索”，可能有帮助。

xiangyue05102016-07-27 20:28

没有弄过打印。
可以参考这个网页http://www.

小木2332016-07-28 15:55

回复 2楼 chen3523

找过了，，没看到适合我的情况的

小木2332016-07-28 15:57

回复 3楼 xiangyue0510

谢谢我得研究研究
就是本人初涉VB 实力懵

xiangyue05102016-07-28 16:04

以下是引用小木233在2016-7-28 15:57:30的发言：

谢谢我得研究研究
就是本人初涉VB 实力懵

慢慢来吧。这个虽然不是很难，但是也是需要积累的过程。