![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
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
特定セルの内容を更新したら、その更新日を自動的に表示する方法について
Excel(エクセル)
-
11
マクロで印刷→セルの値から部数変更するには
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定の文字を含むシートだけマ...
-
別のシートから値を取得するとき
-
ユーザーフォームに入力したデ...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
excelのマクロで該当処理できな...
-
Excel VBA 複数行を数の分だけ...
-
XL:BeforeDoubleClickが動かない
-
VBA 存在しないシートを選...
-
ブック名、シート名を他のモジ...
-
Excel VBA リンク先をシート...
-
実行時エラー'1004': WorkSheet...
-
ExcelのVBAのマクロで他のシー...
-
エクセルのシート名変更で重複...
-
【VBA】色のついたシート名を取得
-
シートが保護されている状態で...
-
別のシートを参照して計算する方法
-
VBAで指定シート以外の選択
-
Excelマクロのエラーを解決した...
-
Worksheet_Changeの内容を標準...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
別のシートから値を取得するとき
-
VBAで大量のファイルをシート名...
-
ユーザーフォームに入力したデ...
-
excelのマクロで該当処理できな...
-
【ExcelVBA】全シートのセルの...
-
同じ作業を複数のシートに実行...
-
VBA 存在しないシートを選...
-
Excelマクロのエラーを解決した...
-
特定の文字を含むシートだけマ...
-
実行時エラー'1004': WorkSheet...
-
XL:BeforeDoubleClickが動かない
-
シートが保護されている状態で...
-
実行時エラー1004「Select メソ...
-
【Excel VBA】Worksheets().Act...
-
ブック名、シート名を他のモジ...
-
エクセルのシート名変更で重複...
-
ExcelのVBAのマクロで他のシー...
-
Excel VBA 複数行を数の分だけ...
-
エクセルのマクロについて教え...
-
VBA 最終行まで数式をコピーする
おすすめ情報