Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Printing RTF in Windows 2000
Message
 
À
31/10/2001 11:21:14
Information générale
Forum:
Visual FoxPro
Catégorie:
Gestionnaire de rapports & Rapports
Divers
Thread ID:
00575672
Message ID:
00576054
Vues:
33
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.
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform