|
お世話になります。
ちょっとしたデータファイル管理プログラムに、印刷機能をつけようと、
印刷プレビュー制御コンポーネントVer4.80をダウンロードし、
使い勝手を試しながら格闘させていただいています。
さて、標記の通りなのですが、フォームにぽとりぺたりした、TplPrevでは、
エラーなく動作しますが、動的に作成したTplPrevを使用すると、
BeginDocで FplSetPrinter= nil となってしまい、エラーが発生します。
そこで、調査したところ、安易な思考で、FplSetPrinter が内部で保持している
FTempSetPrinter を指すようになればOKと思い、以下の一行追加しました。
plPrev.plSetPrinter := nil;
次にSetplSetPrinterメソッド内を以下の通り変更
FplSetPrinter.Name:=Value.Name;
↓
if Value <> nil then FplSetPrinter.Name:=Value.Name;
これで、エラーなく動作しているようですが、よろしくないでしょうか？
|