Discussion :

[Décibel]

Bonsoir,

J'ai un formulaire très complexe et qui sort très bien en faisant une impression écran.
J'aimerai simplement faire une impression écran en appuyant sur un bouton, si quelqu'un connait le code VBA, j'en serai heureux !

Merci
NB je n'ai rien trouvé sur le net…

[FreeAccess]

Bonsoir,
Comme je ne connais pas la version d'Access que tu possède, je vais donc me baser sur AC2003..

** En utilisant les assistantst ** (parce qu'ils sont parfois utiles... )

Ton formulaire à imprimer se nomme "Formulaire3"
Sur ce même formulaire, tu crée un bouton de commande à l'aide de l'assistant:
1) tu choisie dans "Catégorie" = Opérations sur formulaire et dans "Actions" = Imprimer le formulaire en cours
...tu clic sur suivant et tu continue l'assistant jusqu'au bout.

A la fin, tu viens de créer un bouton de commande avec un événement "Sur clic", dans lequel le code VBA a été automatiquement écrit:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Commande7_Click()
On Error GoTo Err_Commande7_Click
'C'est cette instruction qui va déclencher l'impression du formulaire en cours
    DoCmd.PrintOut
 
Exit_Commande7_Click:
    Exit Sub
Err_Commande7_Click:
    MsgBox Err.Description
    Resume Exit_Commande7_Click
 
End Sub

Maintenant, si tu veux "déclencher" l'impression du Formulaire3 à partir d'un autre formulaire.......sans connaitre de code, tu peux procéder de la même façon que précedemment, seulement ici tu choisis "Actions" = Imprimer un formulaire. L'assistant te guideras et de demanderas le nom du Formulaire à imprimer.......
Au final, le code de ton bouton ressemble à ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Commande8_Click()
On Error GoTo Err_Commande8_Click
 
    Dim stDocName As String
    Dim MyForm As Form
'Ici, Formulaire3 correspond au nom du Form que tu souhaites imprimer....
    stDocName = "Formulaire3"
    Set MyForm = Screen.ActiveForm
    DoCmd.SelectObject acForm, stDocName, True
    DoCmd.PrintOut
    DoCmd.SelectObject acForm, MyForm.Name, False
 
Exit_Commande8_Click:
    Exit Sub
Err_Commande8_Click:
    MsgBox Err.Description
    Resume Exit_Commande8_Click
 
End Sub

Bonne continuation....

[Décibel]

yeepi !!!

Merci...
Juste une petite chose encore, penses tu qu'il soit possible de définir une zone d'impression afin de prendre que la partie importante du formulaire...
je connais assez bien vb...

[FreeAccess]

Re,

.....qu'il soit possible de définir une zone d'impression afin de prendre que la partie importante du formulaire

Là, je vais mettre mon Joker...

Mais, personnellement....pour un tel cas, je préfère passer par un état (c'est quand même sa fonction.... )
Maintenant, tu n'es pas obligé de re-créer entièrement ton état.....il suffit de:
clic droit sur le nom de ton formulaire.
Enregistrer sous
dans la fenêtre, choisir "En tant que" = Etat

Maintenant, ton formulaire est transformé en état que tu pourras ajuster comme tu le souhaite...
J'espère que cela répond à ta question.......

[Décibel]

Oui, merci !!!!