Exsel2000ページ設定(VBA)での余白設定について

質問

• Exsel2000ページ設定(VBA)での余白設定について解説します。
• ワークシートを何ページに収めて印刷するか設定できるが、余白設定は無視されるのか疑問。
• VBAのPageSetupでは余白設定が無視されるため、横がはみ出した場合のページ設定についても考慮する必要がある。

回答No.1

Wendy02

こんにちは。

まず最初に、

.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

お礼

ご回答ありがとうござます。

左については、「デフォルトの余白」でいいかなと思っていたのですが、全部設定したほうが良いのかもしれないと思い「55」ポイントで設定しようと思います。
右の余白は出来る限りいっぱいまでというつもりで「0」にしたのですが、実際「10」ぐらいにしても変わらないくらいの余白が空くので（5mmぐらい）、「0」としておくよりは「10」にしておいたほうが良いのかもしれません。
問題の自動改行ですが、
サンプルコードを使用してみた結果、
自動改行されたシートはどうもエクセルのなかでは1枚のつもりらしくちゃんと機能してくれません（印刷すると2枚なのに）、印刷範囲の設定をするとやっと「幅が1枚に～」のメッセージボックスが出てきました。
印刷範囲はデータの行の終点が毎回違うため（たまにノーデータがあるためendも使えない）、設定しにくくなっています。（列数は固定です）
もうちょっと良い手を考えてみます。
ありがとうございました。

ちなみに”DOCUMENT(65)”とは何を意味しているのでしょうか?ネットで調べたのですがGET.DOCUMENT関数というのがあるのはわかったのですが使い方まで書いていませんでした（泣）
お手数おかけします。よろしくお願いいたします。

補足

＜お礼に対する補足＞
結局、列数は変わらないのに一定のセル幅の増減があるため横が入りきらなくなることを考え、
ぎりぎり1枚で収まる幅を確認してそれ以上の列幅であればページ設定を変更するというマクロにしました。
ご迷惑をおかけして申し訳ありませんでした。

'ページ設定
e = Range("B1").Width
Set SENTAKU = Workbooks(3).Sheets(1)
If e < 132 Then
With SENTAKU.PageSetup
.Orientation = xlLandscape
.Zoom = 55
.LeftMargin = 55
.TopMargin = 55
.BottomMargin = 20
.RightMargin = 10
.PrintTitleRows = "$2:$5"
End With
Else
With SENTAKU.PageSetup
.Orientation = xlLandscape
.Zoom = 50
.LeftMargin = 45
.TopMargin = 55
.BottomMargin = 20
.RightMargin = 10
.PrintTitleRows = "$2:$5"
End With
End If