' [211.xls]



' [Module1] のコード
'★★☆　自動改ページ表示、非表示を切り換える　☆★★

Option Explicit

Sub start()

    With ActiveSheet
    
        'ページ区切が表示されていたら非表示に、非表示の場合表示する
        If .DisplayAutomaticPageBreaks = True Then
            .DisplayAutomaticPageBreaks = False
        Else
            .DisplayAutomaticPageBreaks = True
        End If
    End With

End Sub

Sub start_A()

    Sheets("作業シート").Visible = -1
    Sheets("Title").Visible = 2
    ActiveSheet.PageSetup.PaperSize = 81

End Sub

Sub start_B()

    Sheets("Title").Visible = -1
    Sheets("作業シート").Visible = 2
    
End Sub