Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to print a general field ?
Message
 
To
12/06/2007 11:15:08
General information
Forum:
Visual FoxPro
Category:
Other
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Miscellaneous
Thread ID:
01232294
Message ID:
01232305
Views:
32
This message has been marked as the solution to the initial question of the thread.
>My general field contents a Word document.
>And I wonder how to print it?

Something like this:
*Procedure YGeneral_PrintWord
* assuming there is a table having General field lcfile and there is a WORD document, embedded

use (your_table)
Genfiedname="General_Field_Name"

GO (appropriate_record_number)

local oForm
oForm = Createobject('_Form',Genfiedname)
WITH oForm.myOle1
	IF .oleclass="Word.Document"
		* set the control size properly; 
		*  otherwise the document paper size may be not properly inherited.
		.width=600  
		.height=800
		.object.Activate
		.object.PrintOut(0)
	ELSE
		?"?  OLeclass: ", .oleclass
	endif	
ENDWITH
=oForm.Release()
RETURN
*-------------------------------------------------------------------
Define Class _Form As Form
	PROCEDURE iNIT
		LPARAMETERS pGenFieldName
		this.addobject('myOLe1',"OleBoundControl")
		this.myole1.ControlSource = ALIAS()+'.'+pGenfieldName
	ENDPROC
Enddefine
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform