You'd need to create a routine that does a print preview and create/run
another to make Alt-p run it.

Sub AltP()
ActiveSheet.PrintPreview
End Sub

''Run this from Auto_Open or whenever you want Alt-p to do a preview
Sub TrapAltP()
Application.OnKey "%p", "AltP"
End Sub

Sub ReleaseAltP()
Application.OnKey "%p"
End Sub



--
Jim
"Ben" wrote in message
...
| How can I make a keyboard shortcut to get to the print preview screen by
| pressing ALT + P?
|
|