或者用这种方法连接
var s:string;i:integer;
outprn:textfile
begin
S := Printer.Printers[Printer.PrinterIndex];
{ 找寻最后一个空格的位置 }
for I := Length(S)do
wnto 1do
begin
if S = ' ' then
Break;
end;
S := Copy(S,I + 1,255);
{ 使用AssignFile将打印设备和TextFile相连 }
AssignFile(OutPrn,Copy(S,1,Length(S) - 1));
end;