Excelの印刷に関しては多くの質問回答が出ておりますが可否を確認したいので質問を上げさせていただきます。

大まかな処理の流れとしては白ﾌﾞｯｸを起動し文字入力等の編集を行いPC-FAX（ﾌﾟﾘﾝﾀFAX）に送信する。

Windowsの通常使うﾌﾟﾘﾝﾀは他のﾌﾟﾘﾝﾀに設定されているがPC-FAXをその設定にするのは不可。

Excelのｼｰﾄ印刷設定を通常縦になっているものを横に変更し1ﾍﾟｰｼﾞ内に収まるよう縮小設定。

通常を横設定にするのは不可。

ｽｸﾘﾌﾟﾄを作って実行してみましたが一部ﾒｿｯﾄﾞが対応していないというｴﾗｰが発生し頓挫しました。

現行は用紙設定およびﾌﾟﾘﾝﾀ指定印刷をﾏｸﾛとしｼﾅﾘｵ印刷処理の前で外部Vbs（ｴｸｽﾎﾟｰﾄしたﾏｸﾛ）を取込みマクロ実行。

動作的にはそれで問題はないのですがスッキリしないので可能であればWinActorのｽｸﾘﾌﾟﾄ実行のみで完結したいと考えております。

ただ、上記にも書いたように用紙向きを変更するﾒｿｯﾄﾞが対応していないと言われる中でそのようなことは可能なのでしょうか？

（印刷ﾀﾞｲｱﾛｸﾞを画像ﾏｯﾁﾝｸﾞで・・・というｼﾅﾘｵは考えていないので省かせて頂きます）

--- 以下外部Vbs ---

Sub FAX送信()
'アクティブプリンタにFAXを指定
　With ActiveSheet.PageSetup
　　.LeftMargin = Application.InchesToPoints(0.25)
　　.RightMargin = Application.InchesToPoints(0.25)
　　.TopMargin = Application.InchesToPoints(0.75)
　　.BottomMargin = Application.InchesToPoints(0.75)
　　.HeaderMargin = Application.InchesToPoints(0.3)
　　.FooterMargin = Application.InchesToPoints(0.3)
　　.Orientation = xlLandscape
　　.PaperSize = xlPaperA4
　　.FitToPagesWide = 1
　　.FitToPagesTall = 1
　End With
　ActiveWindow.SelectedSheets.PrintOut ActivePrinter:="Fax"

End Sub