ヘッタ、フッタを印刷しない方法

オフィス2000を使っています
画面ではヘッタが見えて
印刷時には印刷しない方法を教えてください

よろしくお願いいたします

No.2 ベストアンサー 回答者： imogasi 回答日時： 2004/02/07 12:35

ニーズはあると思いますが、要求は果てしないなと言う感じがします。

「操作」「関数」では無理でしょう。
どうしてもと言うならVBAでならできそうです。
下記のコードは、殆どはマクロの記録のコードですから、作りやすいでしょう。これを（コマンド）ボタンに登録すれば、隋時ボタンをクリックすれば使えるし、普通に印刷したいときは、通常の操作で印刷すれば良い訳です。
Sub Macro1()
With ActiveSheet.PageSetup
.PrintTitleRows = ""
.PrintTitleColumns = ""
End With
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
'-----一時的に値を変数に退避保持し消去
lh = .LeftHeader
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
lf = .LeftFooter
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
.PrintHeadings = False
.PrintGridlines = False
.PrintComments = xlPrintNoComments
.PrintQuality = 360
.CenterHorizontally = False
.CenterVertically = False
.Orientation = xlPortrait
.Draft = False
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.BlackAndWhite = False
.Zoom = 100
End With
Range("a1:h10").PrintOut
'---元の状態に復帰させる
ActiveSheet.PageSetup.PrintArea = ""
With ActiveSheet.PageSetup
.LeftHeader = lh
.CenterHeader = ""
.RightHeader = ""
.LeftFooter = lf
End With
End Sub

この回答へのお礼

ありがとうございました

お礼日時：2004/02/07 19:25

No.1 回答者： noname#9284 回答日時： 2004/02/07 11:54

Wordでしたら下記のリンクの方法で印刷しない設定に出来るようです。

Excelはヘッダやフッタそのものの設定を削除しないと印刷できなかったように思います。
Excel2000ではヘッダやフッタの幅を0にしても印刷プレビューでは表示されるようです。
大いに自信なしです。

参考URL：http://smile.seta.ryukoku.ac.jp/man/office/word/ …

この回答へのお礼

ありがとうございました

お礼日時：2004/02/07 19:25