－＝ Excel VBA实用技巧大全(848个实用技巧)＝－

fkqiuwin · 发表于 2009-1-9 11:06

多谢
实例有了,最好有该实例的文字说明

sumnong · 发表于 2009-1-9 11:38

支持！！！！！！！！！！

PBMLS · 发表于 2009-1-9 11:48

学习中

qhz · 发表于 2009-1-9 14:54

收藏！谢谢楼主提供。

19831010 · 发表于 2009-1-9 15:29

帮我看一下，这个宏为什么不能连续打印阿，谢谢

Set rr = CreateObject("Scripting.FileSystemObject")
Set r = rr.GetFolder("D:\代理账单\08.12.25-09.01.21")
For Each i In r.Files
Workbooks.Open Filename:=("D:\代理账单\08.12.25-09.01.21\" + i.Name + "")
Sheets("NSS 结算表").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
      :=False
Sheets("pp").Select
   If Range("A2") <> blank Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
      :=False
   End If
Sheets("CHB").Select
   If Range("A2") <> blank Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
      :=False
   End If
Sheets("CHB (FCR)").Select
   If Range("A2") <> blank Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
      :=False
   End If
Sheets("FCR").Select
   If Range("A2") <> blank Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
      :=False
   End If
Sheets("FC").Select
   If Range("A2") <> blank Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
      :=False
   End If
ActiveWindow.Close savechanges:=True
Next

'
End Sub

szt5600 · 发表于 2009-1-12 13:48

太棒了，thanks

dagang13 · 发表于 2009-1-12 14:27

下之前先顶一下

nowarmy · 发表于 2009-1-12 15:47

辛苦版主了。

httpsu · 发表于 2009-1-13 12:45

感谢楼主!!

久久久的坚持 · 发表于 2009-1-13 16:48

感谢楼主！

		自动登录	找回密码
密码			免费注册

[推荐] －＝ Excel VBA实用技巧大全(848个实用技巧)＝－

求助

感谢楼主!!