Question pour l'impression access

Commenter

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

S'inscrire maintenant

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.

Du même auteur (cs_dragon)