Try this out.
returncode=msgbox ("put some paper in the printer",65,"Print start")
if returncode=1 then
Set ss = CreateObject("WScript.Shell")
ss.run "command /c notepad /p c:\rjm\test.rpt ",1,TRUE
msgbox "Print is finished",64,"Print finished"
end if
set ss = nothing