会員名簿に、住所も入っていて、会員さんに何かを郵送する、ようなときにも、一覧表から個別票へのマクロを少し修正すればOKです。すなわち、名簿の一覧表から、郵送したい人の 郵便番号、住所、名前 を封筒に印刷するマクロです。
以下のようなマクロでした。
Sub 封筒印刷() '
Dim myRow As Integer
Dim myMsg As String
Dim myTitle As String
Sheets("住所録と会費納入年度").Select
'先頭の県名を、ＡＣ(Active Cell)として、選んでおく。
myTitle = "印刷開始の行番号の入力、空白行まで印刷します。"
myMsg = "印刷開始位置の県名をACにして、その行番号を入力してください。"
myRow = Application.InputBox(Prompt:=myMsg, Title:=myTitle, Default:=1, Type:=1)
If myRow <> 0 Then
a = myRow
Else MsgBox "入力された行番号が正しくありません。"
End If
Do Until ActiveCell.Value = ""
Range(Cells(a, 2), Cells(a, 10)).Select
Selection.Copy
Sheets("封筒宛名印刷画面").Select
Range("I1").Select
ActiveSheet.Paste '封筒宛名印刷画面シートにペースト
ActiveSheet.PageSetup.PrintArea = "$B$1:$G$6" ActiveWindow.SelectedSheets.PrintOut Copies:=1
Sheets("住所録＆会費納入年度").Select
Selection.Offset(1).Select 'ＡＣを１行下げる。
a = a + 1
Loop
End Sub
