|
今晩は、質問をさせていただきます。
名簿の葉書宛名印刷について
『顧客リスト』の最左列に連番(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
|
|