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(エクセル)
-
一部ごとの連番印刷の方法を教えて下さい。
PowerPoint(パワーポイント)
-
-
4
エクセルの表を複数枚印刷したときに連番をつけたい
Excel(エクセル)
-
5
WORDを使って印刷部数分の連番を印刷する方法について
Word(ワード)
-
6
Wordで印刷時に通し番号を付けたい
Word(ワード)
-
7
エクセルで印刷するとき、連番にしたいm(__)m
Excel(エクセル)
-
8
エクセルのシートを複数枚印刷したときに連番をつけたい
Excel(エクセル)
-
9
チラシに番号を入れて印刷するには
その他(ソフトウェア)
-
10
Power Pointの複数部数の印刷
PowerPoint(パワーポイント)
-
11
PDFファイルの全ページに通し番号をつけたい
その他(ソフトウェア)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
何度印刷しても白紙です。
-
同じものが何度も印刷されてし...
-
家庭プリンター印刷代(電気含...
-
印刷のとき設定もしないのに、...
-
印刷に不具合がある時のパソコ...
-
表彰状の印刷に適したプリンタ...
-
プリンタのインジケーターが消...
-
インクジェットプリンター印字...
-
国語辞典が第10版が第12版にな...
-
Wordの裏にExcelを両面印刷する...
-
word 複数のファイルを両面印刷...
-
ワードやエクセルで印刷をデフ...
-
A4の用紙に写真をたくさん並べ...
-
【pdfファイル】縁なし印刷でき...
-
シュレッダーが詰まって全く動...
-
エクセルのサイズ変更について
-
ドコモメールをプリンターで印...
-
WORDを使って両面印刷の名刺を...
-
【Microsoft Office Excel Comp...
-
ストリートビューの画像の印刷...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
部数をページ番号のように印刷...
-
印刷されない行がある
-
家庭プリンター印刷代(電気含...
-
プリンターの印刷が、ずれて二...
-
同じものが何度も印刷されてし...
-
PIXUS MG6230
-
写真をA4、8枚への印刷方法につ...
-
急に動かなくなった
-
プリンター、単色で印刷できますか
-
CD-R タイトルプリンターに...
-
CDレーベル印刷でのずれってあ...
-
PC-PR201/87LAの文字ずれ
-
印刷の際、用紙設定を間違えて...
-
AdobeRGBに対応したインクジェ...
-
しましまに印刷されます
-
プリンタによって印刷可能範囲...
-
エプソンPM-4000PX やっ...
-
プリンタ cannon iP3100 黒文...
-
印刷速度が途中から極端に遅くなる
-
直線がジグザグにプリントアウ...
おすすめ情報