已经能实现无限长无缝打印（象DOS那样不分页的连续打印），只是不知道怎么控制打印内容的字体大小。 (100分)

问题解决如下：
var
lpt :TextFile ;
myprinter:string;
begin
myprinter:=安装的打印机;//可以为网络的打印机器，比如'//wly033/EPSON 300K'
//assignfile(lpt,'lpt1') ;直接把打印内容送往LPT1
AssignFile(lpt, myprinter);
ReWrite( lpt );
Writeln( lpt,'打印内容');
//Writeln( lpt, #12 );
//打印机换页
CloseFile( lpt );
end;
现在的问题是怎么才能控制打印内容的字体大小？

楼主怎么不用QuickRep，先定义page.length，就可以了， 我试过的，行~！

有的时候只打一行，有的时候要打几十行，每天要打上千次，难道每次都重新定义page.length？
我要的是即打即停，即停既打，不能有丝毫进纸。请DFW们救命啊。

打印前计算一下 page.length ，然后定义page.length不就行了

存在页面的上下边距，这也能算无缝打印吗？
可以把上下边距设为0吗？

我也在想这个问题，重新设长度也不行的，我用的是EPSON 300K打印机每次都要走一定长度
的纸，要人工卷回去，很麻烦的。

我根据打印多少条记录来算出长度，打印到一定长度的时候它居然罢工了，不能继续打。

此问题已经解决，没想到这么简单。
var
lpt :TextFile ;
myprinter:string;
begin
myprinter:=安装的打印机;//可以为网络的打印机器，比如'//wly033/EPSON 300K'
//assignfile(lpt,'lpt1') ;直接把打印内容送往LPT1
AssignFile(lpt, myprinter);
ReWrite( lpt );
Writeln( lpt,'打印内容');
//Writeln( lpt, #12 );
//打印机换页
CloseFile( lpt );
end;
现在的问题是怎么才能控制打印内容的字体大小？

直接发送到端口是可以的，我刚试过了。
但有一个问题，像字体、格式之类的就得通过打印机的控制码来解决了。
我不知道EPSON 300K的控制码的详细解释，有谁能告诉我。
楼主：
//wly033/EPSON 300K'
这么巧，wly033是我的富翁名称呢，什么被你拿去作计算机名了.

begin
myprinter:=安装的打印机;//可以为网络的打印机器，比如'//wly033/EPSON 300K'
AssignFile(lpt, myprinter);
ReWrite( lpt );
printer.Canvas.Font.Name:='宋体';
//设置printer全局对象
Writeln( lpt,'打印内容');
CloseFile( lpt );
end;

AssignPrn(lpt);
printer.Canvas.Font.Size:= ;
Writeln( lpt,'打印内容');
.
.
我用过 的.

to hwb:
你的方法中myprinter不能为网络的打印机器，rewrite时出现I/O出错。

ＴＯ　flysand
可以使用网络打印机啊，
比如'//网络计算机名字/打印机共享名'
前提是你必须先添加该打印机，该打印机电源已打开．

copy temp.txt prn
//myPrint.bat

//temp.txt
!(a
½­Î÷Ê¡ÈËÃñÒ½ÔºÉú»¯¼ìÑ鱨¸æ
! a
ÐÕ
Ãû:Õźº³Ç
¿Æ
±ð:¸É8 Ñù±¾±àºÅ:N6103
ÐÔ
±ð:ÄÐ
²¡
´²
ºÅ:22 ²ÉÑùʱ¼ä:2002-10-22
Äê Áä:88Ëê ÁÙ´²Õï¶Ï: ±ê±¾ÖÖÀà:ѪÇå

²¡
°¸
ºÅ: Ëͼìҽʦ: ±¸
×¢:
¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª
ÏîÄ¿Ãû³Æ
²â¶¨Öµ
µ¥Î»
²Î¿¼·¶Î§
¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª
×ܵ°°× TP 75.1 g/L 60.0 - 87.0
°×µ°°× ALB 41.5 g/L 37.0 - 53.0
Çòµ°°× GLB 33.6 g/L 25.0 - 35.0
°×Çò±ÈÀý
A/G 1.24 1.00 - 2.50
×ܵ¨ºìËØ
TBIL 11.40 umol/L 5.10 - 25.00
Ö±½Óµ¨ºìËØ
DBIL 3.90 umol/L 0.00 - 7.00
¼ä½Óµ¨ºìËØ
IBIL 7.5 umol/L 5.1 - 23.0
¹È±ûת°±Ã¸
ALT 27 IU/L 0 - 40
¹È²Ýת°±Ã¸
AST 32 IU/L 0 - 40
¹È²Ý/¹È±û
AST/ALT 1.19 0.00 - 3.00
¹È°±õ£×ªëÄø
GGT 15 IU/L 4 - 58
¼îÐÔÁ×Ëáø
ALP 45 IU/L 34 - 114
µ¨¼î֬ø
CHE 10244 IU/L 3600 - 14900
×ܵ¨Ö­Ëá TBA 7.1 umol/L 0.0 - 10.0
¼¡ôû
CREA 99.8 umol/L 53.0 - 140.0
ÄòËصª
BUN 5.40 mmol/L 1.70 - 8.30
ÄòËá UA 410 umol/L 148 - 490
ÆÏÌÑÌÇ
GLU 4.9 mmol/L 3.9 - 6.1
ÈéËáÍÑÇâø
LDH 161 IU/L 114 - 240
¼¡Ëἤø
CK 78 IU/L 24 - 195
¼¡Ëἤøͬ¹¤Ã¸
CK-MB 9 IU/L 0 - 20
¸ÊÓÍÈýõ¥
TG 1.60 mmol/L 0.50 - 1.90
×ܵ¨¹Ì´¼
T-CHOL 4.50 mmol/L 2.90 - 6.00
¸ßÃܶÈÖ¬µ°°×µ¨¹HDL-C 1.38 mmol/L 1.09 - 1.82
µÍÃܶÈÖ¬µ°°×µ¨¹LDL-C 2.89 mmol/L 0.00 - 3.61
ÔØÖ¬µ°°×A Apo-A 1.31 g/L 1.00 - 1.60
ÔØÖ¬µ°°×B Apo-B 0.75 g/L 0.60 - 1.10
ÔØÖ¬A:ÔØÖ¬B APoA/APoB 1.7 1.3 - 2.1
Ö¬µ°°×-a LP(a) 17.0 mg/dl 0.0 - 30.0
¼Ø
K 4.5 mmol/L 3.5 - 5.5
ÄÆ
Na 138.0 mmol/L 135.0 - 146.0
ÂÈ
Cl 100.0 mmol/L 96.0 - 108.0
¸Æ
Ca 2.35 mmol/L 2.00 - 2.60
þ
Mg 0.93 mmol/L 0.65 - 1.25
Á× P 1.08 mmol/L 0.73 - 1.35
Éø͸ѹ
OSM 286 mosm/kg 280 - 320
¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª
ËͼìÈÕÆÚ:2002-10-22 ±¨¸æÈÕÆÚ:2002-11-18 ¼ìÑéÕß:ÐìÁ¬Ç¿
ÉóºËÕß:¹ðÏþÃÀ

¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª¡ª

你看一下打印机说明书