简单打印问题？(100分)

我的文本文件打印是这样的
var
F:TextFile;
//定义一个文件类型
s_list : Tstringlist;
//定义打印用的中介类型变量
begin
s_list := Tstringlist.Create;
s_list.add('---');
s_list.add('规则');
等等的数据添加
try
AssignFile(F, 'LPT1');
Rewrite(F);
for i_i := 0 to s_list.Count-1do
Writeln(F,s_list[i_i]);
CloseFile(F);
except
showmessage('打印机是否没有连接 ?');
end;
s_list.Free;
end;
现在我要打印的文件不是文本文件，而是二进制文件，如何一个字节不差的送到打印机？

打印二进制文件内容，打印部分应该不变。只要你把数据读出到变量里面了，用format格式化即可。

是否可以来一个实际的例子？

接受答案了.