TStringGrid的內容可以直接列印嗎??? |
|
答題得分者是：RaynorPao
|
|
kelon
一般會員   發表：17 回覆：27 積分：18 註冊：2002-07-22 發送簡訊給我 |
|
|
RaynorPao
版主   發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
引言: 請問... 如果我想把StringGrid的內容列印出來 BCB內的元件有直接有這功能的嗎??? 或是有其他的辦法呢???kelon 你好: 請參考以下的寫法
------
-- 若您已經得到滿意的答覆，請適時結案!! -- -- 欲知前世因，今生受者是；欲知來世果，今生做者是 -- -- 一切有為法，如夢幻泡影，如露亦如電，應作如是觀 -- |
|
kelon
一般會員 發表：17 回覆：27 積分：18 註冊：2002-07-22 發送簡訊給我 |
|
|
newbie
初階會員 發表：81 回覆：45 積分：25 註冊：2002-11-28 發送簡訊給我 |
Hi RaynorPao, 不好意思參考妳的方法,
可是我印出來的 strGrid 很小ㄟ...只有 3cmx3cm... 怎? < > 哪裡弄錯了勒? < >
void __fastcall Tfrm1::Button1Click(TObject *Sender)
{
// CASE1
TPrinter *Prt=Printer();
PrintDialog1->Options.Clear();
PrintDialog1->Options << poPageNums << poSelection;
PrintDialog1->FromPage = 1;
PrintDialog1->MinPage = 1;
PrinterSetupDialog1->Execute();
PrintDialog1->Execute();
Printer()->Canvas->Font->Size=14;
//Printer()->Canvas->Font->Color=clBlue;
Printer()->Canvas->Font->Name="Times New Roman";
Printer()->BeginDoc();
Printer()->NewPage();
strGrid->PaintTo(Prt->Handle, 10, 10);
Printer()->EndDoc(); // CASE2
TPrinter *Prntr=Printer();
TRect r = Rect(200,200,Prntr->PageWidth -200,Prntr->PageHeight -200);
Prntr->BeginDoc();
Prntr->Canvas->TextRect(r, 200, 200, Memo1->Lines->Text);
Prntr->EndDoc();
}
|
|
superlarry
一般會員 發表：10 回覆：22 積分：6 註冊：2002-10-04 發送簡訊給我 |
|
|
RaynorPao
版主 發表：139 回覆：3622 積分：7025 註冊：2002-08-12 發送簡訊給我 |
|
|
superlarry
一般會員 發表：10 回覆：22 積分：6 註冊：2002-10-04 發送簡訊給我 |
|
|
superlarry
一般會員 發表：10 回覆：22 積分：6 註冊：2002-10-04 發送簡訊給我 |
發表時間：2002-11-27 11:56:45
IP:211.20.xxx.xxx 未訂閱
系統時間：2024-05-03 8:48:05
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |