Sub 印刷設定を変更する() Call 文字列を90度回転する Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") ' シート名を適宜変更してください With ws.PageSetup ' 印刷の向きを横向きに設定 .Orientation = xlLandscape ' ページに合わせて印刷 .FitToPagesWide = 1 .FitToPagesTall = 1 ' ヘッダーにブック名とシート名を設定 .LeftHeader = "&""Meiryo,Bold""&20 " & ThisWorkbook.Name …