ここから本文です

エクセル(2003)で作成したものを印刷するときに、印刷した人のPC名やユーザー...

uni********さん

2009/1/1911:37:33

エクセル(2003)で作成したものを印刷するときに、印刷した人のPC名やユーザー名を自動で表示して印刷することは可能なのでしょうか。

閲覧数:
2,169
回答数:
1
お礼:
25枚

違反報告

ベストアンサーに選ばれた回答

dan********さん

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に関しては↓サイト参考に!(知っていれば無視して下さい。)

質問した人からのコメント

2009/1/19 14:59:27

感謝 とても参考になりました。ありがとうございます。
今すぐ対応できないので、時間を見ながら教えていただいた内容でやってみよと思います。
ありがとうございました。

みんなで作る知恵袋 悩みや疑問、なんでも気軽にきいちゃおう!

Q&Aをキーワードで検索:

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。

不適切な投稿でないことを報告しました。

閉じる