メモの印刷と書式設定について

Question

メモの印刷

手動では

ページ設定　シート　コメントとメモ　（ なし、シートの末尾、画面表示イメージ 　）の

様に切り替えて印刷できるのですが、

マクロで

下記の様に切り替えても常にシートの末尾に印刷されます。

好い方法を教えて下さい。

　ActiveSheet.PageSetup.PrintComments = xlPrintNoComments or 0

　ActiveSheet.PageSetup.PrintComments = xlPrintSheetEnd or 1

　ActiveSheet.PageSetup.PrintComments = xlPrintInPlace

メモの表示

手動では　コメントの書式設定　　色と線　塗りつぶし　色　（ 塗りつぶしなし ）の設定が

出来るのですが、マクロではフォントの設定しかできません、

好い方法を教えて下さい。

Answer 1

質問した本人ですが、

メモの印刷については、メモの個数も限定的でしたのでメモを非表示にして印刷し

後でメモを表示しました。

でも　手動で設定出来る事がマクロで出来ないのは不思議ですよね？

Cells.Find(What:="*", After:=ActiveCell, LookIn:=xlComments, LookAt:= _

    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False \_ 

    , MatchByte:=False, SearchFormat:=False).Activate 

t\_count = 0 

Do Until t\_count = 20 

    t\_count = t\_count + 1 

    Cells.FindNext(After:=ActiveCell).Activate 

    ActiveCell.Comment.Visible = False 

Loop 

    ActiveWindow.SelectedSheets.PrintOut Copies:=1 

Cells.Find(What:="\*", After:=ActiveCell, LookIn:=xlComments, LookAt:= \_ 

    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False \_ 

    , MatchByte:=False, SearchFormat:=False).Activate 

t\_count = 0 

Do Until t\_count = 20 

    t\_count = t\_count + 1 

    Cells.FindNext(After:=ActiveCell).Activate 

    ActiveCell.Comment.Visible = True 

Loop