Ｅｘｓｅｌ2000ページ設定（ＶＢＡ）について

Question

このごろ度々お世話になっております。

エクセルでのページ設定で、"ワークシートを何ページに収めて印刷"するか設定できると思うのですがそれを指定してしまうと、他で指定した余白設定とかは無視されてしまうのでしょうか？

ＶＢＡで
'ページ設定
        Set SENTAKU = Workbooks(3).Sheets(1)
            With SENTAKU.PageSetup
                .Orientation = xlLandscape
                .Zoom = False
                .FitToPagesWide = 1
                .TopMargin = 55
                .BottomMargin = 15
                .RightMargin = 0
                .PrintTitleRows = "$2:$5"
            End With
としたら、見事にMarginが無視されてました。

右の余白「0」は捨てられないのですが、セルの幅が増えても今のデータを横1枚で収めたいと考えてます。
（左の余白は少しぐらい減ってもいいが、どちらかというとZoomを変更して横1枚に収めたい。ちなみに縦は何ページでも可）

PageSetupでそのような設定ができないのなら横がはみ出したら、違うページ設定みないなのをIf文で書くことは可能なのでしょうか？
（横がはみ出したらAの設定（Zoomの縮小率が少し多い）、1枚で収まったらBの設定のような）

よろしくお願いいたします。

Wendy02 · Accepted Answer

こんにちは。

この件は、私は特別の関心を持っていますが、VBAの中で、一番扱いにくい部分だと思います。

＞「デフォルトの余白」でいいかなと思っていたのですが、

だから、やはり、「0」という選択肢はあると思います。

ちょっと遠回りの話になりますが、Excelの「物理的左余白」というのが、私は、一体何なのかよく分かりません。実際の物理的左余白なんて、数ミリのはずなのですが、違う数値が存在しているようです。これで、大幅に印刷に影響するようなことはありませんが、最大限ということなら、「0」を入れることが出来ると思います。

＞右の余白は出来る限りいっぱいまでというつもりで「0」にしたのですが、

それは、右改行位置が、途中になるかならないかで、列で、切り捨てられてしまうからなんですね。だから、セル幅に依存してしまうわけなのです。つまり、右端のセル幅以内なら、どの数値を入れても同じことになってしまいますね。

＞印刷範囲はデータの行の終点が毎回違うため（たまにノーデータがあるためendも使えない）、設定しにくくなっています。（列数は固定です）

65536行の一番下から、End(XlUp) ではないのですか？
それは、状況によって、関数やマクロにして、いろんな方法が出せるように思います。データの行の終点は、どのような考え方ですか？

＞ちなみに”DOCUMENT(65)”とは何を意味しているのでしょうか?ネットで調べたのですがGET.DOCUMENT関数というのがあるのはわかったのですが使い方まで書いていませんでした（泣）

これは、元々は、昔、ある達人さんから教わったテクニックです。

GET.DOCUMENT(65)

現在手に入る資料をもとにすれば、以下のように書かれています。
An array of column numbers corresponding to columns that are immediately to the right of a manual or automatic page break.

「手動・自動改行の直右の位置の列番号を配列で出す」
他にも出し方はあるのですが、この方法が一番確実なのです。

http://office.microsoft.com/ja-jp/assistance/HP010475331041.aspx

全部英語なんです。

なんとか、私は解決に結び付けたいと思います。

Wendy02 · Answer

こんにちは。

まず最初に、

.LeftMargin 　の設定がないようなのですが、デフォルトでは、Excelとプリンタ・ドライブとの間で決められている、「デフォルト余白」か、予め設定している余白になるはずだと思います。それでは、「０」にすると、どうなるかというと、「物理的余白」になります。。

しかし、反対側の右の余白(.RightMargin)「０」は、物理的にはありえないようになっています。論理値だけです。

それは、つまり、これは別の見方をすると、

左の物理的余白＋左の設定余白＋
　　　(セルの幅の積み上げ＋セルの調整余白)＞設定用紙の幅

　(あくまでも、この計算の考え方は、私の推測から作られたものです。)

それで、その(論理的)計算で、もしも、設定用紙の幅より超えることがあれば、セルの自動改行が途中で入ります。これは、物理的な計算ではありません。

ただ、いずれにしても、こういうのは、VBA限定の処理では、あまりうまくいかないひとつです。おそらく、Excel内部で設定しているからなのだと思います。

なお、それらの設定値は、ポイントになっていますので、気をつけてください。

幅が収まらないときのサンプルコードです。
MsgBox のところに、実行に必要なコードを入れ替えてください。

Sub testsample()
Dim vc As Variant
　　vc = ExecuteExcel4Macro("COLUMNS(GET.DOCUMENT(65))")
　　If Not IsError(vc) Then
　　　If vc > 1 Then
　　　　MsgBox "幅が、1枚に収まりません。"
　　　End If
　　End If
End Sub

Ｅｘｓｅｌ2000ページ設定（ＶＢＡ）について

こんにちは。

こんにちは。

この回答への補足

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング