ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : génération exécutable avec utilisation de la classe pdialog pour sélectionner une imprimante.   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

mar. 27 février 2018, 16h39
frg
France France

atoutfox.public.association

génération exécutable avec utilisation de la classe pdialog pour sélectionner une imprimante.

Bonjour,
J'ai découvert sur ce forum la class pdialog qui me permet de récupérer les paramètres d'imprimante sélectionnés par l'utilisateur.
Mais lorsque je génère mon exécutable, cette classe étant enregistrée avec OLE public, la compilation dure plus de 10 mn sur "CREATING TYPE LIBRARY AND REGISTRING COM COMPONENT". Si je ne suis pas en administrateur, cette tentative échoue mais mon exécutable est bien créé.
Si je décoche OLE public de cette classe, je n'ai plus ce problème, mais ma fonction plante.
Ci-dessous le code de ma fonction de choix d'imprimante :

set classlib to pdialog additive
o=createobject("pdialog.pdialog")
o.showprinter()
lcImpRetour = ""
* Retour Nom imprimante, Bac, Nom format, orientation, Nbre de copies, Qualité impression
lcImpRetour = ALLTRIM(o.printername)+",DEVICE="+ALLTRIM(o.printername) ;
+ CHR(13)+CHR(10)+ "DEFAULTSOURCE=" + ALLTRIM(STR(o.defaultsource)) ;
+ CHR(13)+CHR(10) + "COPIES=" + ALLTRIM(STR(o.papercopies)) ;
+ CHR(13)+CHR(10) + "ORIENTATION=" + ALLTRIM(STR(o.orientation)) ;
+ CHR(13)+CHR(10) + "PRINTQUALITY=" + ALLTRIM(STR(o.printquality)) ;
+ CHR(13)+CHR(10) + "DUPLEX=" + ALLTRIM(STR(o.duplex)) ;
+ CHR(13)+CHR(10) + "COLOR=" + ALLTRIM(STR(o.color))

Merci pour votre aide...

Permalink : http://www.atoutfox.org/nntp.asp?ID=0000018876
19 100 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2018.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0