Excel VBA 質問スレ Part83 (632ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん

---

313(1): 07/01(火)00:25 ID:AnMu1HLz(1/2) AAS
Chatさんに聞いてみたけど面倒くさそう。

' 例：20行目の上に改ページ（21行目から新しいページ）
余白2cm
Sub 印刷設定サンプル()

Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Sheet1")

With ws
.ResetAllPageBreaks
.HPageBreaks.Add Before:=.Rows(21)

With .PageSetup
省15

---

314: 07/01(火)00:32 ID:AnMu1HLz(2/2) AAS
続き。こういうのも多分いるよね。

指定した行数がA4印刷1ページに収まるかを調べ収まらない場合は改ページを設定する

各行の高さを合計して、ページ内に収まるかを判定。A4の印刷可能範囲の高さ（ポイント単位）と比較。オーバーするならその直前に 改ページを入れる。 A4用紙の印刷可能な高さ（おおよそ）
A4縦の高さ：29.7 cm = 約842 pt
上下余白（例）：2cm + 2cm ≒ 113 pt（計）
⇒ 実質印刷可能範囲：約729 pt
※余白・ヘッダー・フッターにより変動
コード例
Sub 自動改ページ_行数と印刷高さを基準に()
Dim ws As Worksheet
省20

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

ぬこの手 ぬこTOP 1.093s*