Discussion :

[oekoniko]

Bonjour la comunauté,

Comme mon titre le precise, je cherche a imprimer deux TCD, chaucun sur un onglet different, sur une feuille A4 recto verso.

J'ai cherché sur ce forum et sur google et je n'ai pas trouvé la formule magique (bien que certains posts en soient proches, je n'arrive pas a l'appliquer).

Situation:
J'ai le TCD "TCD_projet" sur l'onglet "overview-projet" et le TCD "TCD_Week" sur l'onglet "overview-semaine". Je souhaite pouvoir imprimer ces 2 tableaux en recto verso (chacun un coté, et oui mon imprimante le permet).

J'ai trouvé un code pour imprimer un TCD (et jai mis un bouton sur l'onglet):

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
 
Sub Print_pivot_table()
 
 If ActiveSheet.PivotTables.Count > 0 Then
 
 With ActiveSheet.PageSetup
 .PrintArea = ActiveSheet.PivotTables("TDC_project").TableRange1.Address
 
.FitToPagesTall = 1
.FitToPagesWide = 1
.CenterHorizontally = True
.CenterVertically = False
 
ActiveSheet.PrintOut
End With
End If
End Sub

Mais cela ne marche que pour la page active...

Qui saurait comment imprimer un ensemble de zones sur differents onglet?

merci d'avance,
nico.

[78chris]

Bonjour

Il faut sélectionner les deux onglets et si l'imprimante est bien réglée en Recto Verso cela s'imprime correctement

[oekoniko]

Salut 78chris,

je vais chercher comment faire ca! a semble integrer les fonction select array...parce que oui, je suis novice!

Merci