I can't paste the whole code, but I can show you the general idea...
<%
Response.ContentType = "application/msword" 'Print in word
'then various tables, etc'
%>
</table>
<p style="page-break-after: always">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<!-- More tables after here -->