---
title: "Printer utskrift av värden"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/46418-printer-utskrift-av-värden"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "Thorsander"
published: "2002-06-22T14:12:54.000Z"
updated: "2002-06-23T19:01:51.000Z"
replies: 4
views: 276
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/46418-printer-utskrift-av-värden"
---

# Printer utskrift av värden

## #1 — Thorsander, 2002-06-22T14:12Z

Hej!

Hade tänkt att implementera en funktion där man som besökare kan skriva ut (printa) en sammanställning av statistik.

På sidan visas information om en ishockey spelare (personuppgifter och spelarens statistik)...
När man klickar på en knapp \>skriv ut\< så ska man helt enkelt få en utskrift av den aktuella spelarens värden.

Hur gör jag detta!?

All data som jag visar på sidan hämtas från en databas så jag har alltså variabler innehållande värdena som skall skrivas ut.

Permalänk: https://www.webforum.nu/p/46418

## #2 — Jesper T, 2002-06-23T16:43Z

Det jag använder för sådana utskrifter är response.header
Det tycker jag är mycket smidigt. Alltså när du klickar på att skriva ut en viss spelare så får du upp en "ladda ner ruta" sedan så spars denna sida på datorn som i sin tur kan skrivas ut ifrån word.

Så här ser min "artikelnerladdare" ut, den går ju att göra om. Principen är ju att göra en "vanlig" sida med dina spelare fast du sätter in detta:

Response.ContentType = "application/vnd.ms-word"
Response.AddHeader "content-disposition", "attachment; filename=ArtiklarWord\_"& u_log &".doc" 

```
 <%

u_log=request.querystring("u_log")

accessdb="articles" 
cn="driver={Microsoft Access Driver (*.mdb)};"
cn=cn & "dbq=" & server.mappath(accessdb)
Set rs = Server.CreateObject("ADODB.Recordset")
set databas = server.createobject("adodb.connection")
databas.open cn
if u_log <>"Alla" then
sql="select * from articles where log ="&u_log
SQL2= "UPDATE articles SET klick = klick + 1 WHERE log ="&u_log
else
sql="select * from articles order by date DESC"
SQL2= "UPDATE articles SET klick = klick + 1"
end if
databas.Execute SQL2,,128
databas.close
set databas = nothing
rs.Open sql, cn

info="Artikel Id: "& u_log

Response.ContentType = "application/vnd.ms-word"
Response.AddHeader "content-disposition", "attachment; filename=ArtiklarWord_"& u_log &".doc" 

If rs.BOF then
Response.write "<font face='tahoma,verdana,arial' color='#993333' size='2'>"&"<b>Ingen ny aktivitet inlagd." &"</font></B>"
Else
end if
%>
<p><font face="Tahoma, Verdana, Georgia, Arial" size="4"><b>Artiklar/Ins&auml;ndare</b></font><font face="Tahoma, Verdana, Georgia, Arial"><br>
  <font size="2"><b><%=info%> fr.o.m <%=date()%> </b></font><br>
  </font><br>
  -----------------------------------------------------------------<br>
</p>
<table width="60%" border="0" cellspacing="0" cellpadding="0">
  <%

if not rs.BOF then rs.movefirst
  while not rs.EOF
    x = rs("body")
Set objRe = New regExp
objRe.IgnoreCase = True
objRe.Global = True

If x <> "" Then 
objRe.Pattern = "<[^>]*>" 
x = objRe.Replace(x," ")
End if%>
   <tr>
    <td height="147"> <b><font face="Tahoma, Verdana, Georgia, Arial" size="3"><%Response.write rs("title")%>  </font></b><font face="Tahoma, Verdana, Georgia, Arial" size="2"> <%=rs("Date")%><br>
   Antal nerladdningar: <%=rs("Klick")%>
      <br>   <b>Infört av: </b><%=rs("author")%><br><br>
      <%=replace(x, vbCrLf, "<br>")%><br>
	  <br></font>
</td>
  </tr>

                 
<%
rs.movenext
  wend

rs.close
set rs = nothing

%>
</table><br><br>
```

 
Lycka till

Permalänk: https://www.webforum.nu/p/704297

## #3 — Peeer, 2002-06-23T18:22Z

Du kan ju lösa det med JavaScript!

```
<SCRIPT LANGUAGE="JavaScript">
<!--This is one of many scripts which are available at:     *---
//--http://www.JavaScript.nu/javascript                     *---
//--This script is FREE, but you MUST let these lines       *---
//--remain if you use this script.                          *---

function printa()
{
if (navigator.appName == "Netscape")
{
window.print();
}
else
{
document.body.insertAdjacentHTML("beforeEnd", "<object id='PrHandle' width=0 height=0 classid='CLSID:8856F961-340A-11D0-A96B-00C04FD705A2'></object>");
PrHandle.ExecWB(6,2);
}
}
//-->
</SCRIPT>
```

OBS. Oprövad kod!

Permalänk: https://www.webforum.nu/p/704353

## #4 — Thorsander, 2002-06-23T18:44Z

Fint!
Jag tror jag håller mig till Javascriptet.
Men tack båda två!

Permalänk: https://www.webforum.nu/p/704359

## #5 — Peeer, 2002-06-23T19:01Z

Taskigt bara att jag glömde en del av koden. Här kommer hela:
mellan \<head\> och \</head\>

```
<SCRIPT LANGUAGE="JavaScript">
<!--This is one of many scripts which are available at:     *---
//--http://www.JavaScript.nu/javascript                     *---
//--This script is FREE, but you MUST let these lines       *---
//--remain if you use this script.                          *---

function printa()
{
if (navigator.appName == "Netscape")
{
window.print();
}
else
{
document.body.insertAdjacentHTML("beforeEnd", "<object id='PrHandle' width=0 height=0 classid='CLSID:8856F961-340A-11D0-A96B-00C04FD705A2'></object>");
PrHandle.ExecWB(6,2);
}
}
//-->
</SCRIPT>
```

Utskriftslänken

```
<A HREF="javascript:printa();">Skriv ut denna sida</A>

lr om du föredrar en utskriftsknapp

<FORM><INPUT TYPE="button" VALUE="Skriv ut denna sida" onClick="printa();"></FORM>
```

Permalänk: https://www.webforum.nu/p/704361

---

Tråden på webben: https://www.webforum.nu/amne/asp/46418-printer-utskrift-av-värden