名前
題名
▼ Mr.XRAYさん > この件について以下の様にお答えしました． > > どうもうまく行きません．TplPrevを新しい形式にした際にか， > または，元々問題があったのかも知れません． > > 申し訳ありませんが，以下の感じのコードで逃げて下さいませんか． > なるべく，速い時期に新しいTplPrevPrevの方に移行して頂けますよ > うお願い致します． > > しかし，参りました．(苦笑) > > type > TTempPrev= class (TplTackPrint); > > //==================================================================== > // Queryの結果を実行 > //==================================================================== > procedure TForm1.BitBtn1Click(Sender: TObject); > begin > Query1.Open; > try > plPrev1.Title:='表形式の印刷テスト'; > plTackPrint1.Execute; > > {頁数を取得} > plPrev1.PageCount:=TTempPrev(plTackPrint1).GetPageCount; > {PrintFromPageとPrintToPageは必要であればPrintDialogで設定} > if PrintDialog1.Execute then begin > plPrev1.PrintFromPage:=PrintDialog1.FromPage; > {PrintToPageはplPrev1.PageCountより大きければ頁数分だけ印刷} > plPrev1.PrintToPage:=PrintDialog1.ToPage; > plPrev1.Print; > end; > finally > Query1.Close; > end; > end; > > [追加・注] > このバグは，Printメソッド内で，印刷の総頁数が取得できないこと > によるものです．そこで，その対策として，最初に頁数を取得する > コードを追加しています．
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link