tprinterのcanvasへのフォントサイズ設定について

でるでる 2007-06-06 22:05:09 No: 26530

Tprinter.canvas.fonts.size に対して、8.5という数字を設定したいのですが、sizeがintegerなため、設定できないで困っています。
というのは、小型プリンタ（POSレジとかについてるレシートプリンタです）に、印刷したりするのは出来たのですが、プログラムから用紙カットしたりしようとするとフォントサイズを8.5で設定しないといけないようです。
'Control'フォントでサイズ'8.5'で印字する方法があれば、教えて頂ければと投稿させて頂きました。
よろしくお願いします。

Basser 2007-06-06 22:54:09 No: 26531

Font.Heightプロパティで設定すれば可能では？

でるでる 2007-06-07 05:37:58 No: 26532

Basser様レスありがとうございます。
Font.Heightに設定してもダメでした。
logpy:=getdevicecaps(printer.handle,LOGPIXELSY);
font.height := Trunc(8.5*logpy/72);
とやってみましたが、結果は同じでした。
うーん。VBだと、font.size = 8.5 って出来るんですけどね〜。
delphiではどうやったらいいんだろう・・

風来坊 2007-06-07 05:50:22 No: 26533

> printer.handle
じゃなくて printer.canvas.handle じゃねーの？

でるでる 2007-06-08 23:22:43 No: 26534

風来坊様レスありがとうございます。
>じゃなくて printer.canvas.handle じゃねーの？
結果は、同じですね〜。制御文字が印字されます・・。
VCとかでこの部分作って、delphiから呼び出すしかないのかな〜。
'Control'フォントで、サイズ8.5で'P'を印字するとプリンタ側でコマンドと認識、サイズ9とかだと素直に'P'を印字しちゃうんですよね。