一つのシートを複数枚印刷すると、連番が振られるようにするには

シートごとではなく、特定のシートだけを複数枚印刷すると、ヘッダーとフッターに連番を振る方法を教えてください。

質問者からの補足コメント

• 特定のシートは、１ページになっています。OSは、WPS Office2019　です

    補足日時：2020/08/28 20:43

No.3 ベストアンサー 回答者： tom04 回答日時： 2020/08/28 21:57

こんばんは！

印刷したいシートは1ページに収まっていて、印刷部数の連番を振りたい！というコトですかね？

VBAになりますが、一例です。
標準モジュールにしてください。
（フッターの中央に表示するようにしています）

Sub 部数連番()
　Dim i As Long
　Dim myCnt As Variant
　　myCnt = Application.InputBox("印刷部数を入力")
　　　If myCnt = "" Then Exit Sub
　　　　For i = 1 To myCnt
　　　　　With ActiveSheet
　　　　　　.PageSetup.CenterFooter = i & "/" & myCnt '//★①//
　　　　　　.PrintPreview '//★②//
　　　　　End With
　　　　Next i
End Sub

※　仮に「5部」印刷したい場合は　1/5・2/5・・・5/5
のように表示されます。

単に　1からの連番で良い場合は「★①」の
＞ i & "/" & myCnt
を
＞i
だけにしてください。

※　印刷プレビューでやめています。
間違いなければ「★②」を
＞.PrintOut

に変更してみてください。m(_ _)m

この回答へのお礼

ありがとうございました！

お礼日時：2020/09/02 18:53

No.2 回答者： enunokokoro 回答日時： 2020/08/28 21:32

部数指定でページ番号もどきを印刷したいのですね。

こちら↓は、Word版を作成するときに参考にしたものです。
http://okwave.jp/qa/q2909328.html

VBAの互換性がどこまであるかわかりませんが、試してみては。
https://www.kingsoft.jp/office/windows#function- …

この回答へのお礼

私のPCはVBA非対応のようです。ありがとうございました。

お礼日時：2020/08/28 23:25

No.1 回答者： 銀鱗 回答日時： 2020/08/28 21:02

プリンタ側の設定で行いましょう。

この回答へのお礼

プリンタ側の設定はどのようにするんでしょうか？右上右下に番号を振るのは、プリンタの設定だけできますか？

お礼日時：2020/08/28 21:12