There's more to experience when you log in!
Where does it crash? Have you tried adding a few Note statements in between your procedure calls to identify where it crashes?
It's not even sure that the crash is caused by this code. It could also happen in one of the subprocedures.
I can't see anything obvious that could explain a crash.
I doubt this could do it but I'd recommend changing this line:
Set Window FrontWindow() Tabbed Printer Name "Adobe PDF" Orientation Portrait Copies 1 Papersize 1
Set Window lnNewWin Tabbed Printer Name "Adobe PDF" Orientation Portrait Copies 1 Papersize 1