てとらぽっとさん、こんにちは。

＞ohtaさん、こんにちは。
＞
＞＞一回の印刷で複数のフォーマットの印刷を行いたいのですが、印刷メッセージが帳票毎に表示されてしまいます。
＞
＞Print(False) で印刷するとダイアログが出ません、って回答は冗談です。(^^;
＞
＞PrintDataWindow() 関数を使えば簡単に出来ます。詳しくはヘルプをご覧ください。
＞
＞job = PrintOpen() 
＞PrintDataWindow(job, dw_1)
＞PrintDataWindow(job, dw_2)
＞PrintClose(job)

さっそくありがとうございます。

上記の方法で印刷できました。
しかし印刷のダイアログ自体は表示したかったのですがそういうわけにはいかないんですね。

あと、
１枚目は縦で印刷し、２枚目以降は横で印刷したいのですが、
１枚目、２枚目共に縦で印刷されてしまいます。
この印刷方向の制御は可能なのでしょうか。