Buona giornata, Daniele;
potresti provare questo Codice VBA:
Option Explicit
Sub Anteprima_stampa()
Application.ScreenUpdating = False
Dim NRc As Long, x As Long
NRc = Range("A" & Rows.Count).End(xlUp).Row
For x = 4 To NRc
If Evaluate("COUNT($A" & x & ":$D" & x & ")") = 0 Then Cells(x, 1).EntireRow.Hidden = True
Next x
Cells(1, 3).EntireColumn.Hidden = True
ActiveWindow.SelectedSheets.PrintPreview
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
Application.ScreenUpdating = True
Cells(2, 1).Select
End Sub
Come puoi ben vedere, per i miei Test, ho previsto Anteprima di stampa; ovviamente è possibile programmare la stampa diretta.
Se hai problemi, e lo ritieni utile e opportuno, possiamo approfondire.
A disposizione.
Giuseppe