PB 電子会議室
| 発言No. | 更新日 | 題名（クリックすると発言内容と関連するコメントが表示されます） |
|---|---|---|
| 8632 | 99/10/07 19:40:52 | RE(9):PB6.5: 現行ページのみ印刷＞訂正と最新報告 By Taka |
| 8464 | 99/10/01 00:31:21 | RE(8):PB6.5: 現行ページのみ印刷する場合の問題＞なんとかできました By リエッチ |
| 8460 | 99/09/30 18:24:07 | RE(7):PB6.5: 現行ページのみ印刷する場合の問題＞なんとかできました By Taka |
| 8458 | 99/09/30 17:53:05 | RE(6):PB6.5: 現行ページのみ印刷する場合の問題＞なんとかできました By リエッチ |
| 8451 | 99/09/30 14:34:28 | RE(5):PB6.5: 現行ページのみ印刷する場合の問題＞なんとかできました By Taka |
| 8449 | 99/09/30 14:18:45 | RE(4):PB6.5: 計算フィールドでページ番号を求める方法 By Taka |
| 8441 | 99/09/30 12:40:22 | RE(3):PB6.5: 計算フィールドでページ番号を求める方法 By リエッチ |
| 8432 | 99/09/30 02:16:59 | RE(2):PB6.5: 現行ページのみ印刷する場合の問題 By Taka |
| 8431 | 99/09/30 00:01:57 | RE(1):PB6.5: 現行ページのみ印刷する場合の問題 By リエッチ |
| 8414 | 99/09/29 18:49:47 | PB6.5: 現行ページのみ印刷する場合の問題 By Taka |
カテゴリ：印刷処理
日付：1999年09月30日 14:34 発信者：Taka
題名：RE(5):PB6.5: 現行ページのみ印刷する場合の問題＞なんとかできました
Takaさん、こんにちは。
＞どのようなケースにおいても、「プレビュー上の現在のページ番号」を求める方法ってないものでしょうか。
昨夜からいろいろと実験していた結果、なんとか出来ました。(^^)/
以下サンプルスクリプトです。
【現在のページのみ印刷（グループごとにページ番号リセットでもＯＫ）】
integer li_vpos, li_page = 1
dw_x.SetRedraw(false)
li_vpos = integer(dw_x.object.Datawindow.VerticalScrollPosition)
dw_x.ScrollToRow(0)
do until integer(dw_x.object.Datawindow.VerticalScrollPosition) >= li_vpos
dw_x.ScrollNextPage()
li_page ++
loop
dw_x.SetRedraw(true)
dw_x.object.Datawindow.Print.Page.Range = string(li_page)
dw_x.Print()
ご覧の通り、超強引です！（笑）
それでもあらゆるパターン（複雑なグループ化や複雑なネスティッドorコンポジットなど）にも対応できます。
PB5.xとPB6.xとで、共通の記述でまかなえます。
「現在のページ」が後ろへいくほど、レスポンスが悪くなるのが難点ですけど。(;_;
もっと良い方法などを思い付かれた方、ご一報くださいませ。
付加情報：
PowerBuilder Version (記載なし)
Client SoftWare
OS Windows NT 4.0
DBMS Oracle SQL*Net 2.3
Browser (記載なし)
Server SoftWare
OS (記載なし)
DBMS Oracle 7.3
WebServer (記載なし)
Copyright © 2013 Power Future Co., Ltd.