OVH Cloud OVH Cloud

Modifier un élement d'un rapport dans une fonction externe en VB A

1 réponse
Avatar
Phil
Bonjour,
J'ai un rapport qui est une facture avec un label invisible où est écrit
"COPIE".
Je lance l'édition de ma facture par une fonction VBA, qui me génère ma
facture, l'imprime et la sauvegarde.
Je voudrais que si le nombre d'exemplaires est supérieur à 1, il me sorte 1
exemplaire de ma facture comme ci-dessus PUIS le nombre d'exemplaires - 1
avec le label "COPIE" visible.
Je cherche mais sans succès.
Merci pour vos idées.
Phil

1 réponse

Avatar
Gafish
Bonjour,

Tu peux faire dans ta fonction vba comme suit.

DoCmd.Echo False
DoCmd.OpenReport stDocName, acViewDesign
Reports("NomDeTonEtat")![TaZoneCopie].Visible = True
DoCmd.Echo True

tu mets ca dans une boucle sur le nombre d'exemplaire, au premier passage tu
mets visible à false, et aux passages suivants s'il y en a tu mets à true
comme ci-dessus.
Tu ajoutes juste à la suite ta ligne d'impression

Arnaud


"Phil" a écrit dans le message de news:

Bonjour,
J'ai un rapport qui est une facture avec un label invisible où est écrit
"COPIE".
Je lance l'édition de ma facture par une fonction VBA, qui me génère ma
facture, l'imprime et la sauvegarde.
Je voudrais que si le nombre d'exemplaires est supérieur à 1, il me sorte
1
exemplaire de ma facture comme ci-dessus PUIS le nombre d'exemplaires - 1
avec le label "COPIE" visible.
Je cherche mais sans succès.
Merci pour vos idées.
Phil