TStringGrid的內容可以直接列印嗎??? |
答題得分者是:RaynorPao
|
kelon
一般會員 發表:17 回覆:27 積分:18 註冊:2002-07-22 發送簡訊給我 |
|
RaynorPao
版主 發表:139 回覆:3622 積分:7025 註冊:2002-08-12 發送簡訊給我 |
引言: 請問... 如果我想把StringGrid的內容列印出來 BCB內的元件有直接有這功能的嗎??? 或是有其他的辦法呢???kelon 你好: 請參考以下的寫法 < class="code"> #include "Printers.hpp" TPrinter *Prt=Printer(); Prt->BeginDoc(); StringGrid1->PaintTo(Prt->Handle, 10, 10); Prt->EndDoc(); -- Enjoy Researching & Developing --
------
-- 若您已經得到滿意的答覆,請適時結案!! -- -- 欲知前世因,今生受者是;欲知來世果,今生做者是 -- -- 一切有為法,如夢幻泡影,如露亦如電,應作如是觀 -- |
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 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |