Maybe

Sub Printer()
LR = Cells(Rows.Count, 3).End(xlUp).Row
For Count = 2 To LR
if Cells(Count, 3) ="" then goto Skip
Range("E2") = Cells(Count, 3)
Calculate
Sheets("Foglio2").PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Skip:
Next
End Sub