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

fkqiuwin

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

sumnong

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

PBMLS

学习中

qhz

收藏！谢谢楼主提供。

19831010

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


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

太棒了，thanks

dagang13

下之前 先顶一下

nowarmy

辛苦版主了。

httpsu

感谢楼主!!

久久久的坚持

感谢楼主！