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

5173735 · 发表于 2013-7-22 14:05

来神啊~~~·来神啊~~~·来神啊~~~·

货币学派 · 发表于 2013-7-22 15:52

If Cells(i + 3, 3) <> 0 Then
空表格会被打印吧出错信息也是
改为If Cells(i + 3, 3) <> “” 试试

5173735 · 发表于 2013-7-22 18:46

货币学派发表于 2013-7-22 15:52
If Cells(i + 3, 3) 0 Then
空表格会被打印吧出错信息也是
改为If Cells(i + 3, 3) “” 试试

还是不行

货币学派 · 发表于 2013-7-22 20:32

这个没问题是我没注意看

爱疯 · 发表于 2013-7-22 21:49

w7+10，没打印机，这样测试后没发现报错呀

爱疯 · 发表于 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

批量打印_20130616151142b.rar (14.87 KB, 下载次数: 3)

货币学派 · 发表于 2013-7-23 08:57

试下最初级的办法录制个宏看看这个配置下的代码

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

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

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