［WR3.0]用紙サイズの変更

[山田]

お世話になっております。

WIN98+Delphi6.0+WR3.0環境で開発をしています。
帳票を出力するプログラムを作成中なのですが、最初はB5サイズで印刷するということで、WR3.0でB5で作成したのですが、途中からA4サイズで印刷するということに変更になりました。

そこで、VBでのサイズ変更は以前できましたので、それを参考にDelphi6で作成したのですが、サイズが変わりません。

下記のロジックを作成したのですが、上手くいきません。
VBと環境は全く同じなのですが、原因をよろしくお願いします。
　
MyREP := frmA.WR3AXCL1.LoadReport(‘納品書.w30’);　
MyPRT := frmA.WR3AXCL1.CreatePrinter(”) ;
OpenPrinter (frmA.handle);
MyPRT.ScalePrint := True;
MyPRT.PaperSize := wrPAPER_A4;
MyPRT.ScalePaperFit := True;
MyPRT.Orientation := wrPAPERORIENT_LANDSCAPE;
MyPRT.UpdateInfo;

[松嶋＠ソフトウィング]

お世話になります。

用紙サイズはＢ５で、印刷の内容はＡ４相当に拡大されて出力
されたのでしょうか？又は、全く変化無い状態で出力されたの
でしょうか？

大変お手数ですが、上記内容についてお知らせ下さい。

[山田]

お世話になります。

WRの設定の用紙サイズはA4で、帳票の内容はB5で作成してあります。

よろしくお願いします。

[松嶋＠ソフトウィング]

お世話になります。

ご連絡ありがとうございます。
レポートの設定用紙サイズはA4で、描画オブジェクト等の配置
がB5サイズに合わせて作成されていると言うことでしょうか？

同じ様な質問で申し訳ございませんが、宜しくお願い致しま
す。

[山田]

お世話になります。

はい、その通りです。
なので、印刷すると変化なくA4用紙に描画オブジェト等がB5サイズのままで出力されてしまいます。

こちらこそ何度もすいませんが、よろしくお願いします。

[松嶋＠ソフトウィング]

お世話になります。

ご連絡ありがとうございます。
現在行っている処理から、Ａ４の帳票をＡ４で出力しているた
今回の現象となっているようです。

以下の設定は印刷用紙をＡ４へ設定し、縮小拡大印刷指定を
行っております。また、縮尺率は出力用紙に合わせた率となり
ますので、同一サイズの用紙を使用した場合変化がありませ
ん。
印刷内容を拡大しＡ４用紙に出力する場合は、レポートの用紙
サイズをＢ５に設定して同様に出力を行ってください。

>MyPRT.ScalePrint := True;
>MyPRT.PaperSize := wrPAPER_A4;
>MyPRT.ScalePaperFit := True;

※拡大すると文字や罫線も大きく又は太くなりますので注意
　してください。

以上、宜しくお願い致します。

[山田]

お世話になります。

ご回答のとおり、WRの用紙サイズをB5に設定したところ、印刷内容も拡大しA4用紙に出力できました。

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

[投稿者]

投稿