QuickReportで印刷時の文字幅を変えるには？ (ID:21467)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 骨さんの返事遅れてすみません・・ 説明のしかたがよくありませんでした、 変更したフォントのうちWidthで変更したものだけが、印刷時に反映されないんです。 たとえば↓のようにしたとき、Heightが30のイタリックで印字されるのですが、 横幅は通常（？）の幅になってしまいます。 プレビューでは横長に表示されているのですが・・・ procedure TForm2.QRLabel1Print(sender: TObject; var Value: String); var lft : TLogFont; begin GetObject(Font.Handle,SizeOf(LF),@LF); lft.lfHeight := 30; lft.lfWidth := 50; lft.lfItalic := 1; Font.Handle := CreateFontIndirect(LF); end;