Код VBA для печати каждого листа в книге в формате Legal

Question

Я попробовал следующий код, но, похоже, он не работает - может кто-нибудь помочь мне отладить?

Sub printt()

Dim wb As Workbook
Dim ws As Worksheet

Set wb = Workbooks.Open("link to file")

For Each ws In wb
ws.PageSetup.PaperSize = xlPaperLegal
Next

For Each ws In wb
ws.PrintOut
Next

End Sub

Answer 1

Sub printt()

Dim wb As Workbook 
Dim ws As Worksheet

Set wb = Workbooks.Open("link to file")

For Each ws In wb.worksheets
     ws.PageSetup.PaperSize = xlPaperLegal 
     ws.PrintOut
Next ws




End Sub