Impression plusieurs pages en VBA
Bonjour,
J'essaie de créer une macro permettant d'imprimer plusieurs pages à partir d’Excel. Le problème c'est que c'est page ne se suivent pas.
Effectivement, j'ai besoin de faire imprimer les pages comprises entre les cellules 1@41 et 124@158. Pour les deux feuilles, c'est le contenu compris entre les rangé 1@10 qui devra s'imprimer.
J'ai créé une procédure, mais en lorsque je clique sur le bouton pour imprimer, il n'imprime qu'une seule des deux pages à imprimer.
Voici la fonction que j'ai faite:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| Private Sub CommandButton5_Click()
dim intColMin as integer, intColMax as integer
dim intLinMax_autre as integer, intLinMax_autre as integer
dim intLinMax as integer, intLinMax as integer
intColMin = 1
intColMax = 10
intLinMin_autre = 1
intLinMax_autre = 41
intLinMin = 124
intLinMax = 158
with ActiveSheet.PageSetup.PrintArea = Range(Cells(intLinMin, intColMin), _
Cells(intLinMax, intColMax)).Address
ActiveSheet.PageSetup.PrintArea = Range(Cells(intLinMinautre, intColMin), _
Cells(intLinMax_autre, intColMax)).Address
end with
Application.Dialogs(xlDialogPrinterSetup).Show
ActiveWindow.SelectedSheets.PrintOut
Paramètre_impression.Hide
End Sub |
Merci à l'avance de votre aide.
