关于打印的一些问题

Question

建议使用TRichedit，
 RIchedit1.Print();就可以打印。

Answer 1

那打印机如何设置呢？
我想打印一个30mm*25mm的标签！

Answer 2

procedure TCompulation.PrintMemo(var PM:TMemo);
var
i:integer;
PText:TextFile;
begin
inherited;
if printdialog1.Execute then
  begin
  assignprn(PText);
  Rewrite(PText);
  try
  Printer.canvas.Font:=PM.Font;
  writeln(PText,'           打印时间：'+datetimetostr(now));
  writeln(PText);
  for i:=0 to PM.Lines.Count-1 do
        writeln(PText,'         '+PM.lines[i]);
  finally
  closefile(PText);
  end;
  end;
end;