[Delphi:89016] Re: QuickReport が出力したQRPファイルの印刷

268 views

Skip to first unread message

oka...@johchi.co.jp

unread,

Dec 7, 2006, 12:56:02 AM12/7/06

to Del...@ml.users.gr.jp

岡本です。

> どなたか、QRPファイルの部分印刷をする方法を
> ご存じの方いらっしゃいませんか？

バージョンが違っていて、できないかもしれませんが、

aQuickPreview.QRPrinter.Load(ファイル）後は、

aQuickPreview.QRPrinter か、aQuickRep.QRPrinter の
QRPrinter に対し 1～QRPrinter.PageCount の範囲で
ページ範囲を設定

QRPrinter.FirstPage := **;
QRPrinter.LastPage := **;

なお、aQuickRep.PrinterSetUp; の後であれば、

QRPrinter.FirstPage := aQuickRep.FirstPage;
QRPrinter.LastPage := aQuickRep.LastPage;

最後に QRPrinter.Print;

aQuickRep.Print ではなく、QRPrinter.Print が、
ミソだったような覚えがあります。

Ver2.0台では、無条件、全ページ印刷だったような。

渡辺

unread,

Dec 7, 2006, 4:24:01 AM12/7/06

to Del...@ml.users.gr.jp

岡本さん、レスありがとうございます。
渡辺です。

> バージョンが違っていて、できないかもしれませんが、
>
すみません、3.0.9です。
> aQuickPreview.QRPrinter.Load(ファイル）後
aQuickPreview.QRPrinter.FirstPage := **;
aQuickPreview.QRPrinter.LastPage := **;

これでできました。
が、

> なお、aQuickRep.PrinterSetUp; の後であれば、
>
> QRPrinter.FirstPage := aQuickRep.FirstPage;
> QRPrinter.LastPage := aQuickRep.LastPage;
>
> 最後に QRPrinter.Print;
>

こちらは全頁印刷になってしまいました。
PrinterSetUpのあとではFirstPageとLastPageだけを取り出して、
再Loadすればうまくいくかもしれませんが、
頁の指定ダイアログだけを作ればよいので、
前半部を使わせていただこうと思います。