コメントをシート末尾に印刷にする

 

 

Sub test()

    ' コメントを印刷する
    
    With ActiveSheet
        .PageSetup.PrintComments = xlPrintSheetEnd
        .PrintPreview
    End With

 

End Sub

 
 
実行結果
 

 

 

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

 

 

関連記事