EXCEL VBA 社員名簿印刷したい

質問

お世話になります。

EXCEL VBAを使って社員名簿を印刷したいのです。

データというシートに社員情報が入っています。(可変ですが100名ほど)
このシートに[印刷]というボタンを配置してこれをクリックしたらSheet1の様式にあてはめて
社員人数分印刷をしたいのです。

どのたかお知恵をおかりできますでしょうか？

よろしくお願い致します。

EXCEL2013

回答No.1

mar00 · ベストアンサー

ひとりずつ印刷するようになっているので
間違っているところがあると紙の無駄になるので
2、3名の表でテストしてみてください。

Sub 社員名簿印刷()
Dim WS As Worksheet
Dim i As Integer
Set WS = Worksheets("データ")

Worksheets("sheet1").Select
For i = 2 To WS.Cells(Rows.Count, "A").End(xlUp).Row
Range("B4") = WS.Range("A" & i).Value
Range("B6") = WS.Range("B" & i).Value
Range("B8") = WS.Range("C" & i).Value
Range("B10") = WS.Range("D" & i).Value
Range("B12") = WS.Range("E" & i).Value
Range("E4") = WS.Range("F" & i).Value
Range("E6") = WS.Range("G" & i).Value
ActiveSheets.PrintOut
Range("B4:B12,E4:E6").ClearContents
Next i
End Sub

お礼

mar00さん、ご連絡ありがとうございました！

ご連絡が遅くなりまして申し訳ございませんでした。

ご教授いただきました方法でユーザーからの要望を完璧に対処できました！！
すごいです！感動です。本当に助かりました。m(_ _)m
本当にありがとうございました！！