PC SOFT

FORUMS PROFESSIONNELS
WINDEV, WEBDEV et WINDEV Mobile

Accueil  |  Messages récents  | Connexion  |   | Français  FR
Accueil → WINDEV 2024 → // Solution pour imprimer documents en séries //
// Solution pour imprimer documents en séries //
Débuté par Marc.v, 24 fév. 2007 09:58 - Aucune réponse
#1
Posté le 24 février 2007 - 09:58
Hello, à tous

Personnellement je cherchais comment faire pour imprimer plusieurs documents en une fois. Par exemple, je veux imprimer de la facture 2 à 12.

REQUIS : Il faut que vous ayez une table, et que lorsque vous cliquez sur un bouton imprimer ( en vous postionnant sur la ligne sélectionnée, il faut que le document s'imprime.)

Si vous en êtes là alors voici comment j'ai procédé


// FILTRE PAR NUMERO DE DOCUMENT POUR IMPRIMER

sRubCléParcours_num_facture est une chaîne
// On active le filtre no_facture_1 c'est un champ et no_facture_2 aussi
sRubCléParcours_num_facture =
HFiltre(T_factures,T_factures.fac_numero,no_facture_1,no_facture_2)

// PARCOURS des enregistrements filtrés on va les afficher que ceux là

HLitPremier(T_factures, sRubCléParcours_num_facture)
TANTQUE PAS HEnDehors()
HLitSuivant(T_factures, sRubCléParcours_num_facture)
FIN
FIN

// J'AFFICHE QUE LES DOCUMENTS CONCERNES
TableAffiche(FEN_factures.TABLE_factures)


position_ligne est un entier
POUR position_ligne = 1 A TableOccurrence(FEN_factures.TABLE_factures)

// On imprime chaque facture en se déplacant d'un cran vers le bas fac 1, fac 2, fac 3.. etc
TableSelectPlus(FEN_factures.TABLE_factures,position_ligne)
iImprimeEtat(ETAT_facture_impression)
FIN


// on désactive le filtre et tout est comme au départ
HDésactiveFiltre(T_factures)
TableAffiche(FEN_factures.TABLE_factures)
Ferme(FEN_factures_impression)

C'est peut être pas très pro comme manière de procéder mais ca marche bien, et je trouve encore assez facile.

merci et bon dev
→ Revenir à WINDEV 2024