匿名さん
いつもみなさまにお世話になっています。
今回もお助けください。
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 入力したコードは以上の通りです。