Imprimer sans les lignes vides en VBA

[mobenjilali]

Bonsoir le Forum,
j'ai besoin d'un code VBA pour imprimer plusieurs feuilles sans les lignes vides, j'ai trouvé des codes mais je n'arrive pas à les faire fonctionner.😱
Pouvez vous m'aider?
Merci

 

[mobenjilali]

Re : Imprimer sans les lignes vides en VBA

Bonjour Bruno45, le Forum
Ça arrive tjrs aux meilleurs…
Merci c’est impeccable.

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

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+