[Delphi:90342] TPrinterでのプリンター切り替えでうまく動作しない

[那須@x21]

お世話になります。

Delphiの標準Printerを使用して印刷処理を
行おうとしているのですが、
プリンタの制御がうまくできません。

通常使うプリンターと設定しているレーザープリンターと
納品用のドットプリンタを繋いで
ドットプリンターに出力しています。

処理

　１．TPrinterのキャンバスに描画する。
　２．TプリンターのPrinterindexを通常使用するプリンターから
　　　ドットプリンタに設定する。
　３．EndDocで印刷実行

問題と成っている現象。
１．レーザープリンターを、通常使用するプリンターにしていると
　　ドットプリンタに印字は正常にされるが
　　改ページが、Ａ４分（物差しで計った）ぐらい改ページされる

　　ドットプリンタの設定は、トラクタフィーだの１０インチｘ６インチで設定しています。

２．ドットプリンターを通常使うプリンターに指定すると
　　動作の異常は有りません。

ＴＰrinterに色々設定しているのですが
解決しません。

宜しくお願いします。
┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏
那須
na...@x21.co.jp
┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏

[tknak...@brain-tokyo.jp]

中村です。具体的なコードが無いので
なんとも言えないのですが、プリンタを切り替えて
印字するには

1) プリンタを切り替える。
2) BeginDoc
3) キャンバスに描く
4) EndDoc

の順番で処理を行うのが正しいはずです。

またプリンタの切り替えは

[Delphi-ML:31510] Re: プリンタを変更したいです。
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=031510

の要領で行ってください。こうしないと、デフォルトプリンタの
プリンタ設定で切り替え先のプリンタが動作してしまうので、
わけわかの結果になります。

Quoting 那須@x21 <na...@x21.co.jp>:

> 処理
>
> 　１．TPrinterのキャンバスに描画する。
> 　２．TプリンターのPrinterindexを通常使用するプリンターから
> 　　　ドットプリンタに設定する。
> 　３．EndDocで印刷実行
>

----------
(株)ブレーン 中村拓男

[那須@x21]

毎度お世話になります。

中村さん　ありがとうございました。

作成した時、[Delphi-ML:31510]を見させて頂いて
コーディングしていたのですが
見直した結果、コーディングミスが有りました。

ありがとうございました。

宜しくお願いします。
┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏
那須
na...@x21.co.jp
┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏┏