Discussion :

[Nanit6]

Bonjour à tous,

A travers une macro je souhaite imprimer un état particulier lié à une requête.
Je sélectionne l'état de la façon suivante :

Code :

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

DoCmd.OpenReport "Instructions fab", acViewPreview, , "[Agent d'ordonancement]=" & [Forms]![Instructions de fabrication]![Agent d'ordonancement], acWindowNormal

Cet état comporte 4 pages avec des champs extensibles, ce qui veut dire que chacune d'entre elle peut générer une page supplémentaire.
Je souhaiterais imprimer, par mon bouton, 3 fois la page 2 (ou pages 2 et 3 si le champ extensible provoque une création de page), et également n'imprimer la page 4 que si la zone de texte"TexteBobineuse" issue de la source "Instruction Bobineuse" n'est pas vide.

Malgré pas mal de recherche, je ne trouve pas comment coder ça.

Merci à vous pour votre aide

[electrosat03]

Salut,

Pourquoi faire un état de 4 pages si tu imprimes que la page 2

[Nanit6]

Je me suis mal exprimé.
Sur mon état, j'imprime 1 fois la page 1, 3 fois la page 2, 1 fois la page 3, et la page 4 s'il y a des choses dans le champ de cette page

[electrosat03]

Ah OK, je ne vois pas comment, mais je vais faire une recherche et te dirai si j'ai trouvé

A+

[Nanit6]

Je continue également mes recherches. Merci pour ton aide.

[electrosat03]

Salut,

Dans l'etat, on peut récupérer le numéro de la page avec me.page, peut-être une piste à explorer
Il y a aussi

Code :

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

DoCmd.PrintOut acPages, 1, 4, , 2

qui imprime la page de 1 à 4 2 fois
Il faudrait donc que tu exécutes plusieurs fois la commande les une à la suite des autres en changeant le paramètre des pages à imprimer

ex

Code :

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

1
2
3
DoCmd.PrintOut acPages, 1, 1, , 1
DoCmd.PrintOut acPages, 2, 2, , 3
DoCmd.PrintOut acPages, 3, 3, , 1

Donc, 1 x la page 1
3 x la page 2
1 x la page 3

et regarder pour la page 4

[electrosat03]

Bon, j'ai essayé et ça ne fonctionne pas pour imprimer q'une seule page plusieur fois

Code :

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

1
2
3
4
DoCmd.OpenReport stDocName, acViewPreview 
DoCmd.PrintOut acPages, 1, 4, , 1
DoCmd.PrintOut acPages, 2, 2, , 1
DoCmd.PrintOut acPages, 2, 2, , 1

Tu auras donc page de 1 à 4 1 x
page 2 3 x

Le problème, si c en pdf, il va te demander à chaque commande, de l'enregistrer
Voilà, je pense que c'est un début, il faut poursuivre les recherches

[electrosat03]

Salut Nanit6,

As-tu trouvé la solution ou as-tu essayé le code que j'ai posté ?
Dis moi si c ok

[Nanit6]

J'ai testé la méthode

Code :

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

1
2
3
4
5
6
7
Private Sub CommandeImpress_Click()
DoCmd.OpenReport "Instructions fab", acViewReport, , "[Agent d'ordonancement]=" & [Forms]![Instructions de fabrication]![Agent d'ordonancement], acWindowNormal
DoCmd.PrintOut acPages, 2, 2, , 3
DoCmd.PrintOut acPages, 1, 1, , 1
DoCmd.PrintOut acPages, 3, 4, , 1
 
End Sub

Le nombre d'impression marche, sauf que sur la page 2 il me manque la première ligne de chaque zone de texte, sur la page 1 tout est OK, et sur les pages 3 et 4 il me manque les 2 premières lignes... Incompréhensible !

[electrosat03]

tu imprimes en pdf ou en papier
C peut-être ta mise en page de ton état

[Nanit6]

J'ai essai les 2.
Sur mon aperçu d'impression de l'état, tout est bon.
Si je fais juste aperçu et impression, tout est OK.
Si je choisis une feuille spécifique, ça ne marche plus et ça enlève la première ou les 2 premières lignes.

[electrosat03]

Salut,

Chez moi l'impression se passe correctement, il ne manque pas de ligne.
Sans doute, comme je le disais, un problème de format de page, section sécable ou insécable, etc..

Il faut chercher, pas d'autre solution

[Nanit6]

Salut,

Merci pour ton retour.

Le truc est énorme.
Si j'imprime les 4 pages d'un coup, pas de problème.
Dès que je n'imprime qu'une seule page, en étant en mode aperçu de l'état avant impression, j'ai un problème.
Si j'imprime de la page 1 à 1, j'ai toutes les lignes.
Si j'imprime de la page 2 à 2, il me manque 1 ligne.
Si j'imprime de la page 3 à 3, il me manque 2 lignes.
Si j'imprime de la page 4 à 4, il me manque 3 lignes.

Ça fait un début de piste, même si je ne comprends pas la cause.

[electrosat03]

Oui, un début, mais je ne vois pas pourquoi
Comme signalé, chez moi il n'y a pas de problème pour le print du PDF, la page 1 puis la 2 puis la 3 c'est OK

Je cherche de mon côté, mais pas facile si c bon chez moi
Comme je te le disais, peutêtre regarder pour la mise en page des différentes sections de ton état

[Nanit6]

Au final, j'ai scindé mon état en 2 états que j'imprime dès la première page. De cette manière, pas de problème de lignes manquantes.
Je chercherai une solution plus "propre" plus tard.
Merci en tout cas de ton aide

[electrosat03]

Salut,

Pas de problème, le forum est là pour ça

A+