W
wuifc002
Unregistered / Unconfirmed
GUEST, unregistred user!
这是我的程序:
try
Printer.BeginDoc;
printer.Canvas.Font:=fontdialog1.Font;
for i :=0 to 9 do
begin
printer.Canvas.TextOut(z_j,100+i*h_j,cxmemo1.Lines);
end;
finally
Printer.EndDoc;
end;
h_j 是两行之间的间距
try
Printer.BeginDoc;
printer.Canvas.Font:=fontdialog1.Font;
for i :=0 to 9 do
begin
printer.Canvas.TextOut(z_j,100+i*h_j,cxmemo1.Lines);
end;
finally
Printer.EndDoc;
end;
h_j 是两行之间的间距