エクセルVBAの印刷方法について

質問

• エクセルVBAにおいて、指定した範囲での印刷を行いたいと考えています。
• 指定した範囲での印刷を行う際、データの存在に応じて複数ページに分けて印刷したいと思っています。
• 印刷の改ページ条件は特定の列の値が変わった場合であり、その範囲で印刷を行いたいです。

回答No.2

deecyan

#1 の訂正　です　ごめんなさい
×　印刷範囲を　$1:$2　としてください。
○　行のタイトルを　$1:$2　としてください。

ところで　ソートはしてあるの？　不要？
不要だったら　途中からにしてください

Sub insatu001()
' Sort
Rows("3:" & ActiveSheet.UsedRange.Rows.Count).Select

Application.CutCopyMode = False
Selection.Sort Key1:=Range("F3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin

' ソートしてあったら　とか　しなくて良い場合　ここから
oldkey = ActiveSheet.Cells(3, 6).Text

' 最終行まで　ループ
For ii = 3 To ActiveSheet.UsedRange.Rows.Count
'キーが変わったか？
If oldkey <> ActiveSheet.Cells(ii, 6).Text Then
'改ページを入れる
Rows(ii).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
'キーの入れ替え
oldkey = ActiveSheet.Cells(ii, 6).Text
End If
Next
End Sub

補足

こんにちは。
毎度ありがとうございます。

キーごとに印刷ページを分けることができました。
ありがとうございます。

ちなみに、印刷するのはTgtSheetの方で、コピー元のFrmSheetのページ設定や印刷範囲を全てコピーすることは可能なのでしょうか？

知っていましたら教えてください。
お願いします。