Printer.Canvas对象是不是有宽度的限制的啊

Question

我的代码
Printer.Canvas.TextOut(Round((193+prn_r)*ScaleX),Round((77+prn_d+height)*ScaleY),'现金');
Printer.Canvas.TextOut(Round((203+prn_r)*ScaleX),Round((77+prn_d+height)*ScaleY),'贷款');
第一个就打出来
第二个就打不出来了
难道对横座标有限制？？

Answer 1

没有的啊
我导入了excel表格就可以打印那么宽的啦

Answer 2

页面设置？
您是指的什么？
我的代码就是这样的
  ScaleX:=GetDeviceCaps(Printer.Handle,HORZRES)/GetDeviceCaps(Printer.Handle,HORZSIZE);
  ScaleY:=GetDeviceCaps(Printer.Handle,VERTRES)/GetDeviceCaps(Printer.Handle,VERTSIZE);
  try
    with Printer do
    begin
      BeginDoc;
      Printer.Canvas.Font.Height:=-32;
      Printer.Canvas.Font.Name:='楷体_GB2312';

       Printer.Canvas.TextOut(Round((193+prn_r)*ScaleX),Round((55+prn_d+height)*ScaleY),'现金');
       Printer.Canvas.TextOut(Round((203+prn_r)*ScaleX),Round((55+prn_d+height)*ScaleY),'贷款);
      EndDoc;
    end;
  except
    Exit;
  end;
还需要哪里设置的吗？