No.4
- 回答日時:
2で解答したものです。
たびたびお邪魔します。改めて考えてみたのですが、フッターを使ってということは、プリントアウトが前提でしょうね。
それなら1ページ目は別のシートで作って、2枚目以降をページ設定でページ数を指定したあと、ヘッター、フッターを使うのがベターの気がします。
プリンターによっては、スタンプマーク等で、ページ数を入れられるものもありますので、機種によってはそちらを使う方がいいような気もします。
すいません、自信がなくて…。がんばってください。
No.3ベストアンサー
- 回答日時:
通常の機能では難しいと思います。
マクロを作ってみました。ページ総数は使用の都度、セットしてもらう方法もありますが、自動でセットしてみました。
Excel97からHPageBreaks、VPageBreaksがあり改頁位置をカウントできますが、制約が多いため古いExcel4Macroを使ってみました。私のExcel2000では問題なく動きました。(Excel97からバージョンアップしたから?)
AllPageが取得できない場合は
AllPage = Application.ExecuteExcel4Macro("get.document(50)") を
『AllPage = 10』のように総ベージ数を書き込んでください。
ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入します。 出てきたコードウインドウに下記マクロをコピーして貼り付けます。
印刷したいシートをアクティブにしてツール→マクロ→マクロで『印刷001』を実行します。
ご参考に。
ここから
↓
Sub 印刷001()
Dim pg As Integer 'ページカウンタ
Dim AllPage As Integer 'ページ総数
'印刷実行
With ActiveSheet.PageSetup
'ページ総数を取得
AllPage = Application.ExecuteExcel4Macro("get.document(50)")
'ページ単位に印刷指示
For pg = 1 To AllPage
If pg = 1 Then
'最初の頁はヘッダーをクリアする
.LeftHeader = ""
.CenterHeader = ""
.RightHeader = ""
'最初の頁はフッターをクリアする
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
Else
'2ページ目以降のヘッダー、フッターの設定
.RightHeader = "&P-1 / &N-1" '実際の頁-1/総頁-1
.CenterFooter = "- &P-1 -" '- 実際の頁-1 -
End If
'印刷
ActiveSheet.PrintOut From:=pg, TO:=pg
Next
End With
MsgBox "印刷終了"
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセルのページ設定を他のペ...
-
エクセル印刷時 一枚の書類に...
-
エクセルのマクロで複数シート...
-
マクロで印刷→セルの値から部数...
-
条件によって印刷するシートを...
-
エクセルの一部のセルの背景色...
-
エクセルで行番号、列アルファ...
-
エクセルで複数のシートの1枚目...
-
1ヶ月分の日付を一度に出す方法...
-
Excel 特定のシートを印刷不可...
-
エクセルでシートの色がグレー...
-
エクセルで1個のシートを1枚の...
-
エクセルで横置きのシートにペ...
-
EXCEL マクロ 条件の合ったシー...
-
エクセルでのグラフを複数選択...
-
Wordで差込印刷。テーブル...
-
エクセルでのヘッダーをページ...
-
カラーで一括印刷したいです
-
Excelでシートを複数シート選択...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセル印刷時 一枚の書類に...
-
エクセルの一部のセルの背景色...
-
マクロで印刷→セルの値から部数...
-
Excel 特定のシートを印刷不可...
-
エクセルで複数のシートの1枚目...
-
エクセルのマクロで複数シート...
-
エクセルでのヘッダーをページ...
-
エクセルで行番号、列アルファ...
-
エクセルの行タイトルを特定の...
-
1ヶ月分の日付を一度に出す方法...
-
祭の祝儀 掲示・集計ソフト
-
特定のセルに数値が入っている...
-
条件によって印刷するシートを...
-
エクセルのシート名を印刷した...
-
エクセルでシートの色がグレー...
-
エクセルで、ヘッダーに他のシ...
-
特定のシートのみ印刷できない...
-
EXCEL マクロ 条件の合ったシー...
-
エクセルの複数シートをNアップ...
おすすめ情報