[WR2.0]ｵﾌﾞｼﾞｪｸﾄの個数制限について

[山口]

Win98SE、VB6.0(SP4)、WingReport2.0 の環境で使用しているます。
プログラムでレポート上にラインや、BOXをwrCreateObject()で書きこんでいるのですが、多く書きこむとレポートが正常に出力されません。
使用するラインやBOXの数に制限はあるのでしょうか？

[Hirayama]

いつもお世話になっております

理論上、一つのレポートファイルに作成できるオブジェクトの数は
65,000個までとなっております。どのくらいの数のオブジェクトを
作成しているのでしょうか？

正常に出力されないとは具体的にどのような現象が発生してい
るのでしょうか？またプリンターは何をお使いでしょうか？

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

[山口]

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

オブジェクト抽出ツールで確認したところ、1500個ほどのオブジェクトがあり、それにプログラム上で追加して1000本くらいのラインと、500～1000個くらいのBOXを書きこんでいます。

また、レポート上で色々な所でBOXや、テキストを使用していますが、途中までしか出力されなく、レポートが半分くらい描かれているような状態です。
（用紙の半分ではなく、オブジェクトの半分くらいと言う意味。）
また、使用するオブジェクトの数を少なくして（オブジェクトを幾分削除して）プログラムを実行すると、レポートが先ほどより多く描かれます。

使用しているプリンターは Epson LP-9600（ネットワーク）です。
ただし、描きこむBOXの数を50くらいにすると正常に印刷されます。

[Hirayama]

いつもお世話になっております

お聞きしたいのですがこのような現象は他のプリンターでも
発生しているのでしょうか？

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

[山口]

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

HP LeserJet4V にて確認したところ、やはり同様の現象が発生します。（ネットワーク接続。プリンタドライバはWin98SE付属のものを使用）

描きこむオブジェクトを減らせば印刷可能です。
（文字が勝手に斜体になっていたりして変ですが。）

[Hirayama]

いつもお世話になっております。

ご質問の件ですが、当方にてプリンターEPSON LP-8300でネットワーク接続
されているものにWin2000及びWin98にて同様の印刷テストを行ってみたところ
処理は正常に終了しました。大変お手数ですが今お使いのプリンタードライバー
を最新のものに置き換えて再度お試しいただけますでしょうか？

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

[山口]

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

この件について現象が解明できました。
どうやら、BOX作成時に指定する dbxStart、dbxEnd の値に関係するようです。

プログラムでは下記のような状態で使用しています。
for i=1 to lCount
pProp = pReadProp ‘基本情報取得
pProp.dbxStart = … ‘位置変更
pProp.dbxEnd = …
pProp.dbyStart = …
pProp.dbyEnd = …
pProp.szName = “bxWork” & Format$(i, “0”) & vbNullChar
Call wrCreateObject(hReport, WAP_ONBOX, pProp, 1)
Next

この中で、下記の様に処理しており、
dbxEnd = dbxStart + (データ)×8/3600

(データ) が 1 のものが63個以上になると出力がおかしくなります。

(データ) が 1 の時は、dbxStartと、dbxEnd の差が
2.22222222222222E-03
しかないことになります。（当然紙の上では出力されませんが。）

このようなデータが63個になるとおかしくなるようです。

取扱説明書では、dbxStart、dbxEndの最小単位は1/100mmとされているので、上記のような使用は
保証されていないことになりますね。(^^;)

たしか、dbxStartとdbxEndが同じだった場合にはエラーが出たと思いますが、上記の場合だと、エラーは
発生しないのですね。

この考えで間違いないでしょうか？

[Hirayama]

いつもお世話になっております。

こちらで検証してみたいと思いますので当社にモジュール一式を
お送りいただけないでしょうか？

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

[Hirayama]

いつもお世話になっております。

大変お忙しい中、モジュールをお送り頂き有り難うございました。
早速、当社で下記環境にてテスト印刷を行ってみました。
プリンター :EPSON LP-8300（ネットワーク接続）
ＯＳ :Windows98/Windows98SE/WindowsNT4.0
その結果、全ての場合において正常に印刷されました。
大変お手数ですが、WingReportのモジュールとプリンタードライバー
を最新のものに置き換えて再度お試しいただけますでしょうか？

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

[山口]

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

本件、プリンタドライバを変更したところ正常に出力されました。
お手数をおかけし誠に申し訳ありませんでした。
ありがとうございました。

[投稿者]

投稿