stampare solo righe scritte

[ahidai]

Un saluto a tutti, mi serve di nuovo un vostro aiuto, ecco il mio problema, ho un foglio con diverse righe esempio B4 - B20, alcune sono scritte e altre no, quindi avrei bisogno di stamapre solo le righe scritte.
Uso questa macro:

Codice: Seleziona tutto

Sub STAMPA ()
'
SelPrint = Application.Dialogs(xlDialogPrinterSetup).Show
If SelPrint = False Then
    MsgBox "Stampa Cancellata"
    Exit Sub
End If
Dim max
    max = Range("pippo").Value
    For i = 1 To max
       Range("SCEGLI").Value = Range("pippo2").Cells(i, 1).Value
        ActiveWindow.SelectedSheets.PrintOut Copies:=1
      Next i
End Sub

Grazie mille per le risposte.

[ricky53]

Ciao,
se no ho capito male quanto hai scritto ... non serve una macro ... ti basta il filtro.
Imposta il "Filtro Automatico" sui tuoi dati e poi, su una colonna che tu ritieni sia quella utile, filtri per "Non Vuote" e poi stampi.

Solo per informazione: qualcosa non mi torna nella tua macro .. ma non avendo il file non possoa essere più preciso.
Però una cosa posso dirla: stampi l'area selezionata ad ogni riga del tuo ciclo. E' così?
Qualcosa non va !!!

Prova e ... sono QUI