Ciao,
la macro allegata non funziona in parte, elseif end if non sono al posto giusto.
Sub Stampa()
Application.ScreenUpdating = False
ActiveWindow.SmallScroll Down:=-3
If Foglio1.Range("F46") = 0 Then
MsgBox "non c'è niente da stampare"
Exit Sub
'End If
ElseIf Foglio1.Range("F46") > 0 Then
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWindow.SelectedSheets.PrintPreview
End If
'End If
Application.ScreenUpdating = True
End Sub
deve fare questo:
se F46 è vuota avviso "nulla da stampare" ed esce
se F46 è > di 0 stampa
ma se F46 è vuota poi compare l'anteprima di stampa e non deve comparire.
john
---------------
excel 2007