在線等 SetMapMode問題

使用Printer.Canvas進行條碼打印因為要精確設置線條寬度,需要調用SetMapMode改變坐標方式,我的代碼如下:
procedure TForm1.Button1Click(Sender: TObject);
var leftPos,topPos,barHeight,oldMap : integer;
begin
  leftPos := strtoint(Edit3.Text);
  topPos := strtoint(Edit4.Text);
  barHeight := strtoint(Edit5.Text);
  Printer.BeginDoc;   // MM_TWIPS
  oldMap := SetMapMode(Printer.Handle,MM_TWIPS); //只有設成MM_TEXT才打印
                                        //打印机型號為 Zebra  105SL (200dpi)
  PrintBarcode(Edit1.Text, leftPos,topPos,barHeight, True); //打印條碼的方法
  Printer.EndDoc;
  SetMapMode(Printer.Handle,oldMap);
end;
請教各位大蝦要實現打印, 應怎樣代碼實現