いつもみなさまにお世話になっています。 今回もお助けください。 Excelマクロにて印刷のVBAを入力してみましたが 現

いつもみなさまにお世話になっています。 今回もお助けください。 Excelマクロにて印刷のVBAを入力してみましたが 現在のシートのみを印刷したいのですが、 このコードですとブック全体を印 刷してしまします。 どなたか、どこを修正すればよいか、ご指摘くださいませんでしょうか。 お知恵をお貸しください。よろしくお願いします。 Sub 連続印刷控えも印刷() Dim i As Integer For i = 1 To Worksheets.Count Worksheets(i).Activate With ActiveSheet .PageSetup.CenterHorizontally = True .PageSetup.CenterVertically = False .PageSetup.RightHeader = "" .PrintOut Preview:=True .PageSetup.CenterHeader = "&16（控）" .PrintOut Preview:=True .PageSetup.CenterHeader = "" End With Next i End Sub 入力したコードは以上の通りです。

これはご自分で作成したものではなのですか。 現在シートだけなら、繰り返しを取るだけでいいと思いますが。 For i = 1 To Worksheets.Count Worksheets(i).Activate これ不要です。 下の Next も勿論削除します。