[[20020905123741]]　『印刷設定をすべてのシート一括変更』（802）　ページの最後に飛ぶ

『印刷設定をすべてのシート一括変更』（802）

複数のシートを編集するには、グループ作業で編集しますが印刷の余白設定などの一括処理は出来ませんか?

 Excelのバージョンはいくつですか？

 自分も95だったか97を使っているとき、

 ページ設定が一括してできなくてマクロを作ったことがあるんだけど、

 2000ではグループ作業で出来ますね。

 知りませんでした（汗）。

 その時使っていたマクロで、修正しないと使えないと思いますけど、

 参考になれば見てみてください。

 この時代、ダイアログシートなんて使ってたんだなぁ（懐かしい）

 （ramrun）

 Sub Print_Set()

 Dim Machine_Number As String

 Dim start_cell, end_cell As String

    Delete_Sheets

    Machine_Number = DialogSheets("Dialog5").EditBoxes(1).Text

    Worksheets(1).Select

    With ActiveSheet.PageSetup

            'OptionボタンはTrue,Falseが使えない

        If DialogSheets("Dialog5").OptionButtons(1) > 0 Then

            'ペーパーサイズ Ａ３

            .PaperSize = xlPaperA3

            If DialogSheets("Dialog5").OptionButtons(2) > 0 Then

                .Zoom = 100

            Else

                .Zoom = 97

            End If

        Else

            'ペーパーサイズ Ａ４

            .PaperSize = xlPaperA4

            If DialogSheets("Dialog5").OptionButtons(2) > 0 Then

                .Zoom = 70

            Else

                .Zoom = 67

            End If

        End If

    End With

    'ホームポジション

    For n = 1 To Worksheets.Count

    Worksheets(n).Select

    If Worksheets(n).Name = Load_Stop Then Exit For

    With ActiveSheet.PageSetup

        '印刷範囲

        If DialogSheets("Dialog5").OptionButtons(2) > 0 Then

            Range("a1:w50").Select

        Else

            Range("a1:y50").Select

        End If

        .PrintArea = Selection.Address

        Range("A1").Select

        '工番設定

        .RightFooter = Machine_Number

        '印刷方向 横

        .Orientation = xlLandscape

        '印刷方向 縦（参考）

        '.Orientation = xlPortrait

        '印刷範囲クリア

        'ActiveSheet.PageSetup.PrintArea = ""

        End With

    Next n

 End Sub

コメント返信：