Q&A
pageSetUpオブジェクト内で改行まで完結させたいのですが、うまくいっていません。
お教えください。
ResetAllPageBreaksとすべてクリアすると初期値の列改ページがばらつきがあり、columnWidthで列幅を揃えましたがそれでもシートごとに列改ページ（青線）が変わっているので止む無く、pageSetUpのprintAreaプロパティで列を指定しました（例： "A:AS"）。
printAreaを指定すると行数に関係なく１枚に収まる設定になっており、どのようにすれば改ページ出来るかで悩んでいます。
やってみたこと
-
FitToPagesWideでページ数を設定（数指定が決まっていて多めに設定）＝＞効いていない。ドキュメントには書いていないがprintAreaとの併用は無理なのかもしれない。 -
with文
pageSetUpを抜けた後にpageBreakオブジェクトを設定（printAreaで列は設定されたので後は行の改行だけ）＝＞改行が出来ない。（手動で「ファイル」、「印刷」、「シートを１ページに印刷」から「すべての列を１ページに印刷」なら変更できる）
pageSetUpは印刷設定を自由に設定することが出来るので使い勝手が良いと感じますが、改行だけがネックになっています。
うまくいく方法を宜しければお教えください。
vba
1Sub 報告書の印刷範囲を指定する() 2 Dim reportFolderPath As Variant 3 Dim reportObj As Object 4 Dim reportWb As Workbook 5 Dim reportWs As Worksheet 6 Dim i As Integer 7 8 reportFolderPath = "C:\Users\masas\Documents\sample報告書-完成\" 9 10 With CreateObject("Scripting.FileSystemObject") 11 For Each reportObj In .getfolder(reportFolderPath).Files 12 Set reportWb = Workbooks.Open(reportObj) 13 For Each reportWs In reportWb.Worksheets 14 endRows = reportWs.Cells(Rows.count, 1).End(xlUp).Row 15 For i = 1 To 46 16 reportWs.Columns(i).ColumnWidth = 1.29 17 Next i 18 reportWs.ResetAllPageBreaks 19 With reportWs.PageSetup 20 .PrintArea = "A1: AS" & endRows '"A:AS"から変更 21 .Zoom = False 22 '.FitToPagesTall = 1 23' .FitToPagesWide = 10 24' .LeftMargin = Application.InchesToPoints(0.8) 25' .RightMargin = Application.InchesToPoints(0.3) 26' .BottomMargin = Application.InchesToPoints(0.8) 27 28 End With 29 For i = 50 To endRows Step 50 30 'reportWs.Columns(46).VPageBreak = xlPageBreakManual 31 reportWs.Cells(i, "AT").PageBreak = xlPageBreakManual 32 Next i 33 Next reportWs 34 Next reportObj 35 End With 36End Sub
回答1件
0
ベストアンサー
pageSetUpオブジェクト内で改行まで完結させたいのですが、うまくいっていません。
んと、VBAから設定しようが手動で設定しようが、出来ることは変わらないので、
まずは、改ページプレビューの画面を表示して、眺めてみてください。
その上で、どこに改ページを挿入するのかルールを考えてみてください。
VBAの命令は手動の操作を「マクロの記録」という機能でVBAに翻訳して記録してくれますので、それで知ることができます。
やりたいことは、
シート上にいくつかの表が配置されていて、
その表を表ごとに紙一枚に収めて印刷したいということですか？
ならば、表毎に印刷範囲を設定して印刷すればいいように思いますが、
印刷範囲の設定（=pageSetUp）は、重いので少し処理に時間が掛かるかもしれません。
まずはやりたいことを伝わるように説明してみてください。
コードに向かう前に作業手順の確立が先だと思いますよ。
あ、表毎に1枚で印刷するとして、
表の中に、空白行や空白列が存在しますでしょうか？
その辺も説明をお願いします。
ああああ、失礼しました。
やっと、理解したかも＾＾；
失礼しました。
マクロの記録で出来たコード（.Zoom = False）をコピペしたらエラーになるという事でしたか＾＾；
で、どう回避すればいいかを質問されているのですね。
ExcelVBA
1Sub Macro3() 2 Dim ws As Worksheet 3 Dim rng As Range 4 5 For Each ws In ThisWorkbook.Worksheets 6 With ws 7 .ResetAllPageBreaks '改ページのクリア 8 Set rng = .UsedRange '←上手く行くための呪文 9 With .PageSetup 10 .PrintArea = "" 11 .Zoom = False '印刷範囲のクリア 12 .FitToPagesTall = False '←縦は自動の設定にする 13 .FitToPagesWide = 1 '幅方向を1ページに 14 End With 15 End With 16 Next 17End Sub
リボン上で設定をいじるとわかると思いますが、
幅方向のページ数を設定することと、
拡大縮小の設定をすることは同時にはできません。
先に設定した方が優先になりそうですかね？
そこで、無効になっている設定をいじろうとするからエラーになるのかな？
（勘で出来るだけエラーにならないであろう手順で書いたら、
エラーにならなかったので、エラーになる場合を検証していませんm(_ _)m)
この流れで処理したら行けるのではないかと思います。
ここまでで、お分かりとは思いますが、
マクロの記録では不要なコードも記録される場合が多いです。
ヘルプで確認して不要な部分は削除して構いません。
あと、マクロの記録も完璧ではありませんので、
微妙な調整が必要な場合がありますので、心に留めておいてください。
最後になりましたが、物分りが悪く、不要な説明を要求しました。
失礼しましたm(_ _)m
んと最初にプロパティ名で説明されてたじゃないですか。
自分、英語が苦手なんで基本、アルファベットは飛ばし読みしてます。
それに、エクセルの設定の話なんで、日本語で説明していただけるとありがたかったです。
あと、ここのサイトの強調文字も読みにくいので、それもあって、
説明が頭に入らなかったような気がします。
で、
リボン上でいろいろいじくってみたらわかると思いますし、
薄々分かっておられると思いますが、
印刷範囲の設定（PrintArea）を設定した場合、
横の縮小（FitToPagesWide）や縦の縮小（FitToPagesTall）
が無効になるようです。（全体の拡大縮小は有効）
横の縮小や縦の縮小
（基本的にはどちらかを設定し、どちらかを自動で使うものでしょう）を
設定した場合、
全体の拡大縮小は無効（両方利用するのは矛盾がある）
という仕様のようです。
今回の件の場合、
要件としては、 「シート上の印刷出来るものがあるセル範囲の内、左から45列分を紙1枚に収めたい。」 （縦にはみ出す分は次ページでOK）（という事だろうと思います。） で、前提条件として、 シート上の印刷できるものがあるセル範囲は、 45列以上ある。（意図的にしているのか、操作者が誤ってセルの書式設定等をいじった） ということは、印刷範囲の設定をすることになる。必然的に横の縮小は使えないので、 上手く列方向が1ページに納まらない。なにかいい方法がないか？ (同じ様式のシートが多数あるので最終的にはこの操作をマクロ化したいと考えている。）
と、質問してくれるとこちらも何度も聞きなおさなくてもよかったのかなぁと思います。
まぁ、なかなか最初から整理して質問するのは難しいので、
今回のように、やり取りしながら、頭を整理して説明していただけたらいいのかなとは、思います。
こういう場合、エクセルの設定をいじるだけの話なので、
VBAで書いて実行してみるのは、
直接触られるものをわざわざラジコンで遠隔操作しているような
ものなので、まどろっこしいと思います。
直接、エクセルの画面上でまずは挙動確かめるほうが楽です。
その上で、どのような設定で希望の印刷ができるかをまずは見つけることができれば、
その操作をマクロの記録でVBAに翻訳してもらい、コードを探ると開発が楽になると思います。
では、どのような設定（あるいは操作）で希望の結果が得られるか。
まずは、印刷範囲の設定を希望のセル範囲に設定したうえで、
自動的に設定される縦方向の改ページを意図的に削除してやるといいと思います。
（操作的には、改ページの線を印刷範囲外に追いやる。）
コード的には以下のようになると思います。
ExcelVBA
1Sub Macro4() 2 With ActiveSheet 3 .PageSetup.PrintArea = .UsedRange.Resize(, 45).Address 4 With .VPageBreaks 5 If .Count > 0 Then 6 .Item(1).DragOff Direction:=xlToRight, RegionIndex:=1 7 End If 8 End With 9 End With 10End Sub
やりたいことは、合ってますかね？ちょっと不安です＾＾；
こちらも、反射的に思いつきで書いちゃうので、的外れなことも言ったりしますが、
その辺はやり取りしながら、掏り合わせて行けたらと思います。ご容赦のほどを。
投稿2019/06/08 03:43
編集2019/06/09 01:31
総合スコア2167
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2019/06/08 10:31
2019/06/08 11:11
2019/06/08 11:25
2019/06/08 11:45
2019/06/08 11:50 編集
2019/06/08 12:30
2019/06/08 12:41 編集
2019/06/08 13:45
2019/06/08 13:57
2019/06/08 21:37
2019/06/09 04:54