[已解决]各位大神进来看看 急用啊 一键打印文件夹的VBA出问题了

5173735

这个一键打印文件夹的VBA不知道为什么在XP系统下可以正常运行，但是在WIN7下就不能正常工作
  功能主要是用于打印指定的文件夹内所有版本的指定的工作簿内所以的工作表
批量打印_20130616151142.zip (14.56 KB, 下载次数: 16)

2013-7-20 12:55 上传

点击文件名下载附件

或者哪位大神帮我重新做一个一样功能的吧·

最佳答案

月排行榜 / 总排行榜

爱疯

2013-7-22 22:06

直接先按原文提示搜下百度：方法‘printout'作用于对象 sheets 时失败
比如这个和你的问题很像：http://zhidao.baidu.com/question/381306007.html
我觉得，可能也是因为其中有的工作簿或工作表，设置过隐藏了。因此加上蓝色这句看看？

Sub outs()
Dim files, printhit, printfile, opsheets
files = Application.WorksheetFunction.Max(Range("A:A"))
For i = 1 To files
    If Cells(i + 3, 3) <> 0 Then
        printhit = Cells(i + 3, 3)
        printfile = Cells(i + 3, 2)
        Workbooks.Open Filename:=Cells(1, 2) & "\" & Cells(i + 3, 2)
        opsheets = Application.Worksheets.Count '获取工作薄中有多少个表
        For x = 1 To opsheets
            For j = 1 To printhit
                Sheets(x).Visible = xlSheetVisible
                Sheets(x).Activate
                ActiveWindow.SelectedSheets.PrintOut Copies:=1
            Next
        Next
        Workbooks(printfile).Close SaveChanges:=False
    End If
Next
End Sub
(, 下载次数: 3)

上传

点击文件名下载附件

跳转到最佳答案楼层

5173735

怎么没有大神光临啊

5173735

真的无解吗？  我用的是WIN7 64位旗舰版系统  EXCEL是2010版本   打印的时候  ActiveWindow.SelectedSheets.printout Copies:=1  提示错误  求修正  
结果是  只能打印出第一个工作薄的第一个工作表出来

爱疯

5173735 发表于 2013-7-21 11:08
真的无解吗？  我用的是WIN7 64位旗舰版系统  EXCEL是2010版本   打印的时候  ActiveWindow.SelectedSheets ...

ActiveWindow.SelectedSheets.printout Copies:=1
替换为
ActiveSheet.PrintOut


试试看行不行

上清宫主

代码没问题，从系统上找找问题看
有Copies:=*参数， 还用循环干啥呢

爱疯

32位win7+10，没报错。

发一个报错截图看下？

上清宫主

那个循环整成一行Sheets(x).printout Copies:=printhit

5173735

爱疯 发表于 2013-7-21 11:25
ActiveWindow.SelectedSheets.printout Copies:=1
替换为
ActiveSheet.PrintOut

还是不行

5173735

上清宫主 发表于 2013-7-21 11:49
那个循环整成一行Sheets(x).printout Copies:=printhit

还是不行

5173735

爱疯 发表于 2013-7-21 11:43
32位win7+10，没报错。

发一个报错截图看下？

报错已经长传