OVH Cloud OVH Cloud

Impression de plusieurs Etats

2 réponses
Avatar
sab
Bonjour

Je souhaiterai imprimer un document (composé de 2 Etats différents) sur une
impremante que l'utilisateur a choisi.

Malheureusement je sais le faire que pour un seul Etat :
DoCmd.OpenReport strEtat, acViewPreview, condition

' Définir l'imprimante de destination pour l'état
' seulement si une imprimante a été sélectionnée
If Me.lstImprimantes.ListIndex <> -1 Then
' Changer l'imprimante associée à l'état
Set Reports(strEtat).Printer = _
Application.Printers(Me.lstImprimantes.ListIndex)
End If

avec strEtat = le document à imprimer (1 page)
Me.lstImprimantes.ListIndex = liste de toutes les imprimantes


Comment faire pour qu'en appuyant qu'une seule fois sur imprimer, les deux
documents sortent ?
Ou peut on m'indiquer comment faire sortir un document unique composé de 3
pages ( un message d'erreur apparait à environs 53 cm)

Merci d'avance.

2 réponses

Avatar
Raymond [mvp]
Bonjour.

Les deux états ne porte pas le même nom ?
lances les l'un derrière l'autre avec les mêmes fonctions.

pour le document de 3 pages, c'est perdu. la limitation est à 22 pouces
(55,87 cm) de hauteur maxi pour une section. il faut voir si tu ne peux pas
passer par des sous-formulaires dépendants ou indépendants.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access.vba.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


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

Bonjour

Je souhaiterai imprimer un document (composé de 2 Etats différents) sur
une
impremante que l'utilisateur a choisi.

Malheureusement je sais le faire que pour un seul Etat :
DoCmd.OpenReport strEtat, acViewPreview, condition

' Définir l'imprimante de destination pour l'état
' seulement si une imprimante a été sélectionnée
If Me.lstImprimantes.ListIndex <> -1 Then
' Changer l'imprimante associée à l'état
Set Reports(strEtat).Printer = _
Application.Printers(Me.lstImprimantes.ListIndex)
End If

avec strEtat = le document à imprimer (1 page)
Me.lstImprimantes.ListIndex = liste de toutes les imprimantes


Comment faire pour qu'en appuyant qu'une seule fois sur imprimer, les deux
documents sortent ?
Ou peut on m'indiquer comment faire sortir un document unique composé de 3
pages ( un message d'erreur apparait à environs 53 cm)

Merci d'avance.



Avatar
3stone
Salut,

"sab"
Je souhaiterai imprimer un document (composé de 2 Etats différents) sur une
impremante que l'utilisateur a choisi.

Malheureusement je sais le faire que pour un seul Etat :
DoCmd.OpenReport strEtat, acViewPreview, condition



Crée un état qui ne contient pas de données, mais tu incorpore
deux sous-états qui représentent tes deux états.



[...]

Comment faire pour qu'en appuyant qu'une seule fois sur imprimer, les deux
documents sortent ?
Ou peut on m'indiquer comment faire sortir un document unique composé de 3
pages ( un message d'erreur apparait à environs 53 cm)


Le "53cm" représente la taille maximum de la page !!

Possède-tu une imprimante capable d'imprimer du A0 ???

UN enregistrement DOIT tenir sur UNE page, donc sur UNE feuille de papier.
Par contre, la section détail (qui en fait représente UN enregistrement)
peut ce répéter de facon à imprimer un état de 65536 pages !

Cela devrait te suffire, non ;-))


--
A+
Pierre (3stone) Access MVP
~~~~~~~~~~~~~~~~~~~~~~~
http://users.skynet.be/mpfa
http://users.skynet.be/accesshome