请教一下printer打印乱问题

Question

如下这段代码,为什么我打印memo1中的内容总是乱码呢(中文,英文都是乱码)?应该进行什么样的设置才不会乱码?
请各位帮忙,谢谢!procedure TForm1.Button1Click(Sender: TObject);
var
  a:textfile;
  i:integer;
begin
  if self.PrintDialog1.Execute then
  begin
    assignPrn(a);
    reWrite(a);
    try
      printer.Canvas.Font:=memo1.Font;
      for I := 0 to memo1.Lines.Count - 1 do
      begin
        writeLn(a,memo1.Lines[i]);
      end;
    finally
      CloseFile(a);
    end;
  end;end;

Answer 1

 printer.Canvas.Font:=memo1.Font; // 去掉 或者嘗試直接往端口寫的話，把驅動刪掉試下，可能是驅動影響的。

Answer 2

谢谢您的回复,还是乱码,和驱动没有关系,就是在我的这段代码里打印会乱码,我别的应软件(wps,记事本等)打印是正常的