[[20190320072346]] 『1つのシートを複数枚印刷する際、ページをカウン』(みかん) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『1つのシートを複数枚印刷する際、ページをカウントさせたい』(みかん)

1つのシートを複数枚印刷する際、ページをカウントさせたいです。
例えば50枚印刷させるとして、
「1/50、2/50…50/50」となるようにフッターを変える方法はありますか?

< 使用 Excel:Excel2013、使用 OS:Windows7 >


 私も部数で出したいと思ったことありますが
 標準ではできなかった記憶が、、、
https://sp.okwave.jp/qa/q2909328.html

 VBAになりますが、こちらでどうですか?

(稲葉) 2019/03/20(水) 07:36


コメントありがとうございます。
50枚印刷するとして

Dim n As Variant, i As Integer
 n = InputBox
 If n = "50" Then Exit Sub
 For i = 1 To n
  ActiveSheet.PageSetup.CenterFooter = i
  ActiveSheet.PrintOut
 Next
End Sub

という事でしょうか?ー
(みかん) 2019/03/20(水) 08:11


 取り敢えず、そのまま動かしてみました?
 少なくとも
 n = "50"
 これは誤りです
(稲葉) 2019/03/20(水) 08:23

そのままだと実行ができませんでした。
すみません初心者なもので
(みかん) 2019/03/20(水) 08:44

失礼しました
コピーが間違っていたようでした。
ありがとうございました
(みかん) 2019/03/20(水) 08:48

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.