- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：印刷範囲の設定がうまくいきません。教えてください）
エクセルマクロで印刷範囲の設定がうまくいかない！どうすればいい？
このQ&Aのポイント
- エクセルのマクロで、データの５列目の最終行を探し、その行の一列目から右に１２列、上に２０行の範囲を印刷したいのですが、うまくいきません。どのように記述すればよいのでしょうか。
- 記述したマクロでは、一列目の一行目から１２列目の最終行まで印刷されてしまいます。正しい印刷範囲を設定するにはどうすればいいのでしょうか。
- エクセルのマクロで印刷範囲を設定する際、データの５列目の最終行から上に２０行、右に１２列の範囲を印刷したいのですが、うまくいきません。正しい範囲を設定するにはどのようにすればいいのでしょうか。
- qwer098123
- お礼率100% (33/33)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
Dim r As Range Set r = Cells(Rows.Count, 5).End(xlUp).Offset(-19, -4).Resize(20, 12) ActiveSheet.PageSetup.PrintArea = r.Address ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Set r = Nothing みたいな感じでしょうか？
お礼
早速にご回答有難うございました。 印刷の実行をしてみたところ確かに期待したどおりに できました。これで前に進めます。 すっきりしたプログラム有難うございました。