>>I've got some richtext generated by the RichText control and am trying to print that richtext in a Report Writer report. I used the steps outlined in KB Q246088 as a starting point, but every time I print I get a Notepad icon instead of the RichText. Furthermore, I am not confident that the Picture/Active-X Bound Control in the report will stretch to accomodate the content. It's currently clipping the Notepad icon and I don't see a "Stretch with Overflow" type option such as the one available for TextBox fields (the other options are Scale picture and don't indicate that the frame changes size).
>>
>>Printing using the richtext controls SelPrint method works fine, but I really need printing within a report as well.
>>
>>I dump the data to a file (the DATA clause was giving me an error) and then stick it into the general field sol_strategy which is used by the report:
>>APPEND GENERAL sol_strategy FROM rtftest.txt CLASS "RICHTEXT.RICHTEXTCTRL.1"
>>
>>Configuration problem? Programming problem that can be corrected? Known problem with RichText control? Third-party control available?
>>
>>Thanks,
>>Sean Hurley
>
>Sean,
>
>Here is the code behind a 'print' button:
>

>LOCAL lcPrinter, oPrinter
>lcPrinter = GETPRINTER()
>lcTitle = "RTF Printout"
>SET PROCEDURE TO PrtClass.PRG ADDITIVE
>oPrinter = CREATEOBJECT("PrintObj",lcPrinter)
>WITH oPrinter
>	.StartDoc(.hDC, lcTitle)
>	.StartPage(.hDC)
>	This.Parent.Rtfcontrol1.Olecontrol1.SelPrint(.hDC)
>	.EndPage(.hDC)
>	.EndDoc(.hDC)
>ENDWITH
>RELEASE oPrinter
>RELEASE PROCEDURE PrtClass
>

>
>Here is prtclass.prg, which contains the class definition:
>
>

>DEFINE CLASS PrintObj AS LINE
>	hDC = 0 && holds the printer device context
>	PROTECTED lnHeap, lnDoc
>	lnHeap = 0
>	lnDoc = 0
>	PROCEDURE INIT(tcPrinter) && optionally, specify printer
>		*Set up the Win API calls we'll need
>		THIS.DeclareDLLs()
>		* Create the Device Context
>		THIS.hDC = THIS.CreateDC(tcPrinter)
>	ENDPROC
>
>	PROCEDURE DESTROY
>		DeleteDC(THIS.hDC)
>	ENDPROC
>
>	PROCEDURE CreateDC(tcPrinter)
>		* If no printer is specified, use the * first from APRINTERS()
>		IF TYPE("tcPrinter")<>"C" OR EMPTY(tcPrinter)
>			LOCAL laPrint[1,2], lncount
>			lncount = APRINTERS(laPrint)
>			IF lncount > 0
>				tcPrintar = laPrint[1,1]
>			ELSE
>				tcPrinter = ""
>			ENDIF
>		ENDIF
>		RETURN CreateDC("WINSPOOL",tcPrinter,0,0)
>
>	PROCEDURE DeclareDLLs( )
>	  DECLARE INTEGER StartDoc IN Win32Api INTEGER, STRING
>	  DECLARE INTEGER StartPage IN Win32Api INTEGER
>	  DECLARE INTEGER EndPage IN Win32Api INTEGER
>	  DECLARE INTEGER EndDoc IN Win32Api INTEGER
>	  DECLARE INTEGER CreateDC IN Win32Api STRING, STRING, INTEGER, INTEGER
>	  DECLARE INTEGER DeleteDC IN Win32Api INTEGER
>	  DECLARE INTEGER HeapCreate IN Win32Api INTEGER, INTEGER, INTEGER
>	  DECLARE INTEGER HeapDestroy IN Win32Api INTEGER
>	  DECLARE INTEGER HeapAlloc IN Win32Api INTEGER, INTEGER, INTEGER
>	  DECLARE INTEGER HeapFree IN Win32Api INTEGER, INTEGER, INTEGER
>	  DECLARE Istrcpy IN Win32Api INTEGER, STRING
>	ENDPROC
>
>	PROCEDURE StartDoc(tnhDC, toDocName)
>		* Run the Win API StartDoc function
>		tcDocName = IIF(TYPE("tcDocName")<> "C","", tcDocName)
>
>		LOCAL lnHeap, lnDoc, lcStruct
>		* Create a Windows string w/ pointer for the queue name
>		THIS.lnHeap = HeapCreate(0, 8192, 8192)
>		THIS.lnDoc = HeapAlloc(THIS.lnHeap, 0, LEN(tcDocName)+1 )
>		Istrcpy ( THIS. lnDoc, tcDocName )
>		* Create a structure
>		lcStruct = THIS.Toint(12) + ;
>			THIS.Toint( ;
>			IIF(EMPTY(tcDocName), 0, THIS.lnDoc)) + ;
>			THIS.Toint(0)
>		* Call the win API function
>		StartDoc(tnhDC, lcStruct)
>	ENDPROC
>
>	FUNCTION Toint(tiNumber)  && convert number to Intel
>		* four byte string in low-byte, high-byte format
>		LOCAL cString, nT
>		cString = ''
>		FOR nT = 1 TO 4
>			cString = cString + CHR(tiNumber%256)
>			tiNumber = INT(tiNumber /256)
>		ENDFOR
>		RETURN cString
>
>	PROCEDURE EndDoc(tnhDC)
>		* Release the Heap, if allocated
>		IF THIS.lnHeap <> 0 OR THIS.lnDoc <> 0
>			* Free the memory allocated above
>			HeapFree(THIS.lnBeap, 0, THIS.lnDoc)
>			HeapDestroy(THIS.lnHeap)
>		ENDIF
>		RETURN EndDoc(tnhDC)
>
>	PROCEDURE StartPage(tnhDC)
>		RETURN StartPage(tnhDC)
>
>	PROCEDURE EndPage(tnhDC)
>		RETURN EndPage(tnhDC)
>
>ENDDEFINE
>
>

>
>Works find on WinXX but doesn't appear to work on W2K, yet.
>JLK


.SelPrint works fine for me. It's printing from the report writer that is the problem.

Sean