DDG的例子: procedure TMdiEditForm.mmiPrintClick(Sender: TObject); var i: integer; PText: TextFile; begin inherited; if PrintDialog.Execute then begin AssignPrn(PText); Rewrite(PText); try Printer.Canvas.Font := memMainMemo.Font; for i := 0 to memMainMemo.Lines.Count -1 do writeln(PText, memMainMemo.Lines[i]); finally CloseFile(PText); end; end; end;
procedure TMdiEditForm.mmiPrintClick(Sender: TObject);
var
i: integer;
PText: TextFile;
begin
inherited;
if PrintDialog.Execute then
begin
AssignPrn(PText);
Rewrite(PText);
try
Printer.Canvas.Font := memMainMemo.Font;
for i := 0 to memMainMemo.Lines.Count -1 do
writeln(PText, memMainMemo.Lines[i]);
finally
CloseFile(PText);
end;
end;
end;
然后就可以直接调用 Printer 对象的方法了,如:var
Str1:String;
x,y: Integer;
begin
...
printer.Print(100,20,'abcdefg12345');//100为起始位的横坐标
Str1:='MicroSoft'; //20 为纵坐标
x:=200;
y:=100;
printer.Print(x,y,Str1);
...
end;