No.1ベストアンサー
- 回答日時:
Thisworkbookモジュールに
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Application.OnTime Now, "STAMP"
End Sub
標準モジュールに
Sub STAMP()
With ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 50, 50)
.Fill.Visible = msoFalse
.Line.Visible = msoFalse
With .TextFrame
.Characters.Font.Name = "MS UI Gothic"
.Characters.Font.Size = 48
.Characters.Font.ColorIndex = 8
.AutoSize = True
.Characters.Text = "プリント済"
End With
End With
End Sub
ではどうでしょうか?
この回答への補足
回答ありがとうございます。
教えていただいた通りにやってみましたが、
印刷する際
Thisworkbookモジュールの
Private Sub Workbook_BeforePrint(Cancel As Boolean)
にエラーが出て印刷できません。
どうしたらよいのでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) セルによって印刷するシートを変える方法 EXCEL-VBA 2 2022/08/01 20:48
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- Excel(エクセル) 【Excel】複数シートがあるエクセルデータで片面印刷と両面印刷設定がシートごとに入 1 2023/03/10 15:25
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
Excel VBA の印刷後の判定
Excel(エクセル)
-
印刷後メッセージボックスを表示したい
Access(アクセス)
-
イベントプロシージャ 印刷が終わったあと…
Visual Basic(VBA)
-
-
4
EXCEL VBA 印刷プレビューダイアログのボタン操作を判定したい
Visual Basic(VBA)
-
5
条件によって印刷するシートを変える方法 EXCEL-VBA
Excel(エクセル)
-
6
エクセルのマクロで印刷プレビューを閉じる方法
Excel(エクセル)
-
7
再:(できる方)エクセルVBA印刷済を印刷しない
Visual Basic(VBA)
-
8
VBAで印刷スプール終了の判定をする
Visual Basic(VBA)
-
9
VBAで印刷の成功判定
Visual Basic(VBA)
-
10
エクセルファイルを開く時、常に同じシートから開くようにするには?
Windows Vista・XP
-
11
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
12
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
-
13
Excel VBA 空白セルがあったらメッセージボックスで知らせたい
Visual Basic(VBA)
-
14
自分の部署・担当を言うとき、どういう言い方が正しいでしょうか?? 会社のときは、弊社といいますが、部
その他(ビジネス・キャリア)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
別のシートから値を取得するとき
-
同じ作業を複数のシートに実行...
-
excelのマクロで該当処理できな...
-
セルの値によって、シート見出...
-
VBA 存在しないシートを選...
-
Access エクセルシート名変更
-
VBAで指定シート以外の選択
-
特定の文字を含むシートだけマ...
-
エクセルのシート名変更で重複...
-
VBA 改行コードの取り方
-
VBAを用いて繰り返し自動的...
-
【VBA】指定した検索条件に一致...
-
Excel VBA 複数行を数の分だけ...
-
userFormに貼り付けたLabelを変...
-
【Excel VBA】Worksheets().Act...
-
【Excel VBA】書き込み先のシー...
-
コマンドボタンをクリックでシ...
-
セルのコピーで「オブジェクト...
-
ユーザーフォームに入力したデ...
-
VBAです。ユーザーフォームの表...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
ユーザーフォームに入力したデ...
-
同じ作業を複数のシートに実行...
-
ブック名、シート名を他のモジ...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
VBA 存在しないシートを選...
-
エクセルのシート名変更で重複...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
Excel VBA 複数行を数の分だけ...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
Excelマクロのエラーを解決した...
-
エクセル・マクロ シートの非...
-
VBAで同じシート名のコピー時は...
-
ExcelのVBAのマクロで他のシー...
-
【VBA】色のついたシート名を取得
おすすめ情報