使用 VBA 每张打印 2 页

Question

i am trying definitely to print 2 pages per sheet (the sheets are pre-selected and are active) with VBA but this option seems not be possible

I've tried the following:

With ActiveSheet.PageSetup
.FitToPagesWide = 1
.FitToPagesTall = 2
.PrintOut copies:=1
end with

however my printer does not print correctly. Any suggestion?

Answer 1

Sub PrintAll()

Dim sh As Worksheet

Dim wb As Workbook

Set wb = ThisWorkbook

For Each sh In wb.Worksheetssh.PrintOut

sh.FitToPagesWide = 1

sh.FitToPagesTall = 2

sh.PrintOut copies:=1

Next sh

End Sub