Imprimer sans les lignes vides en VBA

BrunoM45 à dit:

Salut Mobenjilali

Désolé, j'suis vraiment trop mauvais ... j'ai honte 😛
Je ne t'ai pas mis le bon code dès le départ : "ThisWorkbook.Sheets" 🙁😱

Le voici testé et qui fonctionne

Code:

Sub ImpSansLigneVide()
  Dim DLig As Long, Sht As Worksheet
  For Each Sht In ThisWorkbook.Sheets
    DLig = Sht.Range("A" & Rows.Count).End(xlUp).Row
    If DLig >= 5 Then
      Sht.PageSetup.PrintArea = "$A$4:$F$" & DLig
      Sht.PrintOut
    End If
  Next Sht
End Sub

A+

Cliquez pour agrandir...