webForumDet fria alternativet

Skriv ut?

ASP

6 svar · 189 visningar · startad av timedia

Medlem sedan maj 2001420 inlägg
Frågan#1

Behöver en "skriv ut funktion". Har tänkt lägga en ikon i form av en skrivare direkt på sidan. Hur löser jag detta? Activex komponent? ...eller finns det ett annat sätt som bara skriver ut texterna med radbrudd?

Medlem sedan mars 2001309 inlägg
#2

du skulle kunna använda denna Javascript funktion......Men den skriver ut hela sidan !!!!

<script type="text/javascript">
 function docprint() {
                  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>

Så läger du iconen som länk här !!

<a onclick="docprint()"><img src="sök vägen till bilden" border=0 alt="Skriv ut"></a>

------------------
Är man medlem på WF så behöver man inga vänner !

Medlem sedan maj 2001420 inlägg
#3

Tack, tack :)
...men jag hade hoppats det fanns någon smidig lösning som skriver ut text med radbrudd och inte bilder och bakgrund o.s.v.

Medlem sedan mars 20002 836 inlägg
#4

Då får du skapa en specifik sida för just det ändamålet, dvs en "strippad" variant av sidan de e på.

cya,
PatrikB

------------------
-=* IF there is a wrong way to do something, then someone will do it *=-

Medlem sedan dec. 19995 881 inlägg
#5

nedanstående kod, skriver ut filen minfil.txt
Du kan självklart skriva ut genom att ange text direkt i ett dokument också. alltså utan att behöva ha ett färdigt dokument som du skriver ut.

Set oWord = CreateObject ("Word.Application")
oWord.Visible = False
oWord.Documents.Open "c:\minfil.txt"

oWord.PrintOut

oWord.Documents.Close
oWord.Quit 
Set oWord = Nothing

Denna kan komma till användning, så du inte stänger dokumentet innan det skrivits ut.

Sub Pause(Sec)
Dim Start

Start = Timer() ' Ange starttid.

Do While Timer < (Start + Sec)
Loop
End Sub

Lycka till!

------------------
Mvh
Patrik aka Brimba

Medlem sedan maj 2001420 inlägg
#6

Tack så mycket Brimba. Ska försöka i eftermiddag.
PatrikB - ditt förslag var just det jag ville försöka undvika :)

Medlem sedan dec. 19995 881 inlägg
#7

Det bör kanske även nämnas att du måste ha word installerat på datorn/servern där scriptet körs.

Använd gärna Word för att se hur VBA-kodningen fungerar. Med hjälp av macrofunktionen.

------------------
Mvh
Patrik aka Brimba

260 ms totalt · 4 externa anrop · v20260731065814-full.868a69e5
126 ms — deklarationer (db)
0 ms — hämta statistik (cache)
132 ms — hämta tråd, inlägg och bilagor (db)
124 ms — ändringar (db)