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
No.4
- 回答日時:
2で解答したものです。
たびたびお邪魔します。改めて考えてみたのですが、フッターを使ってということは、プリントアウトが前提でしょうね。
それなら1ページ目は別のシートで作って、2枚目以降をページ設定でページ数を指定したあと、ヘッター、フッターを使うのがベターの気がします。
プリンターによっては、スタンプマーク等で、ページ数を入れられるものもありますので、機種によってはそちらを使う方がいいような気もします。
すいません、自信がなくて…。がんばってください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・14歳の自分に衝撃の事実を告げてください
- ・架空の映画のネタバレレビュー
- ・「お昼の放送」の思い出
- ・昨日見た夢を教えて下さい
- ・ちょっと先の未来クイズ第4問
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・メモのコツを教えてください!
- ・CDの保有枚数を教えてください
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・ハマっている「お菓子」を教えて!
- ・最近、いつ泣きましたか?
- ・夏が終わったと感じる瞬間って、どんな時?
- ・10秒目をつむったら…
- ・人生のプチ美学を教えてください!!
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・都道府県穴埋めゲーム
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセルの一部のセルの背景色...
-
エクセル印刷時 一枚の書類に...
-
エクセルで複数のシートの1枚目...
-
条件によって印刷するシートを...
-
エクセルのマクロで複数シート...
-
エクセルで行番号、列アルファ...
-
エクセルでのヘッダーをページ...
-
特定のセルに数値が入っている...
-
エクセルの行タイトルを特定の...
-
EXCEL マクロ 条件の合ったシー...
-
マクロで印刷→セルの値から部数...
-
Excel 特定のシートを印刷不可...
-
カラーで一括印刷したいです
-
エクセルで同一シート上にA3とA...
-
祭の祝儀 掲示・集計ソフト
-
EXCELのBOOKを印刷禁止に...
-
エクセルのシート名を印刷した...
-
エクセルで、ヘッダーに他のシ...
-
Excelでシートを複数シート選択...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルファイルを開く時、常...
-
エクセル印刷時 一枚の書類に...
-
エクセルの一部のセルの背景色...
-
マクロで印刷→セルの値から部数...
-
エクセルで複数のシートの1枚目...
-
Excel 特定のシートを印刷不可...
-
1ヶ月分の日付を一度に出す方法...
-
エクセルで行番号、列アルファ...
-
エクセルのマクロで複数シート...
-
エクセルでのヘッダーをページ...
-
エクセルの行タイトルを特定の...
-
条件によって印刷するシートを...
-
エクセルでシートの色がグレー...
-
エクセルのシート名を印刷した...
-
特定のセルに数値が入っている...
-
エクセルで、ヘッダーに他のシ...
-
行タイトルを最終ページだけ表...
-
EXCEL マクロ 条件の合ったシー...
-
エクセルのページ設定を他のペ...
-
エクセルで同一シート上にA3とA...
おすすめ情報