変数を使って、印刷範囲を設定する記述を教えてください。 | |
---|---|
[196188] 変数を使って、印刷範囲を設定する記述を教えてください。- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ TaroKawa -(2024/04/28(03:08)) □U R L/ 次のように、記述しました。ネットでの例をコピペしながら、やってみているのですが、うまくいきません。どこが間違っているの教えていただけると幸いです。 印刷範囲の最後の行の変数をVryLst_Rowとしています。 印刷範囲の列はA〜Dまでです。 印刷開始行は1行目からです。(A1) ご指導よろしくお願いいたします。 Worksheets(4).Select VryLst_Row = Range("A1").End(xlDown).Row Worksheets(4).PageSetup.PrintArea = Range(Cells(1, 1), Cells(VryLst_Row, "D")).Address Worksheets(4).PrintOut FROM:=1, To:=1, Copies:=1 この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒Windows 2000 Version⇒Excel 2007 ++++++++++++++++++++ |
[196189] Re[1]: 変数を使って、印刷範囲を設定する記述を教えてください。- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2024/04/28(12:03)) □U R L/ 一目、問題らしきところが見当たらないのですが、 どう うまくいかないのでしょうか? |
[196190] Re[2]: 変数を使って、印刷範囲を設定する記述を教えてください。- ■記事引用/メール受信=ON■ □投稿者/ TaroKawa -(2024/04/28(20:10)) □U R L/ 一行目から50行目まで印刷範囲指定しても、途中の行までしか印刷されません。 |
[196191] (削除)- ■記事引用/メール受信=OFF■ □投稿者/ / -(2024/04/28(21:00)) □U R L/ この記事は削除されました |
[196192] Re[3]: 変数を使って、印刷範囲を設定する記述を教えてください。- ■記事引用/メール受信=OFF■ □投稿者/ 半平太 -(2024/04/28(21:01)) □U R L/ データの途中に空白があると言うことなんじゃないですか? その場合は、下から最終行番号を探る必要があります。 > VryLst_Row = Range("A1").End(xlDown).Row ↓ VryLst_Row = Cells(Rows.Count, "A").End(xlUp).Row |
[196193] Re[4]: (削除)- ■ / 記事引用/メール受信=OFF■ □投稿者/ TaroKawa -(2024/04/28(21:48)) □U R L/ 範囲指定の書式が悪いのか、うまくいかなかったので、印刷したい範囲の下と飢えを順番に行削除し、出来上がったものを印刷するという記述にして、うまくいきました。 ご協力ありがとうございました。 |
このトピックに書きこむ |
---|