Uitprinten op a4 formaat - Softwareontwikkeling

woensdag 25 januari 2006 14:30

Acties:

127.0.0.1

Topicstarter

Ik ben bezig met een webapplicatie, nu willen wij de functionaliteit maken dat hij adresstickers kan printen op stickervellen.
Nu zit ik alleen met het probleem dat:
1. het internet adres etc... mee komt
2. hij met de marges loopt te rotzooien waarmee dit dus niet goed op A-4 komt.

Kan ik dit in de code ergens aangeven oid?

De code die ik tot nu toe heb:

<%@ LANGUAGE = VBScript %>
<% Option Explicit %>



<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<LINK REL=stylesheet type='text/css' href='../css/schrijven.css'>
<title>Etiketten </title>
<script language="javascript">
var hoogte = 693
var breedte = 871
window.moveTo(((screen.width - breedte)/2) ,((screen.height - hoogte)/2));
window.resizeTo(breedte, hoogte);

function link(loc,tar,optie){
NewWindow = window.open("", tar, optie)
NewWindow.location.href = loc;
}
</script>

<body>
<%
Dim SQLStmt
Dim RRel, RZoe
Dim Relatie_no
Dim r, c, content, i

SQLStmt = "SELECT * FROM Relaties_zoek WHERE Ident = '"&Ident&"' "
Set RZoe = Conn.Execute(SQLStmt)

c = 0
r = 0

Do While Not RZoe.EOF
SQLStmt = "SELECT * FROM Relaties WHERE Relatie_no = '"&RZoe("Relatie_no")&"' "
Set RRel = Conn.Execute(SQLStmt)

If r = 0 Then
response.write "<table width=""693"" height=""871"" border=""1px dotted"">"
r = r + 1
End If

If c = 0 Then
response.write "<tr height=""17%"">"
End If

response.write "<td width=""236"">" & RRel("Initialen") & " " & RRel("Tussenvoegsels") & " " & RRel("Achternaam")
response.write "<br />" & RRel("Adres") & "<br />" & RRel("Postcode") & " " & RRel("Plaats") & "</td>" & VbCrLf
c = c + 1

If c > 1 Then
response.write "</tr>"
c = 0
r = r + 1
End If

If r > 6 Then
response.write "</table>"
response.write "<br /><hr /><br />" & VbCrLf & VbCrLf & VbCrLf
r = 0
c = 0
End If

RZoe.Movenext
Loop
%>
</body>
</html>

I have gone to find myself, if I get back before I return, Please keep me here! PSNID: djmagich

woensdag 25 januari 2006 14:34

Acties:

whoami

Hoi,

Het is niet de bedoeling dat je hier zomaar een lap code neerplempt (gebruik code-tags) en dan verwacht dat wij het ff voor jou gaan uitzoeken.
Geef minstens aan wat je zelf al geprobeerd ehbt, post enkel relevante code, etc...
Meer hierover vind je terug in de p&w quickstart

https://fgheysels.github.io/

Dit topic is gesloten.