Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Double impression

Double impression

3 réponses
Avatar
batieres
Bonjour,

Voici une de mes commandes qui me permet en automatique de sortir un etat.
Pouvez-vous me dire ce que je dois rajouter pour pouvoir avoir une double
impression.

Merci D'avance


Private Sub Commande22_Click()
On Error GoTo Err_Commande22_Click


DoCmd.Close
DoCmd.OpenReport "ETAT COMMANDE", acViewNormal

Exit_Commande22_Click:
Exit Sub

Err_Commande22_Click:
MsgBox Err.Description
Resume Exit_Commande22_Click

End Sub
--
Avoir raison c''est avoir le tort des autres
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fabien
Bonjour,

Voici une de mes commandes qui me permet en automatique de sortir un etat.
Pouvez-vous me dire ce que je dois rajouter pour pouvoir avoir une double
impression.

Merci D'avance


Private Sub Commande22_Click()
On Error GoTo Err_Commande22_Click


DoCmd.Close
DoCmd.OpenReport "ETAT COMMANDE", acViewNormal

Exit_Commande22_Click:
Exit Sub

Err_Commande22_Click:
MsgBox Err.Description
Resume Exit_Commande22_Click

End Sub
bonjour,

...
DoCmd.OpenReport "ETAT COMMANDE", acViewNormal
DoCmd.OpenReport "ETAT COMMANDE", acViewNormal
...

Tout simplement ?

Avatar
batieres
Merci FABIEN,

Comme je dis toujours

La simplicite n'est reservé qu'aux gens simples!!

Bonne fin de journée
--
Avoir raison c''est avoir le tort des autres



Bonjour,

Voici une de mes commandes qui me permet en automatique de sortir un etat.
Pouvez-vous me dire ce que je dois rajouter pour pouvoir avoir une double
impression.

Merci D'avance


Private Sub Commande22_Click()
On Error GoTo Err_Commande22_Click


DoCmd.Close
DoCmd.OpenReport "ETAT COMMANDE", acViewNormal

Exit_Commande22_Click:
Exit Sub

Err_Commande22_Click:
MsgBox Err.Description
Resume Exit_Commande22_Click

End Sub
bonjour,

....
DoCmd.OpenReport "ETAT COMMANDE", acViewNormal
DoCmd.OpenReport "ETAT COMMANDE", acViewNormal
....

Tout simplement ?




Avatar
Docteur Jekyll
Pour avoir tout je fais:

nombre=inputbox("Combien de copies désirez vous")
for i= 1 to nombre
impression
next I

"Fabien" a écrit dans le message de news:
470f87fd$0$27392$
Bonjour,

Voici une de mes commandes qui me permet en automatique de sortir un
etat.
Pouvez-vous me dire ce que je dois rajouter pour pouvoir avoir une double
impression.

Merci D'avance


Private Sub Commande22_Click()
On Error GoTo Err_Commande22_Click


DoCmd.Close
DoCmd.OpenReport "ETAT COMMANDE", acViewNormal
Exit_Commande22_Click:
Exit Sub

Err_Commande22_Click:
MsgBox Err.Description
Resume Exit_Commande22_Click
End Sub
bonjour,

...
DoCmd.OpenReport "ETAT COMMANDE", acViewNormal
DoCmd.OpenReport "ETAT COMMANDE", acViewNormal
...

Tout simplement ?