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

mar. 27 février 2018, 16h39
frg
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