FitToPagesTallメソッドの問題

Question

For EachループとFitToPagesで問題が発生しました。ファイルは82枚あります。

は、ここに私のコードです：

Sub printSet() 
    Dim sht As Worksheet 
    Dim lasrow As Integer 
    For Each sht In ThisWorkbook.Worksheets 
     lasrow = sht.Cells(sht.Rows.count, 3).End(xlUp).Row 
     sht.PageSetup.PrintArea = Range("A1:D" & lasrow).Address 
     sht.PageSetup.FitToPagesTall = 1 
    Next 
End Sub 

印刷領域が完全に選択されている...しかし、各シートは全く良くない印刷プレビュー画面、4ページに分割されます。

どこが間違っていますか？ファイルはエラーなしでコンパイルされているためです。

ありがとうございます。

Answer 1

見つけました！私は見逃しました.Zoom = False PageSetupで：

Sub printSet() 
    Dim sht As Worksheet 
    Dim lasrow As Integer 
    For Each sht In ThisWorkbook.Worksheets 
     lasrow = sht.Cells(sht.Rows.count, 3).End(xlUp).Row 
     sht.PageSetup.PrintArea = Range("A1:D" & lasrow).Address 
     With sht.PageSetup 
      .Zoom = False 
      .FitToPagesTall = 1 
     End With 
    Next