全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1900
推到 Plurk!
推到 Facebook!

MEMO列印的問題

尚未結案
aceeric
一般會員


發表:5
回覆:7
積分:2
註冊:2005-06-22

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-23 21:01:12 IP:139.223.xxx.xxx 未訂閱
小弟是BCB的新手~ 我想要列印出memo的資料,可是又要有預覽列印的功能~ 可是memo的資料超過一頁,我用QReport的的話資料會被截掉~ 請各位大大有方法可以解決嗎??^^
andychang1690
資深會員


發表:20
回覆:694
積分:442
註冊:2003-03-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-06-24 02:42:32 IP:221.169.xxx.xxx 未訂閱
aceeric:試試下面的方式
於你的QReport的事件中執行NeedData事件
include 有memo的Form
QReport以QRLabel逐行印出
void __fastcall TPrint2::QuickRep1NeedData(TObject *Sender, bool &MoreData)
{
  static Prn_n=1;
  if ( Form1->Memo1->Lines->Count < Prn_n) {
    MoreData=false;
    Prn_n=1;
  }
  else {
    QRLabel1->Caption=Form1->Memo1->Lines->Strings[Prn_n-1];
    Prn_n  ;
    MoreData=true;
  }
}    請參考!
Andy Chang
------
Andy Chang
aceeric
一般會員


發表:5
回覆:7
積分:2
註冊:2005-06-22

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-06-24 08:44:38 IP:139.223.xxx.xxx 未訂閱
謝謝您~ 我已經試成功了...^_^
系統時間:2017-10-17 7:50:26
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!