Impression limitée sur feuille Excel

Bonsoir,

Sur un fichier, j’ai tracé des bordures pour faciliter la saisie des informations. J’ai donc 2 000 lignes tracées.

Je voudrais n’imprimer que les lignes renseignées sachant qu’elles se suivent toutes obligatoirement.

Ex : comment imprimer les lignes de 1 à 300 sur une possibilité de 2000.

Merci beaucoup.

Cordialement

Bonsoir

Place ce code dans un module et affecte-le à un bouton :

Sub Imprime()
Dim derlg As Integer
derlg = Range("A65536").End(xlUp).Row
Range("A1:F" & derlg).PrintOut
End Sub

Pense à modifier la dernière colonne (ici F)

Amicalement

Nad

Bonsoir

Une autre solution

macro à mettre dans ThisworkBook

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  ActiveSheet.PageSetup.PrintArea = "$A$1:$E$" & Range("A65536").End(xlUp).Row
End Sub

Bonne soirée

Edit : Heu pour moi la colonne à modifier c'est la E

Edit de Nad : je préfère ton code au mien - pas besoin de bouton

Edit 2 : ne vaut-il pas mieux préciser la feuille à la place de ActiveSheet ?