---- 1、哪個單位的財務(wù)科都有幾本厚厚的臺帳，我院財務(wù)科提出打印藥庫的臺帳，好脫掉手工帳，也算是辦公現(xiàn)代化了，要求合情合理，院長也說應(yīng)當如此?？粗攧?wù)科提供的紅綠相間的、統(tǒng)一印制的、行間距3毫米的臺帳專用小卡片，我不由想到中國人節(jié)儉的美德。考慮到每個藥品至少打印一張，而且表格線一個都不能少，加上中醫(yī)院藥品有二千多種，所以這個報表必須用激光打印機來打?。ㄖ劣谌绾巫屧洪L同意購買激光打印機，則是另一回事，辦公自動化哪能沒有代價呢）。程序?qū)崿F(xiàn)的思路基本上是把打印紙當做畫布在上面畫一個個小矩形，具體由以下幾個過程實現(xiàn)：（設(shè)Form名為Ttzview)。

先在程序中定義二個類：
titlerecord=record
Currect:Trect;
Atitle:string;
end;
detailrecord=record
Arect:Trect;
alignment:Word;
end;

---- 再建立以下四個過程；
---- RectDraw(Acanvas:Tcanvas;s:string;R:Trect;frame:boolean;position:word);

---- 這個過程就是畫矩形用的，frame決定是否畫線（這里當然要畫啦！）；

---- PRintinitit(firsttop,firstleft:integer);

---- 這個過程是初始化用的，就是定義各個小矩形在紙上的位置；

---- printtitle(acanvas:Tcanvas);

---- 這個過程是打印表頭的，因為表頭的字總是要大一些；

---- printdetail(acanvas:Tcanvas;Qtz:Tdataset;acount:integer;firstpage:integer);

---- 這個過程才是打印具體內(nèi)容的，一頁打印40行，不夠就換頁，總之一頁只能是一個藥品；

---- printhj(acanvas:Tcanvas);

---- 一看就知道，這個過程就是打印合計的啦！

---- 只要建個Botton,順序調(diào)用printinitit,printtitle,printdetail,printhj這四個過程就行了，

---- (調(diào)用格式：printtitle(printer.canvas);)

---- 對了，Qtz就是查詢出來的臺帳數(shù)據(jù)，如何生成的這里就不談了。

---- 具體程序如下

---- 此程序在delphi1,delphi3版本W(wǎng)IN3.2,WIN95,WIN97,WIN98平臺下運行通過，順便提供臺帳數(shù)據(jù)庫的庫結(jié)構(gòu)

---- 2、非常復(fù)雜，無法取巧的報表

---- 我院腫瘤科需要打印病人的病案，這可是特色?？片F(xiàn)代化建設(shè)的一部分，衛(wèi)生局要來檢查的，所以必須完成任務(wù)。每一個病案有100多個項目，若用Qreport，中間如果要加減一個項目（這事常有），幾十個項目的調(diào)整排列會使人昏倒。我一下子建立100多個臨時變量，在虛擬的畫布上畫啊畫，運行在我的PII233，64M內(nèi)存的機子上倒是順順當當?shù)模贿^換到腫瘤科的486,8M內(nèi)存的機子上時（大家別笑），系統(tǒng)堆棧馬上溢出，所以只好祭出指針大法（我的編程水平好象又有長進，竊喜），方法如下：

先建立titleprint類:
titleprint=^Titlerecord;
titlerecord=record
Currect:Trect;
Atitle:string[50];
end;
再建立過程printnow（Form的名稱叫
zlk,printdot就是打印機的點數(shù)，一般針打是180);
procedure Tzlk.printnow(acanvas:Tcanvas);
var i,x,y,pc_count:integer;
myprint:array[0..200] of titleprint;
begin
firsttop:=round(int(0.5/2.54*printdot));
firstleft:=round(int(0.1/2.54*printdot));
rowheight:=round(int(0.7/2.54*printdot));
x:=0+firstleft;y:=round(int
(1.3/2.54*printdot))+firsttop;
pc_count:=0;
inc(pc_count); new(myprint[pc_count]);
myprint[pc_count]^.currect:=rect
(x+round(int(0.1/2.54*printdot))+firstleft,y,
x+round(int(3.0/2.54*printdot))+firstleft,
y+firsttop+round(int(0.5/2.54*printdot)));
myprint[pc_count]^.atitle:=Lname.
caption+DBname.text;
ACanvas.MoveTo(myprint[pc_count]^.
currect.left,
myprint[pc_count]^.currect.top-round
(rowheight/5));
{下面的四行還要重復(fù)100多次，基本差不多，
就不都寫出來賺稿費了}
inc(pc_count); new(myprint[pc_count]);
myprint[pc_count]^.currect:=scalerect(
myprint[pc_count-1]^.currect,round(int
(2.5/2.54*printdot)),0);
myprint[pc_count]^.atitle:=Lxb.caption+Cxb.text;
ACanvas.LineTo(myprint[i]^.currect.right,
myprint[i]^.currect.top-round(rowheight/5));
.......

{打印}
printtitle(acanvas);
{這個函數(shù)就不提供了，表頭不要也沒關(guān)系}
for i:=1 to pc_count do
begin
RectDraw(Acanvas,myprint[i]^.atitle,
myprint[i]^.currect,false,
dt_left or dt_singleline or dt_vcenter);
end;
dispose(myprint[pc_count]);
{別忘了把指針占用的內(nèi)存釋放}
end;

---- 最后建個Botton，加個是否真的打印的判斷，再調(diào)用這幾個函數(shù)就行了。
---- (調(diào)用格式：printtitle(printer.canvas);)

---- 看了以上兩個例子，是不是覺得WINDOWS下的打印其實很簡單，就跟你手工畫表一樣，而且表格內(nèi)容的位置是居中、居左、還是居右，全由打印內(nèi)容的Alignment決定，打印格式由內(nèi)容的Display Format決定，用不著自己去算，方便極了。