kenzyさん、こんばんは。

＞printSetup()
＞
＞job=printopen()
＞  printtext(job,string(today(),\"日付：mm/dd hh:mm:ss\"),6500,300)
＞  printscreen(job,500,1000,7000,4500)
＞printclose(job)
＞上記の方法もためしてみましたが
＞設定した内容が反映されず、A4縦で出力されます。（ネットワークプリンタを使用しています。）

おかしいですね。
たしか、PrintSetupでの設定は直接ドライバを呼び出して
印刷設定していると思いますので、
WORDやEXCELからのプリンタの設定についても
印刷方向が変更できないと思うのですが。
どうでしょうか？

もし、WORDやEXCELでも印刷方向が設定できなければ
プリンタ本体の設定が固定になっているかもしれません。
只、私の環境について、プリンタ本体の印刷方向は
縦となっていましたので（それでも変更できました）、
プリンタの機種により設定は変わってくるかもしれません。

私の使用しているプリンタはEPSON LP-9200SX
ドライバは最新のものを使用しています。
（イルカの絵があるものです。）

あと、開発するAPが全画面の大きさでしたら
よろしいのですが、こてちゅさんのおっしゃるとおり
printscreenよりもWindow.printの方が
ウィンドウオブジェクトのみ印刷できて
きれいだと思います。
引数等はPrint関数を参照してください。