Excel VBA 質問スレ Part83 (632ﾚｽ)
Excel VBA 質問スレ Part83 http://mevius.5ch.net/test/read.cgi/tech/1749348402/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
ﾚｽ栞
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
313: デフォルトの名無しさん [sage] 2025/07/01(火) 00:25:06.97 ID:AnMu1HLz Chatさんに聞いてみたけど面倒くさそう。 ' 例：20行目の上に改ページ（21行目から新しいページ） 余白2cm Sub 印刷設定サンプル() Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") With ws .ResetAllPageBreaks .HPageBreaks.Add Before:=.Rows(21) With .PageSetup .PrintTitleRows = "$1:$3" .Zoom = False .FitToPagesWide = 1 .FitToPagesTall = False .Orientation = xlPortrait .PaperSize = xlPaperA4 .LeftMargin = Application.CentimetersToPoints(2) .RightMargin = Application.CentimetersToPoints(2) .TopMargin = Application.CentimetersToPoints(2) .BottomMargin = Application.CentimetersToPoints(2) .CenterHorizontally = True End With End With MsgBox "印刷設定を適用しました。" End Sub http://mevius.5ch.net/test/read.cgi/tech/1749348402/313
315: デフォルトの名無しさん [] 2025/07/01(火) 07:51:53.41 ID:hLMayhbM >>313 このコードは何をしているかというと、 21行目の上 つまり20行目と21行目に改ページを設定して 上にヘッダー？を設定して 縮尺解除 全列を1ページに収める 行のページ数は自動 用紙サイズはA4 という設定をしています しかし、改ページの設定は 改ページビューの青い点線（実はこれが自動改ページ）ではないから 1ページと2ページに余分な空白のページが挟まる http://mevius.5ch.net/test/read.cgi/tech/1749348402/315
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.030s