Check af om udskrift fyler mere end A4

Hej

Jeg udskriver en række sider efter hinanden, og nogle gange fylder den enkelte side mere end et A4 ark hvorfor det udskrevne ikke bliver som det var tænkt, hvordan holder jeg stør på om jeg er nået til max af hvad der kan være på et A4 ark?

Koden indsat:

  Response.Write "<div style='page-break-before:always;'>"
  Response.Write "<table border='0' cellpadding='0' cellspacing='0' width='100%'>"
  Response.Write "<tr>"
  Response.Write "<td>"

' Nye Drill2

Response.Write "Side nr: " & T

strSQL1 = "Select nr from adfaerdsomrader where omrade='" & rc("omrade") & "'"
Set rs = Conn.Execute(strSQL1)

Response.Write "<table border='0' cellpadding='0' cellspacing='0' width='100%'>"
Response.Write "<td width='15%' align='left'>"
Response.Write "&nbsp;</td>"
Response.Write "<td width='70%' align='center'>"
Response.Write "<p align='center'><font size='5' color='#0000FF'>Øvelses Liste Detaljer" & " "  & Day(Date) & "-" & Month(Date) & "-" & Year(Date) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='15%' align='right'>"
Response.Write "<font color='#00FF00'><a target='_top' href='udskrifter.asp'><img border='1' src='tipo_logo1.gif'></a></font>"
Response.Write "</td>"
Response.Write "</table>"

Response.Write "<table border='0' cellpadding='0' cellspacing='0' width='100%'>"
Response.Write "<tr>"
Response.Write "<td width='100%' align='left'>"
Response.Write "<p align='Left'><font size='4' color='#0000FF'>Barn: Emil Adfærdsområde: " & rs("nr") & " " & rc("omrade") & "</font></p>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"

Response.Write "<table border='1' cellpadding='0' cellspacing='0' width='100%'>"
Response.Write "<tr>"
Response.Write "<td width='5%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Nr.</font></p>"
Response.Write "</td>"
Response.Write "<td width='25%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Adfærdsområde</font></p>"
Response.Write "</td>"
Response.Write "<td width='25%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Øvelse</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Dato Introduceret</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Baseline</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Dato Etableret</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Trials</font></p>"
Response.Write "</td>"
Response.Write "</tr>"

strSQL2 = "Select * from sdresponse where omrade='"
strSQL2 = strSQL2 & rc("omrade")
strSQL2 = strSQL2 & "' and (status = 'Baseline' or status = 'Etableret') order by nr"
Set rs2 = Conn.Execute(strSQL2)

Do
Response.Write "<tr>"
Response.Write "<td width='5%' align='left'>"
Response.Write "<p align='left'><font size='2'>" & ReplaceEmptyRec(rs2("nr")) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='25%' align='left'>"
Response.Write "<p align='left'><font size='2'>" & ReplaceEmptyRec(rs2("sd")) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='25%' align='left'>"
Response.Write "<p align='left'><font size='2'>" & ReplaceEmptyRec(rs2("response")) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='left'><font size='2'>" & ReplaceEmptyRec(Dato(rs2("startdato"))) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='left'><font size='2'>" & ReplaceEmptyRec(rs2("baselinestatus")) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='left'><font size='2'>" & ReplaceEmptyRec(Dato(rs2("traedato"))) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='left'><font size='2'>" & ReplaceEmptyRec(rs2("trials")) & "</font></p>"
Response.Write "</tr>"
rs2.MoveNext
Loop While Not rs2.EOF

Response.Write "</table>"

strSQL3 = "Select * from adfaerdsomrader where omrade='"
strSQL3 = strSQL3 & rc("omrade")
strSQL3 = strSQL3 & "'"
Set rs3 = Conn.Execute(strSQL3)

Response.Write "<table border='0' cellpadding='0' cellspacing='0' width='100%'>"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "&nbsp;</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "<p align='left'><font size='2'>1. Beskrivelse af træningssituationen: " & rs3("beskrivelse") & "</font></p>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "&nbsp;</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "<p align='left'><font size='2'>2. Opgavepræsentation: " & rs3("opgave")& "</font></p>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "&nbsp;</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "<p align='left'><font size='2'>3. Promt/Fading-procedure: " & rs3("promtfading")& "</font></p>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "&nbsp;</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "<p align='left'><font size='2'>4. Mestringskriterier: " & rs3("kriterier")& "</font></p>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "&nbsp;</td>"
Response.Write "</tr>"
Response.Write "</table>"

Response.Write "<table border='1' cellpadding='0' cellspacing='0' width='100%'>"
Response.Write "<tr>"
Response.Write "<td width='5%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Nr:</font></p>"
Response.Write "</td>"
Response.Write "<td width='20%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Øvelse</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Ny voksen Træ-rum</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Barn i Træ-rum</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Voksen på fællesareal</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Barn på fællesareal</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Ude situation</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Andet</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='3' color='#0000FF'>Hjemme</font></p>"
Response.Write "</td>"
Response.Write "</tr>"

strSQL4 = "Select * from sdresponse where omrade='"
strSQL4 = strSQL4 & rc("omrade")
strSQL4 = strSQL4 & "' and (status = 'Ny voksen træningsrum' or status = 'Barn træningsrum' or status = 'Ny voksen fællesareal' or status = 'Barn fællesareal' or status = 'Ude Situation' or status = 'Hjemme')"
Set rs4 = Conn.Execute(strSQL4)

do
Response.Write "<tr>"
Response.Write "<td width='5%' align='left'>"
Response.Write "<p align='Left'><font size='2'>" & ReplaceEmptyRec(rs4("nr")) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='20%' align='left'>"
Response.Write "<p align='Left'><font size='2'>" & ReplaceEmptyRec(rs4("sd")) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='2'>" & ReplaceEmptyRec(Dato(rs4("nyvoksendato"))) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='2'>" & ReplaceEmptyRec(Dato(rs4("nybarndato"))) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='2'>" & ReplaceEmptyRec(Dato(rs4("nyvoksendatoude"))) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='2'>" & ReplaceEmptyRec(Dato(rs4("nybarndatoude"))) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='2'>" & ReplaceEmptyRec(Dato(rs4("udedato"))) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='2'>" & ReplaceEmptyRec(Dato(rs4("andetdato"))) & "</font></p>"
Response.Write "</td>"
Response.Write "<td width='10%' align='left'>"
Response.Write "<p align='Left'><font size='2'>" & ReplaceEmptyRec(Dato(rs4("hjemmedato"))) & "</font></p>"
Response.Write "</td>"
Response.Write "</tr>"
rs4.MoveNext
Loop While Not rs4.EOF

Response.Write "</table>"
Response.Write "<tr>"
Response.Write "<td>"
Response.Write "&nbsp;</td>"
Response.Write "<tr>"

' Slut Drill2

  Response.Write "</td>"
  Response.Write "</tr>"
  Response.Write "</table>"
  Response.Write "</div>"

Mvh Henrik