maval
XLDnaute Barbatruc
Bonjour,
Je suis à la recherche d'un code pour définir une zone d'impression en fonction du nombre de ligne.
Je m'explique: j'ai un classeur et suivant les circonstances il y a de 5 à 250 lignes et a chaque fois que je doit imprimer je doit définir une zone d'impression. Y a t-il en VBA un code qui permette de définir la zone d'impression suivant le nombre de ligne a imprimer?
J'ai le code suivant mais il doit y avoir un problème car il sélectionne bien la zone mais n'imprime pas?
Je vous remercie de votre aide
Cordialement
Max
Je suis à la recherche d'un code pour définir une zone d'impression en fonction du nombre de ligne.
Je m'explique: j'ai un classeur et suivant les circonstances il y a de 5 à 250 lignes et a chaque fois que je doit imprimer je doit définir une zone d'impression. Y a t-il en VBA un code qui permette de définir la zone d'impression suivant le nombre de ligne a imprimer?
J'ai le code suivant mais il doit y avoir un problème car il sélectionne bien la zone mais n'imprime pas?
Code:
Sub Imprime()
Dim derLig As Integer
derLig = Cells(65000, 2).End(xlUp).Row
ActiveSheet.PageSetup.PrintArea = "A19:J" & derLig
If vbNo = MsgBox("Vous voulez imprimer ce document en mode portrait ?", vbYesNo) Then
With ActiveSheet.PageSetup
.PrintArea = "$A$19:$J$100"
.Orientation = xlPortrait
End With
ActiveSheet.PrintOut
End If
End Sub
Je vous remercie de votre aide
Cordialement
Max