Loopa ut adresser på papper

mattiasnordinMedlem sedan maj 20012 080 inlägg

Frågan29 juni 2004 11:59#1

Hej alla!

<% 'Input
sSelectedNames = request("req_selected_names")

<% myArray = Split(sSelectedNames, ",")%>
<% For i = 0 To Ubound(myArray) %>

	<% 	sql = "SELECT * FROM T_medlemmar WHERE namn = '" & trim(myArray(i)) &"'"
	response.write sql &"<hr>"
	set rs = Connect.execute(sql)
	if rs.eof then
	response.write "<hr>Ingen träff<hr>"
	else %>
	<!--- Passar A5 fönsterkuvert --->
	<table cellpadding=10 style="position:absolute; left:365px; top:60px; border:1px dotted dddddd; width:280; height:135"><td>
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <%=rs("Namn")%><br>
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <%=rs("Gatuadress")%><br>
	&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <%=rs("Ort")%><br>
	</td></table>
	
	<script>
	window.print()
	</script>
	
	<% end if %>

<%next%>

Använder ovan i mitt försök att skriva ut ett adressregister på papper. Vill alltså skriva ut ett A4 ark per adress. Men det går väl inte att exekvera javascript på detta sätt.

Är det någon som har ett förslag på något som fungerar ?

mattiasnordinMedlem sedan maj 20012 080 inlägg

29 juni 2004 15:07#2

Detta kanske var en javascript fråga igentligen.

Så här löste jag det:


<% 'Hämtar input från val
sSelectedNames = request("req_selected_names")
%>

<% 'Delar upp strängen i en array
myArray = Split(sSelectedNames, ",")%>

<SCRIPT LANGUAGE="javascript">
// Skapar en klientarray med alla adresser
myClientArray = new Array(

<% For i = 0 To Ubound(myArray) 
	sql = "SELECT * FROM T_medlemmar WHERE namn = '" & trim(myArray(i)) &"'"
	'response.write sql &"<hr>"
	set rs = Connect.execute(sql)
	if not rs.eof then %>
	
	"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("namn")%><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("gatuadress")%><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%=rs("postnummer")%> <%=rs("ort")%>",
	 
	<% end if %>
<%next%>

"Copyright Mattias Nordin.")
</script>

<SCRIPT LANGUAGE="javascript">
// Skriv ut adresserna en och en 
for (i=0; i < myClientArray.length; i++){
	egenskaper="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes";
	nytt_fonster = window.open("","tmpWindow",egenskaper);
	nytt_fonster.document.open();
	nytt_fonster.document.write('<!--- Passar A5 fönsterkuvert --->')
	nytt_fonster.document.write('<table cellpadding=10 style="position:absolute; left:365px; top:60px; border:1px dotted dddddd; width:280; height:135"><td>')
	nytt_fonster.document.write( myClientArray[i] +'<br>')
	nytt_fonster.document.write(' </td></table> ')
  	nytt_fonster.print();
}
nytt_fonster.close();
document.location.href="personalfunktioner_start.asp"
</script>

Är det någon som vet om det går att påverka browsern så att man skriver ut på defaultskrivaren istället för att få upp GUI:t för att välja skrivare?