Discussion :

[zazrun]

Bonjour,

Je souhaite imprimer uniquement la dernière page d'un onglet excel.

Mes lignes sont variables en fonction des données saisies au préalable, j'ai donc inséré une zone d'impression automatique via le code suivant :

Code :

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

1
2
3
Dim DerLig As Long
    DerLig = Range("D" & Rows.Count).End(xlUp).Row
    ActiveSheet.PageSetup.PrintArea = "a1:n" & DerLig

Il arrive que cette zone d'impression représente plusieurs pages, comment puis-je faire pour imprimer que la dernière page.
J'ai essayé de redéfinir ma zone d'impression en fonction de la dernière ligne sans succès... :

Code :

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

1
2
3
4
Dim DerLig As Long
 
    DerLig = Range("D" & Rows.Count).End(xlUp).Row
    ActiveSheet.PageSetup.PrintArea = ("a1:n" & DerLig) - ("a1:n" & DerLig - 30)

Si quelqu'un a eu le problème, merci de m'éclairer.
Xavier

[JPierreM]

Bonjour,

Essayez de voir du coté de

Code :

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

ActiveWindow.SelectedSheets.HPageBreaks.Count

JP

[zazrun]

Merci de votre aide,

où faut-il placer ce bout de code ?

VBA m'affiche un message d'erreur "utilisation incorrecte de la propriété" (.count)

[JPierreM]

Essayez le code suivant, la variable a devrait donner l'adresse de la première cellule en haut de la dernière page à imprimer.
On peut ensuite définir une zone d'impression en utilisant cette adresse et celle de Derlig

Code :

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

1
2
3
4
5
Sub sc()
    With ActiveSheet
        a = .HPageBreaks(.HPageBreaks.Count).Location.Address
    End With
End Sub

JP

[zazrun]

Meric, malheureusement, ca ne fonctionne pas mieux,

j'ai donc essayé avec le code suivant :

Code :

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

1
2
3
4
5
Dim DerLig As Long
Dim a As Long
a = .HPageBreaks(.HPageBreaks.Count).Location.Address
DerLig = Range("D" & Rows.Count).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = a & DerLig

Sans résultats...

j'ai un message d'erreur : "référence de (.hPageBreaks) incorrecte ou non qualifiée"

Xavier.

[JPierreM]

Vous n'avez pas tout retranscrit

Il manque

Code :

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

1
2
3
With ActiveSheet
 
End With