德
德妃菜菜子
Unregistered / Unconfirmed
GUEST, unregistred user!
我用如下过程打印Memo的内容（DelphiBBS合集上介绍的方法）：
procedure printmemo(lst:TStrings);
var
i,line:integer;
begin
line:=0;
printer.begin
doc;
for i:=0 to lst.count-1do
begin
printer.canvas.textout(0,line,lst);
line:=line+abs(printer.canvas.font.height);
if (line>=printer.pageheight) then
printer.newpage;
end;
printer.enddoc;
end;
运行是系统提示错误：
There is no default printer curently selected.
请问是什么问题啊？怎么解决呢？
procedure printmemo(lst:TStrings);
var
i,line:integer;
begin
line:=0;
printer.begin
doc;
for i:=0 to lst.count-1do
begin
printer.canvas.textout(0,line,lst);
line:=line+abs(printer.canvas.font.height);
if (line>=printer.pageheight) then
printer.newpage;
end;
printer.enddoc;
end;
运行是系统提示错误：
There is no default printer curently selected.
请问是什么问题啊？怎么解决呢？