Question pour l'impression access

Soyez le premier à donner votre avis sur cette source.

Snippet vu 8 365 fois - Téléchargée 35 fois

Contenu du snippet

petit code qui permet de recevoir un nom d'un formulaire et des conditions (ex: annee = 2003 and user = 'Dragon')

il demande si on veut avoir un preview, si on veut imprimmer et si oui, si on veut imprimer d'autre copie

en access seulement

Source / Exemple :


'Pose les question essentiel pour imprimer, avoir un preview ou si on veut plusieurs copie
Public Sub imprimer(DocName As String, condition As String)
    Dim LinkCriteria As String
    Dim nb_copie As String
    
    If MsgBox("Voulez-vous avoir un preview ?", vbYesNo + vbInformation, "Question à l'usager") = vbYes Then
        DoCmd.OpenReport DocName, acViewPreview, , condition
    End If
    If MsgBox("Voulez-vous tout imprimer ?", vbYesNo + vbInformation, "Question à l'usager") = vbYes Then
        DoCmd.OpenReport DocName, , condition
        If MsgBox("Voulez-vous imprimer d'autre copie ?", vbYesNo + vbInformation, "Question à l'usager") = vbYes Then
            nb_copie = InputBox("Entrez le nombre de copie supplémentaire à imprimer", "Question à l'usager")
            While Not IsNumeric(nb_copie) And nb_copie <> VBA.vbCancel And Int(nb_copie) <> nb_copie And nb_copie <= 0
                MsgBox "Veillez entrer des chiffres entier, plus grand que 0", vbCritical, "Message à l'usager"
                nb_copie = InputBox("Entrez le nombre de copie supplémentaire à imprimer", "Question à l'usager")
            Wend
        End If
    End If
End Sub

A voir également

Ajouter un commentaire

Commentaire

Messages postés
5
Date d'inscription
mardi 6 juillet 2004
Statut
Membre
Dernière intervention
7 mai 2005

c quoi cette merd 8-) hhhhhhhhhhh je plaisante

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.