クイックレポートで縦書きができない

サンプー 2004-06-22 09:17:12 No: 9563

データベースのデータを1枚の紙（A3サイズ）に12個続けて印刷するプログラムを作っています。この中で、QRLabelのCaptionが日本語で、そのラベルを実行時に縦書きにして印刷しようとしています。プレビューの画面では、ちゃんと縦書きになっているのですが、印刷するとその部分だけが文字だけを90度回転させて印刷されます。コードは以下の通りです。
procedure TFrmSyaken.Button2Click(Sender: TObject);
  var lbl1 : TLogFont;
begin
  lbl1.lfWidth := 10;
  lbl1.lfHeight := 20 ;
  lbl1.lfWeight := 400 ;
  lbl1.lfEscapement := -900;
  lbl1.lfItalic := 0;
  lbl1.lfUnderline := 0;
  lbl1.lfStrikeOut := 0;
  lbl1.lfFaceName := '@MS P ゴシック';
  lbl1.lfCharSet := 128;
  ReportKeiji.QRLabel6.Caption := '代替・廃車';
  ReportKeiji.QRLabel6.Font.Handle := CreateFontIndirect(lbl1);
   ReportTax.ReportKeiji.Preview;
  end;