『見出し＋オートフィルタをかけた行の印刷方法』（ろでます）

こんにちわ、いつもお世話になっております。
ろでますです。

表題に書いてある通り、例えば

A1〜Z5に表題というかシートの説明文（見出しのようなもの）がついているとします。
6行目にオートフィルタをかける項目が設定されているとします。

ちなみに、このデータベースは10000行あるとします。


　　A　　B　　C　　D　　E　〜　Z　
1説明文1
〜
6　　　　　　社名（これでフィルタをかけます）
7　　　　　　 A社
8　　　　　　 B社
〜
10000　　　　 A社


C6で例えば「A社」でオートフィルターをかけると、20行がHitしたとします。
この時、
・A1〜Z5と＋オートフィルタをかけた20行のみを合わせた印刷をしたい。
というのが目的です。

操作で言うと、オートフィルタをかけた後に、印刷範囲選択状態にして、印刷で「選択した部分を印刷」と同等の行為を行いたいということです。

ちなみにとても初心者な書き方ですが、

Range("B6:C6").Select
	Selection.AutoFilter
ActiveSheet.Range(Cells(6, 2), Cells(10000, 3)).AutoFilter Field:=2, Criteria1:="A社"

With ActiveSheet.PageSetup
　　　.FitToPagesWide = 1
　　　End With
ActiveSheet.PrintPreview

とすると、数百ページにわたってプレビューされてしまいます。

どのようにすれば、上手く1頁だけ印刷できるのでしょうか。
よろしくお願いいたします。



＜ 使用 Excel：Excel2010、使用 OS：Windows7 ＞
----
Range("A1").CurrentRegion.Activate
とかですか？
（Ｈara） 2015/03/06(金) 16:35
----
HANA様
コメントありがとうございます。

＞Range("A1").CurrentRegion.Activate 

これで、可視エリアだけ印刷できるとは気づきもしませんでした！

解決いたしました。

誠にありがとうございます。
（ろでます） 2015/03/06(金) 17:07