エクセル(2003)で作成したものを印刷するときに、印刷した人のPC名やユーザー...
2009/1/1911:37:33
ベストアンサーに選ばれた回答
2009/1/1914:23:46
VBA(マクロ)で取得できますが、ユーザー名のほうが簡単です。
■ Application.UserName で取得
あとはどのタイミングでユーザー名を取得し、どこに印刷をするか?
・タイミングは、そのBookを開いたときにユーザー名を取得。
・そのシートをActiveにしたときにユーザー名を取得。
印刷箇所は、
・印刷したいSheetのあるセルに「ユーザー名」を持たせ、印刷する。
・印刷したいSheetの印刷設定でレポートフッターの左(or中、右)にフッターとして印刷する。
等々。
<例1.>そのBookを開いたときにユーザー名を取得し、該当シート(Sheet1)のあるセル(A1)に「ユーザー名」を持たせ、印刷する。
Private Sub Workbook_Open()
Dim StrUserName As String
StrUserName = Application.UserName
Sheets("sheet1").Range("A1").Value = StrUserName
End Sub
<例2.>そのBookを開いたときにユーザー名を取得し、該当シート(Sheet1)印刷設定でレポートフッターの左にフッターとして印刷する。
Private Sub Workbook_Open()
Dim StrUserName As String
StrUserName = Application.UserName
Sheet1.Activate
With ActiveSheet.PageSetup
.LeftFooter = StrUserName
End With
End Sub
<例3.>そのシートをActiveにしたときにユーザー名を取得し、該当シート(Sheet1)印刷設定でレポートフッターの左にフッターとして印刷する。
Private Sub Worksheet_Activate()
Dim StrUserName As String
StrUserName = Application.UserName
With ActiveSheet.PageSetup
.LeftFooter = StrUserName
End With
End Sub
*コンピューター名の取得に関しては↓サイトをご覧下さい。
http://blog.livedoor.jp/akf0/archives/51287715.html
*エクセルVBAに関しては↓サイト参考に!(知っていれば無視して下さい。)
このカテゴリの回答受付中の質問
- 【Excel】リンクされた図を含むワークブックが重いので図のリンク状態を制御する...
- 問3番を教えてください!! よろしくお願いします.・゚゚(>ω<。人)
- 臨海セレクトは日付指定できますか?
- 8月末で退職をし、9月下旬にある採用試験を待つ者です 診療内科には行けませんか...
- windowsのoffeceで、フォルダーを開くときに暗証コードを入力しないと、開けない...
- ドロップダウンリストの作り方、OFFSELT
- エクセルのマクロを教えてください。 エクセルバージョン2016 A 1 8304 2 83...
- Googleスプレッドシートで集計したデータをセルに自動で挿入したい https://docs....
- Excelなんですがこのやり方が全く分からないので教えて下さい!! イフ関数のどこ...
- LINE上でのやり取りです。 同窓会目的でグループを作ったのですが、人が増え...
このカテゴリの投票受付中の質問
- エクセルにて生徒の成績計算をしたいと思っています。 範囲を指定して得点率%...
- エクセルのライセンス認証してないファイルの印刷 会社の不手際でオフィスのラ...
- エクセル マクロ エクセルに連続いたデータあります。 セルA列に 12/1 12/1 12/...
- エクセルのデーターで、条件に合うデーターのみを抽出し、空所には、何も表示しな...
- Excelで文字色の変更する時によく使用する色がありますが ”その他の色”なので、...
- 【マクロ超初心者】 Excelマクロについてお尋ねです。 下記2点の希望動作が作...
- Excelのマクロについて教えて下さい。 ダブルクリックで●→○→■と変化する設定を...
- Excel初心者です。 関数について質問させてください。 例えばsheet1のA1からA10...
- エクセルのシートのことで Sheet1のI列に○が入っている行のみ Sheet2にリンク貼...
- EXCEL2016 特定の文字列がある列の最下行データの2つ下、3つ下にデータを入力し...
カテゴリQ&Aランキング
- 戻る
- 次へ
総合Q&Aランキング
Yahoo!知恵袋カテゴリ
お客様自身の責任と判断で、ご利用ください。