PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV 2024 → SVP URGENT.....Problème d'impression
SVP URGENT.....Problème d'impression
Débuté par Fabien, 26 jan. 2006 17:46 - 2 réponses
Posté le 26 janvier 2006 - 17:46
Bonjour,
Dans l'application, j'ai un état qui tient sur plusieurs pages. Comme cette appli va etre installé sur plusieurs postes client, je ne connais pa à l'avance l'imprimante utilisé.

Je voudrais dire a l'application que si l'imprimante utilisé peut imprimer en recto/verso, alors l'impression se fait en recto/verso, sinon elle s'imprime juste en recto

Pour l'instant j'ai ceci comme code, mais il ne marche pas:

test_imprimante est un Variant

iAperçu(i100, "Aperçu écran", Vrai)
test_imprimante = iParamètre(iRectoVerso)
SI test_imprimante = iRectoVerso_Simple ALORS
iImprimeEtat(Etat_Stock)
SINON
iParamètre("DEFAUT=NON")
iParamètre("RECTOVERSO=VERTICAL")
iImprimeEtat(Etat_Stock)
FIN

Comment faire svp, j'aimerais avoir une response avec du code si possible.
Merci de répondre car j'en est absolument besoin :)
Posté le 26 janvier 2006 - 18:50
Salut,

j'ai trouvé un moyen avec api

iRetour est un entier
DC_DUPLEX est un entier = 7
strImprimante est une chaîne = "HP LaserJet 4000 Series PCL6"+Caract(0)
iRetour =
API("winspool.drv","DeviceCapabilitiesA",&strImprimante,0,DC_DUPLEX,0,Null)
SI iRetour = 1 ALORS
Info("recto verso supporté")
SINON
Info("recto verso non supporté")
FIN


J'ai fais 4 tests ():
Imprimante HP LaserJet 4000 (avec unité recto verso en option)
-avec l'unité recto verso non installé (iRetour=0)
-avec l'unité recto verso installé (iRetour=1)
Imprimante HP 3650 (unité recto verso intégrée (peut pas être retirée de
l'imprimante))
-iRetour=1
Imprimante Epson (pas de recto verso)
-iRetour=0

Mathieu
Posté le 26 janvier 2006 - 20:55
Salut,

Plusieurs posts ont indiqués que l'ordre à respecter (tout au moins jusqu'à la 9 include) était :
iconfigure
iparamètre
iapercu
imarge
icreepolice
iimprime

Donc il faut remettre ton code dans l'ordre et essayer avant tout
Bon Dév