マクロを使って印刷範囲を指定したのに

質問

エクセルでボタンをクリックすると印刷範囲を指定し印刷プレビューまで行えるようにマクロを登録しました。
（A～C列+J～U列）を印刷したいので、D～I列を非表示にし、その後A～Uを選択→印刷→選択した部分にチェック→印刷プレビュー→印刷の方法でマクロ登録しました。登録作業中は正しく印刷できましたが、実際にボタンをクリックするとプレビューには（A～C列+M～U列）しか表示されません。
何度やり直してもダメで、D：Oを非表示にしてA:AAを選択後に印刷プレビューする場合は（A～C列+P～AA列）が正しく印刷できました。非表示にする列が違う場合はできたのに、どこがいけないのでしょうか？
以下のような感じになっています。
Columns("D:I").Select
Selection.EntireColumn.Hidden = True
Range("A4:U43").Select
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True ActiveWindow.LargeScroll Down:=-1
Columns("C:J").Select
Selection.EntireColumn.Hidden = False
End Sub
説明がうまくできないのですが、宜しくお願いします。

回答No.1

pkh4989 · ベストアンサー

こんにちは。

質問の意味がよく解りませんが、マクロを書き直してみました。試してみて下さい。

Selection.PrintOut Copies:=1, Preview:=True, Collate:=True
ActiveWindow.LargeScroll Down:=-1　　 '←-1に指定されているので意味がないのでは・・・

書き直したマクロ
↓
Sub 印刷()
　　Columns("D:I").EntireColumn.Hidden = True '←D～I列を非表示
　　Range("A4:U43").Select
　　ActiveSheet.PrintPreview '←プレビューの時
　　ActiveSheet.PrintOut Copies:=1 '←印刷の時
　　ActiveSheet.Cells.EntireColumn.Hidden = False '←非表示列全てを再表示
End Sub

お礼

ありがとうございました。
説明が下手ですみませんでした。やってみたのですが、今度は（A～C+J～AM）と選択してないAM列まで印刷されてしまいました。（表がAM列までります）あと少しのところなのですが・・・3P印刷されてしまったので、その1P目だけ印刷できれば良いのですが。

補足

プレビューの時の代わりに
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True
を入力してみたら、正しくできました！
大変助かりました、ありがとうございました。
（補足とお礼が逆のようになってしまいました、すみません）