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

Tprint打印问题--如何打印自己想要的字体和条码

尚未結案
jxauwxb
一般會員


發表:1
回覆:1
積分:0
註冊:2008-07-30

發送簡訊給我
#1 引用回覆 回覆 發表時間:2008-07-30 18:08:19 IP:218.20.xxx.xxx 訂閱
写在前面的话:第一次提问,有拜读《提问的智慧》。实在是搜索水平有限,未能从网上找到我要的答案。
两个问题:1:下面代码打印出来的字体不是pixelperfect字体,FontName改变时,好象字体没什么变化,只是字与字之间的距离稍微不同。
2:能否根据listbox2.Items.Strings[i] 提供的条码数打印出条码图出来,如何实现?

FontName := 'pixelperfect';
MyPrinter.Canvas.Font.CharSet := fcsUnicode;
MyPrinter.Canvas.Font.Name:=FontName;
MyPrinter.Canvas.Font.Style := [fsBold];
strPrice := copy(listbox2.Items.Strings[i],41,10);
if pos('.',strPrice)>0 then
begin
//售价小数部分
MyPrinter.Canvas.Font.Size:=20;
if length(trim(copy(strPrice,1,pos('.',strPrice)-1)))=1 then
TextOut(PrintLeft 83,PrintHead 10 (K-1)*RowOffset t,copy(strPrice,pos('.',strPrice),10))
else if length(trim(copy(strPrice,1,pos('.',strPrice)-1)))=2 then
TextOut(PrintLeft 99,PrintHead 10 (K-1)*RowOffset t,copy(strPrice,pos('.',strPrice),10))
else
TextOut(PrintLeft 115,PrintHead 10 (K-1)*RowOffset t,copy(strPrice,pos('.',strPrice),10));
//售价整数部分
MyPrinter.Canvas.Font.Size:=40;
TextOut(PrintLeft 63,PrintHead (K-1)*RowOffset t,copy(strPrice,1,pos('.',strPrice)-1));
end else
begin
MyPrinter.Canvas.Font.Size:=40;
TextOut(PrintLeft 63,PrintHead (K-1)*RowOffset t,strPrice);
end;
//条码
MyPrinter.Canvas.Font.Name := '宋体';
MyPrinter.Canvas.Font.Size:=10;
TextOut(PrintLeft 290 90,PrintHead 62 (K-1)*RowOffset t,copy(listbox2.Items.Strings[i],52,13));
------
一粒尘埃
系統時間:2024-03-29 17:38:20
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!