名前 題名 ▼ Andyさん > ▼ 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の方では大きくなって、はみ出ます。 > 印刷では、正常に印刷されますが > > まあ、何はともあれ、悶々としていた、気分が晴れて着ました。 > > あれから、海外のホームページを色々見まして、印刷だけではうまくいくように > なりましたが、半分眠気眼でやっていましたので、わけ分からなくなってきました > ので寝ました。 > > 先ほど、病院から帰ってきて、見まして、感謝感激です。 > > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link