No.2ベストアンサー
- 回答日時:
エクセルだとこんなマクロを組めば可能です。
まず「フォーム」ツールバーを表示します。先頭ページにラベルを埋め込みます。そして、そのラベルを選択し「挿入」→「名前」→「定義」を選択し BUSU と名前を付けておきます。
以下のマクロを実行すると、ラベルに通番を印刷することができます。
Sub 部数指定印刷()
Dim NumPrint As Variant, idx As Integer
NumPrint = Application.InputBox("印刷する部数を入力してください", _
Title:="部数入力")
If IsNumeric(NumPrint) Then
For idx = 1 To NumPrint
Worksheets("TEXT").Shapes("BUSU").Select
Selection.Characters.Text = "NO." & idx
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next
Else
MsgBox ("印刷を中止します")
End If
End Sub
WORDならこんな感じです。シェイプに名前がつけられないので番号で直接指定しています
Sub 部数指定()
Dim NumPrint As Variant, idx As Integer
NumPrint = InputBox("印刷する部数を入力してください", _
"部数入力")
If IsNumeric(NumPrint) Then
For idx = 1 To NumPrint
ActiveDocument.Shapes(1).Select
Selection.TypeText Text:="No." & idx
Application.PrintOut FileName:="", Copies:=1, _
Item:=wdPrintDocumentContent
Next
Else
MsgBox ("印刷を中止します")
End If
End Sub
No.1
- 回答日時:
ご希望に沿う回答ではありませんが、ご参考に。
Word・ExcelなどMS-Office製品において、「2部」などという固定文字列ではなく、「印刷」ダイアログで指定した「部数」を文書本体中、またはヘッダー・フッターに印字することをご希望かと思いますが、おそらく容易にはできないと思います。考え方は以下の通りです。
|挿入|フィールド|文書の自動化|PRINT <部数を印字するプリンタ命令>|
意味:当該印刷ジョブの「印刷部数」をプリンタ自身が参照して指定箇所に印字する
以上を例えばフッターの編集で行い、フッター中の適当な場所に「部数」を印字することを試みる
問題は上の PRINT フィールドです。その内容はお使いのプリンタ次第であり、以上の可否および記述すべき内容は当該プリンタの詳しい技術資料で調べなければならず、色々な試行錯誤が必要と思われます。また、Officeのヘルプによりますと、PostScript言語を埋め込む場合に限るとあります。
http://office.microsoft.com/ja-jp/assistance/HP0 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- UNIX・Linux テキストファイルをページ番号付きでコマンドラインから印刷したい 1 2023/02/22 12:47
- ノートパソコン ページ番号の入れ方について 3 2023/02/16 17:11
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
- プリンタ・スキャナー PDF印刷 一枚だけカラーにする方法 1 2023/02/07 09:30
- その他(パソコン・スマホ・電化製品) Webページ印刷時にヘッダー・フッターをつけたい 1 2022/04/25 21:35
- Visual Basic(VBA) VBAでPDFのアクティブページ番号取得 1 2023/05/25 12:41
- その他(Microsoft Office) EXCELの印刷ページ数について 6 2022/07/05 11:15
- 年賀状作成・はがき作成 Wordによる宛名印刷 2 2023/01/04 15:36
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセル印刷時 一枚の書類に印刷枚数分の連続番号を振るには?
Excel(エクセル)
-
1シートを数十部印刷した際に印刷枚数も印字したい
Excel(エクセル)
-
Wordで印刷時に通し番号を付けたい
Word(ワード)
-
-
4
WORDを使って印刷部数分の連番を印刷する方法について
Word(ワード)
-
5
エクセルの表を複数枚印刷したときに連番をつけたい
Excel(エクセル)
-
6
一部ごとの連番印刷の方法を教えて下さい。
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
プリンターの印刷が、ずれて二...
-
縦長の名札を、作るには約1メ...
-
家庭プリンター印刷代(電気含...
-
部数をページ番号のように印刷...
-
【pdfファイル】縁なし印刷でき...
-
word 複数のファイルを両面印刷...
-
ワードやエクセルで印刷をデフ...
-
シュレッダーが詰まって全く動...
-
大学のレポートは表紙をつける...
-
A4の用紙に写真をたくさん並べ...
-
ドコモメールをプリンターで印...
-
1ページの原稿を同じ内容で両面...
-
エクセルのサイズ変更について
-
ストリートビューの画像の印刷...
-
いきなりPDFで用紙のサイズを編...
-
冷凍庫のアルミトレイについて
-
画像を、思い通りのサイズで印...
-
PDFファイルがカラー印刷できない
-
wordで作った2ページをA3にま...
-
JW-CADで印刷すると線が太くなる
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
プリンターの印刷が、ずれて二...
-
印刷速度が途中から極端に遅くなる
-
家庭プリンター印刷代(電気含...
-
同じものが何度も印刷されてし...
-
印刷に不具合がある時のパソコ...
-
印刷されない行がある
-
CDレーベル印刷でのずれってあ...
-
プリンタのインジケーターが消...
-
厚紙大量印刷の得意なプリンタ...
-
canonのプリンターに変えたので...
-
何度印刷しても白紙です。
-
印刷のとき設定もしないのに、...
-
表彰状の印刷に適したプリンタ...
-
CDやDVDの表にタイトルを入れたい
-
エプソンプリンター PLQ-20 が...
-
プリンタの累計印刷枚数をカウ...
-
部数をページ番号のように印刷...
-
canonプリンターの設定について
-
印刷エラー
-
AdobeRGBに対応したインクジェ...
おすすめ情報