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
| How can I make a keyboard shortcut to get to the print preview screen by
| pressing ALT + P?
|
|