Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Printing RTF in Windows 2000
Message
 
To
31/10/2001 11:21:14
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
00575672
Message ID:
00576054
Views:
35
This message has been marked as the solution to the initial question of the thread.
Hi,
Try to remove StartDoc/EndDoc and StartPage/EndPage from code. This work already made by SelPrint method of RTF control by default. Now it works for me in Win2000.
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)
	ThisForm.Olecontrol1.SelPrint(.hDC)
*	.EndPage(.hDC)
*	.EndDoc(.hDC)
ENDWITH
RELEASE oPrinter
RELEASE PROCEDURE PrtClass
>There has been a program around for awhile that you could call to allow printing RTF text from a Fox app. The name I have seen listed on the thread is called prtclass.prg.
>
>It works great on all systems except Windows 2000. Does anyone one have a work around or another program that will work in Windows 2000.
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform