delphi – 为什么在使用直接打印时会截断字符串？

但是,如果我尝试打印任何字符串,它们将被截断.例如：

MyPrinter := TRawPrint.Create(nil);
try
  MyPrinter.DeviceName := 'EPSON TM-T70 Receipt';
  MyPrinter.JobName := 'MyJob';
  if MyPrinter.OpenDevice then
  begin
    MyPrinter.WriteString('This is page 1');
    MyPrinter.NewPage;
    MyPrinter.WriteString('This is page 2');
    MyPrinter.CloseDevice;
  end;
finally
  MyPrinter.Free;
end;

只打印“这就是这个”！我通常不会使用MyPrinter.NewPage发送换行命令,但无论如何,为什么它会截断字符串？

另请注意RawPrint单元的WriteString函数：

Result := False;
if IsOpenDevice then begin
  Result := True;
  if not WritePrinter(hPrinter,PChar(Text),Length(Text),WrittenChars) then begin
    RaiseError(GetLastErrMsg);
    Result := False;
  end;
end;

如果我在那里放置一个断点并逐步执行代码,那么WrittenChars设置为14,这是正确的.为什么这样做？