- ベストアンサー
マクロを使って、シート印刷完了時にシートに”完了”マークをつけたいのですが
シートを印刷した時に、 このシートはすでに印刷済みだという、 ”マーク・印鑑”見たいな物を シートに貼付けしたいのですが、 マクロで作成することができますか？ 教えてください。
- nikku0175
- お礼率22% (5/22)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （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 ではどうでしょうか？
関連するQ&A
- マクロを開いているシート全てに有効にする方法
シートを印刷すると、シートに印刷済み+日付が表示されるマクロを 作成しているのですが、作成したシートにしか有効になりません。 マクロを開いている全てのシートに有効にしたいのですが、 どのようにすればよいのでしょうか、教えてください。
- 締切済み
- Visual Basic
- シートにマクロ記述があるとシートに貼付ができない
Windows7 Ｅxcel2007を使ってマクロ作成中の初心者です。 他の方がwinXP使用してるので、受け渡しのため、互換性のある Excel97-2007で保存・マクロ作成しています。 １）エクセルの新規ブックで、sheet1のセルＡ1をコピーし、sheet2のＡ1に貼り付けます。 当然のことながら、正常に貼り付けできます。 貼り付けが完了してもなお、「コピー先を選択しＥｎｔｅｒキーを押すか、 貼り付けを選択します。」が表示され続けています。 ２）ところがsheet1、sheet2にコードを書くと、（たとえば下のコード） sheet1のセルＡ1を右クリックしコピーを選択すると「コピー先を選択しＥｎｔｅｒキーを押すか、 貼り付けを選択します。」が表示されます。そしてsheet2に「貼り付け」をしようsheet2の シート見出しを選んだ瞬間、「コピー先を選択しＥｎｔｅｒキーを押すか、 貼り付けを選択します。」の表示が消えてしまい、「貼り付け」ができません。 ３）他のシートに貼り付けができないので、シートにマクロがかけないので、困っています。どうしたらいいかお助けください。 Private Sub Worksheet_Activate() ActiveWindow.DisplayHorizontalScrollBar = False '水平 End Sub
- ベストアンサー
- Visual Basic
- あるシートを10枚印刷するマクロを組みました。
あるシートを10枚印刷するマクロを組みました。 これの前後にauto open,close を足せば、アイコンをクリックするだけで、10枚印刷することができると思うのですが、どのように書けばいいか調べたのですが、わかりませんでした。 初歩的な質問だとは思いますが、よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- エクセルでデータがあるシートだけ印刷するマクロ
エクセルのマクロで印刷するマクロを使っていますが、５つある ワークシートを全て選択して印刷するマクロでこれをデータ（数値）が 入っているワークシートだけ印刷するマクロにしたいのですがどのようにすればいいのでしょうか？
- ベストアンサー
- オフィス系ソフト
- マクロVBAで印刷
マクロはまったくの初心者です。 エクセルで入力シートにて明細書を作成したものを、出力シートに反映させ、 マクロで作成した印刷ボタンをクリックすると、１枚目には「お客様控え」・２枚目には「支店控え」・ ３枚目には「当社控え」となる様なマクロが出来てます。 これを「当社控え」だけを印刷するように変更したいんです。 出力シートには「お客様控え」としかなってないのに、印刷するとその３枚が印刷されます。 他の人が作ったもので、私は分からないためにマクロの変更・修正が出来ません。説明も分かりずらくて申し訳ございません。 どなたか分かる方教えてください。
- 締切済み
- Visual Basic
- マクロ 印刷及び印刷プレビューについて
Excelのブックに3つ（「目次」「入力用」「出力用」）のシートを作成しております。 ツールの印刷ボタン又は印刷プレビューボタンを押した時に、その内の一つ（「出力用」）のシートのみを印刷又は表示したいのですが、そのようなことは出来るのでしょうか？ できればマクロの登録をして使うボタン？は使いたくありません。 よろしくお願いいたします。
- ベストアンサー
- オフィス系ソフト
- 印刷した日付をシート内から探し色を変えるマクロ
タイトルでは分かりづらいと思いますので説明を・・・ 毎日ある数字をひろってきて、シートに今日の日付、数字を入力（この時入力した日付、数字は別シートにて羅列させ保存）、計算式にそって計算をし、ある一定量の数値を割ったら別のシートの印刷をうながすメッセージを出力するマクロを作成しました。 この時、いつ印刷をしたのかを明確にする為、なにか目印をつけたいのですがいい方法が浮かびません。印刷をした日付を赤く表示させるだけで十分なのですが、皆様のお知恵を拝借できませんでしょうか？ よろしくお願いします。
- 締切済み
- オフィス系ソフト
- 複数のシートをマクロで印刷
印刷したい複数のシートをアクティブ状態にして以下のマクロを実行すると、余計に印刷されてしまいます。 Sub Test() Dim ws As Worksheet For Each ws In ActiveWindow.SelectedSheets ActiveWindow.SelectedSheets.PrintOut _ Copies:=1, Collate:=True Next ws End Sub 例えば、Sheet1とSheet2を選択して実行すると、Sheet1とSheet2が二部ずつ印刷されます。また、Sheet1とSheet2とSheet3を選択して実行すると、それぞれが三部ずつ印刷されます。 それぞれを一部ずつ印刷するためには、マクロをどう直せばいいでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセルマクロで条件のシートを印刷する方法
エクセルマクロで条件のシートを印刷する方法を教えてください 初め、目的のシートを作成する為の条件がセルに入力しているシート（以降：条件シート）があり マクロで条件シートから情報を吸い上げて情報に沿ったシート（以降：結果シート）を複数作成します。 ここでは条件シートが複数存在しています。 結果シートを作成する為の条件と作成するシート数はその都度違います。 結果シートを作成する際は前回に作った結果シートを全て削除してから作っています。 条件シートのシート名に「●」を入力しておいて、「●」が含まれていないシートを削除するようにしています。 ここで質問になりますが、作成した全ての結果シートだけを印刷する方法を教えていただけないでしょうか 方法としては「●」が含まれていないシートを全て印刷するという命令にしたいのですが。 ご教授お願いいたします エクセル2003を使用しています。
- 締切済み
- その他MS Office製品
お礼
先ほど回答の補足をしましたが、 うまく行くようになりました。 ありがとうございました。
補足
回答ありがとうございます。 教えていただいた通りにやってみましたが、 印刷する際 Thisworkbookモジュールの Private Sub Workbook_BeforePrint(Cancel As Boolean) にエラーが出て印刷できません。 どうしたらよいのでしょうか。