|
▼ Mr.XRAYさん
> おっと間違えました．
>
> > TPrev(plPrev1).ScaleInitialize(plPrev1.Canvas,False);
> > (第2引数はFalseでもTrueでもどちらでも可)
>
> この後に，
>
> plPrev1.Canvas.TextOut(200,TwipsToMili(Range.rc.Bottom)+50,'次の行');
>
> ですね．TPrev(plPrev1)... で再スケーリングしています．
> TextOutの前にFontの設定をした方がいいです．
> また，プリンタによって，微妙に位置がズレるようです．
ありがとうございます。
今度は、うまくいくみたいです。
こんなやり方は露と知りませんでした。
ただ、気が付いた点ですが、サンプルのRichtEdit1とRichtEdit2ではプレビューが
違うみたいで、RichtEdit2の方では大きくなって、はみ出ます。
印刷では、正常に印刷されますが
まあ、何はともあれ、悶々としていた、気分が晴れて着ました。
あれから、海外のホームページを色々見まして、印刷だけではうまくいくように
なりましたが、半分眠気眼でやっていましたので、わけ分からなくなってきました
ので寝ました。
先ほど、病院から帰ってきて、見まして、感謝感激です。
|