Printing Form sent via Email

8 Nov 2007 12:36 AM

57Caddy

Hello,

I have a form that my users send via the web that is there received in their
Outlook inbox. The problem they are finding is that are very long winded in
their typing and it kinda prints ugly. Half of the text of one of the columns
prints on two separate pages and then it is hard to decipher which category
it belongs to. My question is this, is there a way to keep the rows together
such as forcing a page break between rows or tables? Or is this just a
limitation when printing? I've attached some code below to see if that helps
clarify as it is an intranet and can't give the links.

Thanks

<h1>New Hire Report</h1><br>
Thank you for your submission <%=Request.Form("coach")%>.
Your data has been e-mailed to <%=Request.Form("sup")%>,
<%=Request.Form("trainer")%>, and t***@fakeemail.com.<br>

<%

Dim HTML
Dim TABLE

TABLE = "<table border=""1"" bordercolor=""#333333"" width=""100%"">"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <th colspan='2'>New Hire Report</th>"
TABLE = TABLE & "    </tr>"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='35%'><b>Date Submitted:</b></td><td

width='65%'> " & Request.Form("date") & "</td>"

TABLE = TABLE & "    </tr>"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='35%'><b>New Hire Name:</td><td width='65%'> "

& Request.Form("nhname") & "</td>"

TABLE = TABLE & "    </tr>"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='35%'><b>Coach:</b></td><td width='65%'> " &

Request.Form("BankerCoach") & "</td>"

TABLE = TABLE & "    </tr>"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='35%'><b>Date of Calls:</b></td><td

width='65%'> " & Request.Form("inputdate") & "</td>"

TABLE = TABLE & "    </tr>"

TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='35%'><b>SOJT Phase:</b></td><td width='65%'> "

& Request.Form("sojt") & "</td>"

TABLE = TABLE & "    </tr>"

TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='35%'><b>Time Spent with New Hire:</b></td><td

width='65%'> " & Request.Form("timespent") & "</td>"

TABLE = TABLE & "    </tr>"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='35%'><b>Number of Calls Taken:</b></td><td

width='65%'> " & Request.Form("callstaken") & "</td>"

TABLE = TABLE & "    </tr>"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='35%'><b>Referral Attempts:</b></td><td

width='65%'> " & Request.Form("refattempts") & "</td>"

TABLE = TABLE & "    </tr>"

TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='35%'><b>Virtual Library:</b></td><td

width='65%'> " & Request.Form("VirtualLibrary") & "</td>"

TABLE = TABLE & "    </tr>"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='35%'><b>My Customer:</b></td><td width='65%'>

" & Request.Form("MyCustomer") & "</td>"

TABLE = TABLE & "    </tr>"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='35%'><b>ECPR:</b></td><td width='65%'> " &

Request.Form("ECPR") & "</td>"

TABLE = TABLE & "    </tr>"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='35%'><b>Referrals Tracked:</b></td><td

width='65%'> " & Request.Form("ReferralsTracked") & "</td>"

TABLE = TABLE & "    </tr>"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='35%'><b>Warm Transfer:</b></td><td

width='65%'> " & Request.Form("WarmTransfer") & "</td>"

TABLE = TABLE & "    </tr>"
TABLE = TABLE & " </table>"

TABLE = TABLE & "<table border=""1"" bordercolor=""#333333"" width=""100%"">"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='25%'><b>Strengths:</b></td><td width='75%'> "

& Request.Form("pos") & "</td>"

TABLE = TABLE & "    </tr>"
TABLE = TABLE & " </table>"

TABLE = TABLE & "<table border=""1"" bordercolor=""#333333"" width=""100%"">"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='25%'><b>Opportunities:</b></td><td

width='75%'> " & Request.Form("neg") & "</td>"

TABLE = TABLE & "    </tr>"
TABLE = TABLE & " </table>"

TABLE = TABLE & "<table border=""1"" bordercolor=""#333333"" width=""100%"">"
TABLE = TABLE & "    <tr>"
TABLE = TABLE & "        <td width='25%'><b>Topics during debriefing:</b></td><td

width='75%'> " & Request.Form("Topics") & "</td>"

TABLE = TABLE & " </tr>"
TABLE = TABLE & " </table>"

HTML = HTML & "<HTML>"
HTML = HTML & "<HEAD>"
HTML = HTML & "<TITLE></TITLE>"
HTML = HTML & "</HEAD>"
HTML = HTML & "<BODY>"
HTML = HTML & TABLE
HTML = HTML & "<br><i><span style=""font-size: 10.0pt; font-family: Arial;
color: blue"">"This message may contain confidential and/or privileged
information. If you are not the addressee or authorized to receive this for
the addressee, you must not use, copy, disclose, or take any action based on
this message or any information herein. If you have received this message in
error, please advise the sender immediately by reply e-mail and delete this
message. Thank you for your cooperation."</span></i></p>"
HTML = HTML & "</BODY>"
HTML = HTML & "</HTML>"

Dim Mail
Set Mail = Server.CreateObject("CDONTS.NewMail")
Dim subjectline
subjectline = "New Hire Report For " & Request.Form("nhname") & " " &
Request.Form("date")
Mail.To= Request.Form("sup") & "; t***@fakeemail.com"
Mail.CC = Request.Form("trainer")

Mail.BCC = Request.Form("BankerCoach")

Mail.From="t***@fakeemail.com.com"

Mail.Subject=subjectline

Mail.BodyFormat = 0
Mail.MailFormat = 0

Mail.Body = HTML
Mail.Send
Set Mail=nothing

%>
</body>

</html>

8 Nov 2007 3:53 PM

Ian Haynes

>My question is this, is there a way to keep the rows together
> such as forcing a page break between rows or tables? Or is this just a
> limitation when printing? I've attached some code below to see if that
> helps
> clarify as it is an intranet and can't give the links.
>

Try adding a style to your top table: style="page-break-after: always;"

If that doesn't work, surround the top table in a div that has this style.

HTH

--
Ian Haynes
MS MVP FrontPage
http://www.ew-resource.co.uk

8 Nov 2007 5:44 PM

57Caddy

That worked brilliantly. Thanks!

Show quoteHide quote

"Ian Haynes" wrote:

>
> >My question is this, is there a way to keep the rows together
> > such as forcing a page break between rows or tables? Or is this just a
> > limitation when printing? I've attached some code below to see if that
> > helps
> > clarify as it is an intranet and can't give the links.
> >
>
> Try adding a style to your top table: style="page-break-after: always;"
>
> If that doesn't work, surround the top table in a div that has this style.
>
> HTH
>
>
> --
> Ian Haynes
> MS MVP FrontPage
> http://www.ew-resource.co.uk
>

Thread options