Nikolaos,

query the Printpreview property of the relevant sheet,
like this:

Dim PPviewOn as boolean

If activesheet.printpreview = true then
PPview = True
... your code here ...
Else
PPview = False
... alternative code here ...
End IF

Cheers, Pete