delphi用QR打印报表，需要文字选择90度，求助

Question

delphi用QR打印报表，其中有文字需要旋转90度，打印出来，我已经在打印预览中显示旋转了90度，但是打印出来的还是横排，请大神帮忙！！！！
以下是我打印预览的部分代码：
FillChar(LogFont, SizeOf(LogFont), 0);
  LogFont.lfEscapement := 900; //单位为0.1度，竖排
  LogFont.lfWeight := 500;
  LogFont.lfFaceName :='宋体';
  LogFont.lfHeight:=11;
  FHFont := CreateFontIndirect(LogFont);
  FH2:=SelectObject(Canvas.Handle, FHFont);
  QRDBText37.Font.Handle := SelectObject(Canvas.Handle, FH2);
  QRPreview1.QRPrinter := QRtongzhi.QRPrinter;

Answer 1

因为不同的设备有不同的操作能力，所以你需要先GetDeviceCaps(Printer.Handle, TC_CR_90);检查一下打印机是否支持字体旋转90度。如果不支持，只能在那个位置放个图片，把字画到图片上。