[WR3.0]プリンタの設定

[REI]

お世話になっています。
Delphi5.0で開発しています。

ﾌﾟﾘﾝﾀの設定がうまくいかなくて困っています。

waxPrinter := WR3AXCL1.CreateReportPrinter(waxReport
　　　　　　　　, WindowHandle
　　　　　　　　, wrPRTDLGITEM_DIS_SELECTPRINTER);
With waxPrinter do
begin
ClearInfo;
if CopiesSupport = True then
Copies := 1;
if OrientationSupport = True then
Orientation := wrPAPERORIENT_PORTRAIT;
if PaperSizeSupport = True then
PaperSize := wrPAPER_A4;
UpdateInfo;
CancelDlg := True;
OpenPrinter (EI050WRPF.handle);
End;

と書いているのですが、レポートのプリンタの設定が有効になって
変更が反映されません。
初心者でお恥ずかしいですが、
どこがまずいのかご指導願います。

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

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

設定が反映されない件について回答させていただきます。
WR3.0では用紙方向、用紙サイズの設定方法が
プリンタ側、レポート自身の設定を行なうことが可能と
なっております。

プリンタ側、レポート側それぞれの設定方法を記述します。

プリンタ側にて設定の反映を行なう場合は
レポートの用紙サイズと異なるため
ScalePrint を有効にする必要があります。
——————————————
With waxPrinter do
begin
ClearInfo;
//追加します。
ScalePrint := True;
if CopiesSupport = True then

——————————————

※ただし拡大縮小がおこなわれるため印刷品質が悪くなる場合があります。

レポート側の設定
　waxReport.PaperOrientation := wrPAPERORIENT_PORTRAIT;
　waxReport.PaperSize := wrPAPER_A4;

　※印刷品質はかわりませんが、用紙方向や用紙サイズが
　　異なると物理的に表示できなくなり途中で切れる可能性があります。

以上、よろしくお願いいたします。

[REI]

うまくいきました。
ありがとうございます！！

[投稿者]

投稿