|
質問文とコードの内容がちぐはぐでよく理解できませんが、フィルターで抽出した
"行"を、1行づつ宛名印刷シートの1行目にコピーして印刷する。というマクロなら
Sub 葉書宛名差込印刷()
Dim MyR As Range, C As Range
On Error GoTo ErLine
With Worksheets("顧客リスト")
Set MyR = .Range("B2", .Range("B65536").End(xlUp)) _
.SpecialCells(xlCellTypeVisible)
End With
For Each C In MyR
With Sheets("宛名印刷")
.Rows(1).ClearContents
C.EntireRow.Copy .Range("A1")
.PrintOut Copies:=1
End With
Next
ErLine:
Set MyR = Nothing
If Err.Number > 0 Then
MsgBox Err.Number & vbLf & Err.Description
Else
MsgBox "印刷を終了しました", 64
End If
End Sub
|
|