一个小问题 怎么打印出字符串？ ( 积分: 50 )

var
strtxt:string;
strtxt:='1236542';
怎么把strtxt的值用打印机打印出来呢？
不好意思第一次没说清楚。

var
strtxt:string;
strtxt:='1236542';
怎么把strtxt的值用打印机打印出来呢？
不好意思第一次没说清楚。

打印,你是要打印在什么地方呢?打印机,屏幕,还是...

打印机

uses printers;
......
var
s:string;
x,y:integer;
begin
s := 'Hello1';
Printer.begin
Doc;
printer.Canvas.TextOut(x,y,s);
printer.EndDoc;
end;

另一个方法：
var
f:textfile;
begin
assignprn(f);
try
rewrite(f);
writeln(f,'236542');
finally
closefile(f);
end;
end;

答案很完善应该揭贴拉不过[]碰到高手我就想多掏点东西[]
顺便问一下 下边的程序算法有问题吗？
这个程序的算法为：
取DBGrid中的每个网格中的数据同时记录，字体的大小和颜色。
然后打印出数据。（网格中的数据的颜色存在多种）
while not DBGridR.DataSource.DataSet.Eofdo
//如果不是到结尾继
//续循环
begin
for j:=0 to DBGridR.columns.Count -1do
//从每个网格内取数据
//并同时记录网格内数据的颜色
begin
DBGridtxt:=DBGridR.columns.Items[j].Field.AsString ;//取数据
assignprn(Sprinttxt);//送打印机
//送打印机的时候出现问题 Sprinttxt这个应该为text类型但定义不成，只好定义
//成String但类型不匹配，怎么转换呢？
printer.Canvas.Font.Color := DBGridR.Columns.Items[j].Color ;//记录颜色
printer.Canvas.Font:=DBGridR.Columns.Items[j].Font ;//记录
//字体大小
writeln(printtxt,DBGridtxt);
end;
DBGridR.DataSource.DataSet.Next ;
end;
system.close(printtxt);
怎么修改才能执行呢？

谢谢