[VBA] Zone d'impression Excel - Page 2
Résolu
Précédent
- 1
- 2
lol , pas grave ^^
Bon j'explique : ma zone d'impression fait 2 pages.
Lorsque je lance l'impression de cette zone au lieu de m'imprimer un pdf de 2 pages (avec page 1 et page2), et bien il m'imprime deux pdf de 1 page chacun (page 1 sur un pdf et page 2 sur un autre pdf)
Suis-je plus clair ? :)
Bon j'explique : ma zone d'impression fait 2 pages.
Lorsque je lance l'impression de cette zone au lieu de m'imprimer un pdf de 2 pages (avec page 1 et page2), et bien il m'imprime deux pdf de 1 page chacun (page 1 sur un pdf et page 2 sur un autre pdf)
Suis-je plus clair ? :)
C'est bon j'ai trouvé ma solution :
Merci à toi lermite et à Pijaku pour votre aide très précieuse.
Bonne continuation, encore merci
A+
Iso
Sub PrintDevis()
'Déclaration des variables
Dim LigFin As Integer
'Zone impression "devis 1 2 3 4"
Const Colonnes = 14 'adater au nombre de colonne
Const Lig = 59 'Première ligne où commencer après page de garde
Sheets("DEVIS 1 2 3 4").Select 'adapter le nom de la feuille
If Cells(103, 13) <> 0 Then
LigFin = Lig + 53
ElseIf Cells(156, 13) <> 0 Then
LigFin = Lig + 106
ElseIf Cells(209, 13) <> 0 Then
LigFin = Lig + 159
ElseIf Cells(262, 13) <> 0 Then
LigFin = Lig + 212
ElseIf Cells(315, 13) <> 0 Then
LigFin = Lig + 265
End If
ActiveSheet.PageSetup.PrintArea = Range(Cells(1, 1), Cells(LigFin, Colonnes)).Address
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub
Merci à toi lermite et à Pijaku pour votre aide très précieuse.
Bonne continuation, encore merci
A+
Iso
Précédent
- 1
- 2
