RichTextBoxの一行毎の文字情報をそのまま印刷するには

解決

Dragon 2006-11-07 03:49:38 No: 97118

VB6です。
RichTextBoxの印刷では
Do
   fr.hdc = Printer.hdc
   fr.hdcTarget = Printer.hdc
   nNextCharPos = SendMessage(rtf.hWnd, EM_FORMATRANGE, _
     True, fr)
   If nNextCharPos >= nTextLength Then Exit Do
   fr.chrg.cpMin = nNextCharPos
   Printer.NewPage
   Printer.Print Space(1)
Loop
で印刷する方法が一般的にありますが、行間を広げて印刷できません。
一行毎に色情報を含めた文字列を抽出し、行間を任意に設定してプリンターに送り印刷する方法があれば御教授お願いいたします。

VBレスキュー(花ちゃん) URL 2006-11-08 20:28:08 No: 97119

SelPrint メソッドで、できませんか？
http://hanatyan.sakura.ne.jp/vbhlp/rich01.htm#no11

RichTextBox に表示した通り、書式情報も含めて印刷できます。
行間間隔は、RichTextBox の方で設定しておいてから印刷すればできます。

Dragon 2006-11-09 04:30:45 No: 97120

有難うございます。
RichTextBoxの行間設定に挑戦します。