作成者	カテゴリ	返答の対象		公開
RYU 06/02/2001 09:08 AM		EXCELのページ設定の操作

私はこんな感じでやりました。
Excel2000ですので、もしかしたら若干異なるかもしれないですが。。
Excelのマクロ記憶でページ設定を行い、
その内容をそっくり持ってくれば実現できると思います。

--------------------------------------------------------
Dim Book As Variant ' Excel Book
Dim Sheet As Variant ' Excel Sheet

Set Book = CreateObject("Excel.Sheet")
Set Sheet = Book.Worksheets(1)

' ページ設定
With Sheet.PageSetup
.Orientation = 2 ' = xlLandscape ' 横方向
.PaperSize = 9 ' = xlPaperA4 ' A4用紙
' .FitToPagesWide = 1 ' 横方向を１枚に納める
' .FitToPagesTall = False ' 縦方向を１枚に納める
' .zoom = False ' 拡大／縮小
End With