Printing Form sent via Email

5

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 (e-mail address removed).<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") & "; (e-mail address removed)"
Mail.CC = Request.Form("trainer")

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

Mail.From="(e-mail address removed)"

Mail.Subject=subjectline

Mail.BodyFormat = 0
Mail.MailFormat = 0

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

%>
</body>

</html>
 
I

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.
Click to expand...

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
 
5

57Caddy

That worked brilliantly. Thanks!

Ian Haynes said:
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
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Force results to print on separate pages 1
Can one include data from javascript in form 1
Report Grouping 2
Picture Link to Fill Form 0
Frontpage removes javascript after save 6
Error message "An error has occured in the script on this page" 1
Outlook signature problem 0
Front page Template ?? 3

Top