| |
今晩は、質問をさせていただきます。
名簿の葉書宛名印刷について
『顧客リスト』の最左列に連番(No．)に基づき宛名印刷をしています。（別シートに『宛名印刷』のﾌｫｰﾑを作成しています）
しかしながら、顧客リストにオートフィルターをかけて必要な顧客（必要なNo．対象顧客)のみを印刷したいのですが、現在のコードでは、オートフィルターが反映されません。
オートフィルターをかけた状態の画面に出ているヴィジュアルセル（No.)のみを順次選択して印刷に反映させるには、このコードをどのように変更を加えればよいのか、ご指導ください。
Sub 葉書宛名差込印刷()
Dim 番号 As Long
Dim 最初行 As Long
Dim 最終行 As Long
Worksheets("顧客リスト").Activate
最終行 = Range("B65536").End(xlUp).Row - 10
最初行 = Range("B65536").End(xlUp).Offset.End(xlUp).Row - 9
Worksheets("宛名印刷").Activate
For 番号 = 最初行 To 最終行
Sheets("宛名印刷").Range("E1").Value = 番号
Sheets("宛名印刷").PrintOut
Next 番号
End Sub
|
|
YN61
- 04/6/7(月) 19:37 -
