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

名前

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

本文 >変更したフォントのうちWidthで変更したものだけが、印刷時に反映されないんです。 なるほど、再現できました。 TQRLabelで、Canvas.Font := {QRLabel1.}Font; のように、フォントを設定している部分で、おかしくなる(元に戻る)のが原因かと。 うちでは、以下のようにしてうまく出ました（当方Ver2.0で確認） QRのバージョンの違いは、なんとかカバーしてください(^^; ------------------------------------- uses QRPrntr; var lft : TLogFont; begin GetObject(QRLabel1.Font.Handle,SizeOf(TLogFont),@lft); if QuickRep.QRPrinter.Destination = qrdPrinter then begin //プリンタでの印刷 lft.lfHeight := 30 * プリンタDPI / 96{通常のPixelPerInch}; lft.lfWidth := 50 * プリンタDPI / 96{通常のPixelPerInch}; end else begin //プレビューイメージ作成 lft.lfHeight := 30; lft.lfWidth := 50; end; lft.lfItalic := 1; QRLabel1.Font.Handle := CreateFontIndirect(lft); QuickRep1.QRPrinter.Canvas.Font.Handle := QRLabel1.Font.Handle; //こちらは× //QuickRep1.QRPrinter.Canvas.Font := QRLabel1.Font; end; -------------------------------------