エクセルVBA（宛名の連続印刷）

エクセル豆知識（Vlookup関数）  の続きで、マクロも勉強したところで

住所録の宛名をマクロボタンのクリックで全て印刷してみましょう。

印刷の画面の上に、ボタンを配置

Sub ボタン1_Click()
 a = Application.Dialogs(xlDialogPrint).Show
 If a = False Then
 MsgBox "Cancelされました。"
 Else
 For i = 2 To Sheets("Sheet2").Range("A" & Rows.Count).End(xlUp).Row
  Range("C5").Value = Sheets("Sheet2").Range("A" & i).Value
  ActiveSheet.PrintPreview
  ' ActiveSheet.PrintOut
 Next
 End If
End Sub

として、ボタンをクリックすると、住所録の２行目から順に、住所が表示され

プリントプレビューの画面になります。

印刷、動作が確認できたら、ActiveSheet.PrintPreview　を
   ActiveSheet.PrintOut　に置き換えてください。

 a = Application.Dialogs(xlDialogPrint).Show　の部分は
封筒に直接印字する場合に　印刷を１８０°回転　にチェックする　事を考慮しています。

不要であればなくても構いません。

もう少し続けます。次は宛名をラベルシートに印刷してみましょう。