Excel VBA 質問スレ Part83 (705ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞
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
315: 07/01(火)07:51 ID:hLMayhbM(1/2) AAS
>>313
このコードは何をしているかというと、
21行目の上 つまり20行目と21行目に改ページを設定して
上にヘッダー？を設定して
縮尺解除
全列を1ページに収める
行のページ数は自動
用紙サイズはA4
という設定をしています
しかし、改ページの設定は
省2
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 1.092s*