313(1): デフォルトの名無しさん [sage] 2025/07/01(火) 00:25:06.97 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
.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

316(1): デフォルトの名無しさん [sage] 2025/07/01(火) 12:47:55.21 ID:cyOlFSbV(1) AAS
インスパイアされて作ってみた
関西のコミュニケーションの多様性にはリスペクトしか無い
外部ﾘﾝｸ:89.gigafile.nu
ネィティブでは無いので誤りが有ったら指摘もらえば改良もやぶさかではない
Captionだけじゃ物足りないので喋らせてみたが、これが結構ドツボ
ExcelでのSpeakは、まだまだ途上らしい