マクロの問題でわかりません。教えてください。変数名「zen sheet」をworksheet型で宣言。for Each...Nextステートメントを使用し、ブック内のすべてのワークシートに、印刷の設定（pegesetup）と印刷プレビュー（printpreview）を行うコードを次の条件で記述してください。※印刷設定と印刷プレビューの対象を「zensheet」にする・印刷の設定:ヘッダー左に「シート名」、ヘッダー右に「今日の日付」を表示する「記号」。設定する用紙設定：1ページ収まるように、「zoom」、「fittopagestall」、「FitoPagesWide」プロパティを設定する・印刷プレビューブック内の全てのワークシートを印刷プレビューする上記を行うマクロのコードを教えて頂きたいです。

.PrintPreviewの親分はSheetなのでThisWorkbook.PrintPreviewはうまくない、ということでは？

ということはループの中に.PrintPreviewが入ります。



Sub 全シート印刷設定とプレビュー()

Dim zenSheet As Worksheet

For Each zenSheet In ThisWorkbook.Worksheets

With zenSheet.PageSetup

.LeftHeader = zenSheet.Name ' シート名

.RightHeader = \u0026quot;\u0026amp;D\u0026quot; ' 今日の日付

.Zoom = False ' 拡大縮小を無効化

.FitToPagesWide = 1 ' 幅を1ページに

.FitToPagesTall = 1 ' 高さを1ページに

.Parent.PrintPreview

End With

Next zenSheet

End Sub