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

如何在同一頁列印不同字體的文字?

尚未結案
w45
一般會員


發表:25
回覆:29
積分:15
註冊:2006-07-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-12-01 15:51:52 IP:222.135.xxx.xxx 未訂閱
  TPrinter *Prn=Printer();
Prn->Canvas->Font->Name = "宋體";//字體名字
Prn->Canvas->Font->Size = 8;//文字大小
Prn->SetPrinter(ComboBox1->Text.c_str(),NULL,NULL,NULL);
Prn->BeginDoc();
if(Edit1->Text!="")Prn->Canvas->TextOut(6,31,Edit1->Text);
Prn->Canvas->Font->Name = "C39HrP48DmTt";//字體名字
Prn->Canvas->Font->Size = 29;//文字大小
if(Edit2->Text!="")Prn->Canvas->TextOut(6,51,Edit2->Text);
Prn->EndDoc();//結束一個列印工作

各位先進,用上面的代碼列印,為什麼字體不改變?
編輯記錄
taishyang 重新編輯於 2007-10-11 10:14:37, 註解 無‧
tylin123
初階會員


發表:33
回覆:51
積分:26
註冊:2003-05-19

發送簡訊給我
#2 引用回覆 回覆 發表時間:2007-10-10 22:06:06 IP:125.231.xxx.xxx 訂閱

我想是不是 在 (2) 的 prn->BeginDoc() 搬到 (1) 的位置上,字型變更才會有作用呢?


[code cpp]
TPrinter *Prn=Printer();

(1) Prn->BeginDoc();
Prn->Canvas->Font->Name = "宋體";//字體名字
Prn->Canvas->Font->Size = 8;//文字大小
Prn->SetPrinter(ComboBox1->Text.c_str(),NULL,NULL,NULL);
// (2) Prn->BeginDoc();
if(Edit1->Text!="")Prn->Canvas->TextOut(6,31,Edit1->Text);
Prn->Canvas->Font->Name = "C39HrP48DmTt";//字體名字
Prn->Canvas->Font->Size = 29;//文字大小
if(Edit2->Text!="")Prn->Canvas->TextOut(6,51,Edit2->Text);
Prn->EndDoc();//結束一個列印工作
[/code]

===================引 用 w45 文 章===================
? TPrinter *Prn=Printer();
? Prn->Canvas->Font->Name = "宋體";//字體名字
? Prn->Canvas->Font->Size = 8;//文字大小
? Prn->SetPrinter(ComboBox1->Text.c_str(),NULL,NULL,NULL);
? Prn->BeginDoc();
??? if(Edit1->Text!="")Prn->Canvas->TextOut(6,31,Edit1->Text);
? Prn->Canvas->Font->Name = "C39HrP48DmTt";//字體名字
? Prn->Canvas->Font->Size = 29;//文字大小
??? if(Edit2->Text!="")Prn->Canvas->TextOut(6,51,Edit2->Text);
? Prn->EndDoc();//結束一個列印工作
各位先進,用上面的代碼列印,為什麼字體不改變?
系統時間:2017-10-17 22:55:59
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!