Discussion :

[sieste68]

Bonjour,

je me heurte à une soucis : j'aimerai faire une impression d'une feuille construite par programmation.
Afin d'améliorer la visibilité, j'aimerai imprimé une ligne sur 2 en fonds gris, mais je n'y arrive pas.
Qq aurait-il déjà fait cela ?

Merci de votre aide

Patrick

[michelS]

Salut,

Avec la commande PV fixer propriete place et les constantes pv style couleur fond pair/pv style couleur fond impair, tu devrais obtenir un bon résultat.

A +

[sieste68]

Salut,

j'ai essayer, mais cela ne marche que pour une cellule. Je n'ai rien trouvé pour déclarer une ligne entière

Une autre idée ?
Voici le code dans lequel je voudrais faire cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
**` SuiviFrigo
 
**`EnfantsRepas 1.0
**`1.0
 
**`Méthode qui imprime une feuille mensuelle pour les repas
 
SUPPRIMER MESSAGES
 
**`Création de la zone Hors Ecran (plus rapide)
C_ENTIER LONG(ZoneHorsEcran)**`Référence de la zone hors écran
$ZoneHorsEcran:=PV Creer zone hors ecran **`Création de la zone hors écran
$x:=0
**`Impression des dates
 
**`Création d'un tableau de dates
**`Demander le numéro du mois
Tant que (($x<=0)*|*($x>12))
	$x:=Num(Demander("Quel mois"))
Fin tant que 
 
$y:=Num(Demander("Quelle année"))
Si ($y=0)**`On est jamais assez prudent
	$y:=Annee de(Date du jour)
Fin de si 
 
$DernierJour:=yDateDernierjourdumois (Date("01/"+Chaine($x)+"/"+Chaine($y)))
$PremierJour:=Date("01/"+Chaine($x)+"/"+Chaine($y))
$combien:=$dernierJour-$Premierjour+1
 
PV FIXER ENTETE ($ZoneHorsEcran;pv entête centre ;"Suivi du Réfrigérateur & Micro Ondes ________________ du Mois de "+<>ZTbNomDuMois{$x}+" "+Chaine($y))
$b:=0
 
Boucle ($a;0;$combien-1)
	**`Il faut imprimer la date dans les entête de colonnes
 
	Si (Numero du jour(Ajouter a date($PremierJour;0;0;$a))#Samedi )*&*(Numero du jour(Ajouter a date($PremierJour;0;0;$a))#Dimanche )*&*(Numero du jour(Ajouter a date($PremierJour;0;0;$a))#Mercredi )
		$Texte:=Sous chaine(<>ZTbNomDuJour{Numero du jour(Ajouter a date($PremierJour;0;0;$a))};1;1)+" "+Chaine(Ajouter a date($PremierJour;0;0;$a))
		PV FIXER VALEUR CELL ALPHA ($ZoneHorsEcran;1;3+$b;$texte)**` Fixons la date
		$b:=$b+1
	Fin de si 
 
Fin de boucle 
 
PV FIXER LARGEUR COLONNES ($ZoneHorsEcran;1;1;10*9)**`Les dates
**`Impression du noms des élèves
 
PV FIXER VALEUR CELL ALPHA ($ZoneHorsEcran;3;2;"Heures Vaisselle")
PV FIXER VALEUR CELL ALPHA ($ZoneHorsEcran;4;2;"T° frigo Matin")
PV FIXER VALEUR CELL ALPHA ($ZoneHorsEcran;5;2;"T° frigo Après-Midi")
PV FIXER VALEUR CELL ALPHA ($ZoneHorsEcran;6;2;"Nettoyage Frigo")
PV FIXER VALEUR CELL ALPHA ($ZoneHorsEcran;7;2;"Nettoyage Micro-Ondes")
PV FIXER VALEUR CELL ALPHA ($ZoneHorsEcran;8;2;"Nom")
PV FIXER VALEUR CELL ALPHA ($ZoneHorsEcran;9;2;"Signature")
$TheMax:=13
 
APPELER SUR ERREUR("base_GèreLesErreurs")
 
PV FIXER LARGEUR COLONNES ($ZoneHorsEcran;3;6;$TheMax*9)
PV FIXER LARGEUR COLONNES ($ZoneHorsEcran;7;7;($TheMax+3)*9)
PV FIXER LARGEUR COLONNES ($ZoneHorsEcran;8;9;17*9)
PV FIXER LARGEUR COLONNES ($ZoneHorsEcran;2;2;2*9)
 
PV FIXER PROPRIETE IMPRESSION ($ZoneHorsEcran;pv impr orientation ;pv orientation paysage )
PV Ajouter police ($ZoneHorsEcran;"Arial")
 
PV FIXER ENTETE ($ZoneHorsEcran;pv pied de page centre ;"Imprimé le #D")
PV FIXER ENTETE ($ZoneHorsEcran;pv pied de page droite ;"Page #p/#P")
 
PV IMPRIMER ($ZoneHorsEcran)
 
APPELER SUR ERREUR("")
 
PV SUPPRIMER ZONE HORS ECRAN ($ZoneHorsEcran)
LAISSER MESSAGES

[michelS]

Si tu as une zone $ZoneView avec 5 colonnes et 30 lignes, avant de lancer ton édition, tu fais

PV FIXER PROPRIETES PLAGE($ZoneView;1;1;5;30;pv style couleur fond pair;;PV Index vers couleur (15))
PV FIXER PROPRIETES PLAGE($ZoneView;1;1;5;30;pv style couleur fond impair;;PV Index vers couleur (12))

J'ai mis n'importe quoi comme couleur mais c'est le principe. Je l'utilise dans quelques bases et cela fonctionne sans souci.

A +

[sieste68]

Super, merci.
Exactement ce que je voulais. Je remet juste la syntaxe correct :

PV FIXER PROPRIETE PLAGE ($ZoneHorsEcran;1;1;9;$combien;pv style couleur fond impair ;PV Index vers couleur (Blanc ))

Encore merci