エクセルでマクロ記録で印刷をしようとしたら

エクセルのマクロ記録を使って印刷設定を記録させましたが、マクロを実行すると、設定していないはずのコメント印刷がシートの末尾に出てきます。どうしたものでしょうか。。。？
マクロは超初心者です、、よろしくお願いします。

No.4 ベストアンサー 回答者： WindFaller 回答日時： 2016/08/03 16:19

>マクロから勉強しなおさなきゃいけないようです、

ここら周辺は勉強しても、ブラックボックス化して誰も分からないと思います。

本来なら、諸条件(Excelのバージョン）やら、もう少し聞かなくてはならないような気がしますが、小出しにあれこれ聞くよりも、サンプルマクロをみていただいたほうが早いような気がします。

私が、毎月、印刷しているマクロは、このようなスタイルです。

でも、通常、下のコードでわかるように、Preview:=True にして、どんなふうに印刷されるかプレビューを見るというのがお約束なのです。だから、仮にマクロでも、その時、コメントが下段に出れば、気がつきます。

2番目のマクロは、「拡大・縮小」を使いますので、マクロを実行すると、今までの内容がリセットして新たに設定されています。確実に思い通りになったら、直接、印刷に行けばよいと思います。


'//
'ヘッダーを左隅に太字で出すというものです。

Sub ボタン1_Click()
'印刷
With ActiveSheet
　If .Name Like "Sheet*" Then
　.PageSetup.LeftHeader = ""
　.PageSetup.LeftHeader = "&""-,太字""&12 " & Format(.Range("A1").Value, "yyyy年m月")
　.PrintOut , Preview:=True
　End If
End With
End Sub

'名前登録で、PrintArea1 と名前をつけた所を印刷するという仕組みです。

Sub　ボタン2_Click()
With ActiveSheet
　　.PageSetup.PrintArea = ""
　　.PageSetup.PrintArea = ThisWorkbook.Names("PrintArea1").RefersToRange.Address
　　.PageSetup.Zoom = 100
　　.PrintPreview
End With
End Sub

No.3 回答者： goold-rnan 回答日時： 2016/08/02 15:14

そうですか。

では[ツール]→[オプション]→[編集]タブで「変数の宣言を強制する」にチェックを入れてから動作させてみてください。
それでも同じ動作ならちょっとわかりません。
同じ動作をせずにエラーで止まってしまうなら、変数の宣言に誤りがあったということでしょう。

この回答へのお礼

「変数の宣言を強制する」にチェックを入れてマクロ実行しましたが、やはり同じです、、もう少し考えてみます！
マクロから勉強しなおさなきゃいけないようです、、、いろいろ教えていただきありがとうございます！

お礼日時：2016/08/03 09:03

No.2 回答者： WindFaller 回答日時： 2016/08/02 15:11

コメント印刷がシートの末尾に・・・

マクロとは関係がなくページ設定（ダイアログ）-コメント　という欄がありますから、まず、そこを確認されたほうがよろしいのではありませんか？シートの末尾　などとは出ていませんか？

この回答へのお礼

マクロ実行前にはコメントなしを確認しておりますが、やはり、マクロ実行後はシートの末尾にコメント印刷されてしまい、設定もシートの末尾に勝手に変更されてしまっています、、、困りました～；；
ご回答ありがとうございます！

お礼日時：2016/08/03 09:02

No.1 回答者： goold-rnan 回答日時： 2016/08/02 14:52

記録されたマクロのなかに

.PrintComments = xlPrintSheetEnd
という記述があれば
.PrintComments = xlPrintNoComments
に変更してみてください。

この回答へのお礼

記録されたマクロの中に　.PrintComments = xlPrintNoComments 　と記述がありました。
それでもやはり、シートの末尾のコメント印刷されてします、、、
早速のご回答ありがとうございます！

お礼日時：2016/08/02 15:03