Visual Basic 中学校 掲示板 エクセルによる改ページの管理
タグのない投稿を抽出
統計
RSS
Visual Basic 中学校
投稿一覧
エクセルによる改ページの管理
エクセルによる改ページの管理 への返答
投稿で使用できる特殊コードの説明
。(別タブで開きます。)
お名前
本名は入力しないようにしましょう。
削除パスワード
投稿した後で削除するときに使うパスワードです。返答があった後は削除できません。
社会的身分
社会人
学生
高校生
中学生
小学生
秘密
その他
返答する人が目安にします。相手が小学生か社会人かで返答の仕方も変わります。
解決
解決時にチェックしてください。
最初の投稿が質問の場合、質問者が解決時にチェックしてください。(以降も追加書き込み・返信は可能です。)
本文
※「過去ログ」について書くときはその過去ログのURLも書いてください。
プレビュー
以上の内容で投稿する
確認ワード
表示されている文字をそのまま入力してください。
以下の返答は逆順(新しい順)に並んでいます。
投稿者
allgreen
(社会人)
投稿日時
2009/1/19 20:53:15
エクセルのシートを印刷するためのマクロで、場合よって縦で印刷したり横で印刷したりする場合
改ページの設定を管理したいときが出てきます。
困っていたことが、自己解決できましたので他の人も問題に遭遇するかもしれませんので報告をしておきます。
まず、改ページの設定をするのに
10行目が次の頁の先頭の場合
ActiveSheet.HPageBreaks.add rows(10)
とする方法と
ActiveSheet.cells(10,1).PageBreak=xlPageBreakManual
の２種類があります
エクセルのヘルプにあるサンプルには、上側の方法がよく書いてあります。
次に、改ページの設定を解除するのに
改ページの１番目を解除
ActiveSheet.HPageBreaks(1).delete
10行目が先頭になる改ページを解除
ActiveSheet.cells(10,1).PageBreak=xlPageBreakNone
の２種類があります
これもエクセルのヘルプにあるサンプルには、上側の方法が書いてあるのですが
エクセル９８では問題なかったのですが、エクセル2002以降だと
印刷範囲を指定している場合、上側の方法では
「アプリケーション定義エラーまたはオブジェクト定義エラーです」となります。
下側の方法だとエラーはおこりません。
それと、改ページの数がいくつ全体であるのかを取得する
改ページの数=ActiveSheet.HPageBreaks.count
なのですが、たまに間違った数を返す時があります（たぶんどこかにバグがあるのでしょう）
改ページの数の範囲にあるはずの、ActiveSheet.HPageBreaks(番号)が、インデックスが
範囲外ですとなることがあります。
これもエクセル９８のときは、おこらなかったエラーです。
それと、「改ページプレビュー」表示のときはエラーにならないのに「標準」表示のときは
エラーになるというときもあります。
改ページの設定をすべて削除する方法に
いろいろなところに
ActiveSheet.cells.PageBreak=xlPageBreakNone
と書いてありますが
これを、「改ページプレビュー」表示のときにすると、エラーになります。
「標準」表示のときは正常に動きます。
これの回避策ですが、
ActiveSheet.ResetALLPageBreaks
こっちだと表示方法によらずに、正常に動きます。
エラーになる原因は、エクセル９５時代の情報の保存方法と、エクセル2002以降の方法が違うのと
それに対するマクロのコマンドの違い、（昔のコマンドでも文法エラーにはならないが
細かい動きのときにエラーになる）、そのわりにヘルプファイルが新しくなっていない、などなど
以上、報告です。
どこかに、新旧エクセルの違い（昔は動いたけど今はエラーになる）それに対する回避方法一覧
というのは、ないものでしょうかね
改ページの設定を管理したいときが出てきます。
困っていたことが、自己解決できましたので他の人も問題に遭遇するかもしれませんので報告をしておきます。
まず、改ページの設定をするのに
10行目が次の頁の先頭の場合
ActiveSheet.HPageBreaks.add rows(10)
とする方法と
ActiveSheet.cells(10,1).PageBreak=xlPageBreakManual
の２種類があります
エクセルのヘルプにあるサンプルには、上側の方法がよく書いてあります。
次に、改ページの設定を解除するのに
改ページの１番目を解除
ActiveSheet.HPageBreaks(1).delete
10行目が先頭になる改ページを解除
ActiveSheet.cells(10,1).PageBreak=xlPageBreakNone
の２種類があります
これもエクセルのヘルプにあるサンプルには、上側の方法が書いてあるのですが
エクセル９８では問題なかったのですが、エクセル2002以降だと
印刷範囲を指定している場合、上側の方法では
「アプリケーション定義エラーまたはオブジェクト定義エラーです」となります。
下側の方法だとエラーはおこりません。
それと、改ページの数がいくつ全体であるのかを取得する
改ページの数=ActiveSheet.HPageBreaks.count
なのですが、たまに間違った数を返す時があります（たぶんどこかにバグがあるのでしょう）
改ページの数の範囲にあるはずの、ActiveSheet.HPageBreaks(番号)が、インデックスが
範囲外ですとなることがあります。
これもエクセル９８のときは、おこらなかったエラーです。
それと、「改ページプレビュー」表示のときはエラーにならないのに「標準」表示のときは
エラーになるというときもあります。
改ページの設定をすべて削除する方法に
いろいろなところに
ActiveSheet.cells.PageBreak=xlPageBreakNone
と書いてありますが
これを、「改ページプレビュー」表示のときにすると、エラーになります。
「標準」表示のときは正常に動きます。
これの回避策ですが、
ActiveSheet.ResetALLPageBreaks
こっちだと表示方法によらずに、正常に動きます。
エラーになる原因は、エクセル９５時代の情報の保存方法と、エクセル2002以降の方法が違うのと
それに対するマクロのコマンドの違い、（昔のコマンドでも文法エラーにはならないが
細かい動きのときにエラーになる）、そのわりにヘルプファイルが新しくなっていない、などなど
以上、報告です。
どこかに、新旧エクセルの違い（昔は動いたけど今はエラーになる）それに対する回避方法一覧
というのは、ないものでしょうかね