10/06/17 12:48:19
マクロです。
住所録は列Aから順に名前、郵便番号、住所、住所（市町村名以降）
作業シートでは住所録で1234567と記入された郵便番号を〒123-4567と直しています。
Sub 角2封筒印刷()
'
' 角2封筒印刷 Macro
'
'
ActiveCell.Range("A1:D1").Select
Selection.Copy
Sheets("住所録").Select
Sheets("角2封筒印刷画面").Select
Range("AZ43").Select
ActiveSheet.Paste
Range("BA43").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("作業シート（変更禁止!!）").Select
Range("D12").Select
ActiveSheet.Paste
Sheets("角2封筒印刷画面").Select
Application.CutCopyMode = False
ExecuteExcel4Macro "PRINT(2,1,1,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("住所録").Select
ActiveCell.Select
End Sub
よろしくお願いします。