Discussion :

[olivier45fr]

Bonjour,

Je fais tourner 4 BO avec 5 requêtes chacun, tous les matins à 6 heures, en rafraîchissement automatique.
Ce que je cherche à faire c’est qu’il s’imprime tout seul près le rafraîchissement grâce à une macro car en ce moment j’ai la macro :

Private Sub Document_AfterRefresh()
ActiveReport.PrintOut

End Sub

Mais cela ne m’imprime que le rapport actif et non le rapport qui s’est rafraîchie

Merci par avance

Cdt

Olivier

[nuke_y]

Code :

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

ActiveDocument.PrintOut

?

[olivier45fr]

cela pose le même problème

ça imprime la première requête qui est à l'écran mais pas les autres

[nuke_y]

Dans ce cas essaye un truc du genre :

Code :

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

1
2
3
4
5
6
Dim Rep As Report
For i1 = 1 To ActiveDocument.Reports.Count
Set Rep = ActiveDocument.Reports.Item(i1)
Rep.PrintOut
MsgBox "Rapport imprimé"
Next i1

Bon evidemment je t'invite à enlever le MsgBox hein ?

[olivier45fr]

bonjour

Je me suis peut être mal exprimé j'ai 5 BO d'ouvert avec plusieurs documents en rafraîchissement automatique par BO

mon problème c que la macro n'imprime que le document actif mais ne bascule pas vers les autre

Ps : désole pour ne pas avoir répondu avant mais RTT

olivier

[nuke_y]

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
Sub Akunamatata()
Dim doc As Document
Dim Rep As Report
 
For i1 = 1 To Application.Documents.Count
Set doc = Application.Documents.Item(i1)
doc.Activate
    'For j1 = 1 To ActiveDocument.Reports.Count
    'Set Rep = ActiveDocument.Reports.Item(j1)
    'Rep.Activate
    'Rep.PrintOut
    'MsgBox "Rapport imprimé"
    'Next j1
doc.PrintOut
MsgBox "Document imprimé"
Next i1
 
End Sub

Je t'ai laissé la partie qui boucle sur les reports aussi en commentaire, au cas où le printout de tout le document ne marche pas, il faudra imprimer chaque rapport un par un.