Question

使用wb

Set Sh2 = .Sheets("sheet2)
    With Sh2.PageSetup
        .PrintArea = "$B$2:$S$80"
        .PaperSize = xlPaperLegal
    End With

Set Sh3 = .Sheets("sheet3")
    With Sh3.PageSetup
        .PrintArea = "$B$2:$M$104"
        .PaperSize = xlPaperLegal
        .Orientation = xlPortrait
    End With

Set execsum1 = .Sheets("sheet4")
    With execsum1.PageSetup
        .PrintArea = "$B$7:$N$63"
        .PaperSize = xlPaperLegal
        .Orientation = xlLandscape
        .PrintTitleRows = "$B$2:$N$6"
    End With

Set execsum2 = .Sheets("sheet5")
    With execsum2.PageSetup
        .PrintArea = "$B$64:$N$106"
        .PaperSize = xlPaperLegal
        .Orientation = xlLandscape
        .PrintTitleRows = "$B$2:$N$6"
    End With
    'ActiveSheet.PrintPreview

Set noi1 = .Sheets("sheet6")
    With noi1.PageSetup
        .PrintArea = "$B$10:$N$44"
        .PaperSize = xlPaperLegal
        .Orientation = xlLandscape
        .PrintTitleRows = "$B$2:$N$8"
        .FitToPagesTall = 1
    End With

Set noi2 = .Sheets("sheet7")
    With noi2.PageSetup
        .PrintArea = "$B$46:$N$192"
        .PaperSize = xlPaperLegal
        .Orientation = xlLandscape
        .PrintTitleRows = "$B$2:$N$8"
        '.FitToPagesWide = 1
        .FitToPagesTall = 1
    End With

End With

Dim sheet As Variant
For Each sheet In Array(execsum1, execsum2, Sh2, Sh3, noi1, noi2)
    sheet.PrintOut Copies:=1
Next

    'Save and Close Workbook
      'wb.Close SaveChanges:=False

    'Ensure Workbook has closed before moving on to next line of code
      DoEvents

    'Get next file name
      myFile = Dir
  Loop

'Message Box when tasks are completed
  MsgBox "Task Complete!"

ResetSettings:
  'Reset Macro Optimization Settings
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
    Application.ScreenUpdating = True

End Sub

大家好，我是VBA的新手，我试图在文件夹中找到的每个工作簿中打印6个工作表/页面。 Execsum1和execsum2来自同一工作表，具有不同的打印区域;与noi1和noi2相同的故事。当我运行代码时，它会打印出第二个指定的页面两次（execsum2和noi2）。为什么没有execsum1 / noi1打印出来，如果可能的话，我怎样才能使代码更高效？谢谢。

Answer 1

它打印相同的工作表两次，因为您不会在将PageSetup从第一个版本更改为第二个版本之间打印工作表。您在这里收集工作表参考...

Set execsum1 = .Sheets("Exec Summary")
'...
Set execsum2 = .Sheets("Exec Summary")

......彼此相同。工作表只有1 PageSetup，所以当你这样做时......

For Each sheet In Array(execsum1, execsum2, Sh2, Sh3, noi1, noi2)
    sheet.PrintOut Copies:=1
Next

...你得到它设置的最后一件事。

完全跳过循环并单独打印。循环遍历它们绝对没有任何好处。

With execsum1.PageSetup
    .PrintArea = "$B$7:$N$63"
    .PaperSize = xlPaperLegal
    .Orientation = xlLandscape
    .PrintTitleRows = "$B$2:$N$6"
End With
execsum1.PrintOut Copies:=1   '<--- After each With block.

如果你想简化代码，只需将常见的.PageSetup提取到一个函数中，并将其他所有内容作为参数传递（请注意，这只是一个例子 - 我没有包含你所做的一切。重新使用）。即：

Private Sub PrintCustomRange(sheet As Worksheet, area As String, title As String, _
                             orient As XlPageOrientation, paper As XlPaperSize)
    With sheet.PageSetup
        .PrintArea = area
        .PaperSize = paper
        .Orientation = orient
        If Len(title) > 0 Then .PrintTitleRows = title
    End With
    .PrintOut Copies:=1
End Sub

然后这样称呼：

PrintCustomRange Sheets("Proforma NOI"), "$B$46:$N$192", "$B$2:$N$8", xlLandscape, xlPaperLegal

vba - 在文件夹中的工作簿中打印工作表

1 个答案: