joern og boye !
Jeg ved ikke hvad der sker her på sitet,
men jeg har først lige fået en mail hvor jeg kan se at I har svaret for længe siden. Det ser ud til at der er et eller andet der ikke rigtig virker på dette site. Og ja jeg har sat hak i at den skal sende mig en mail når der kommer svar. sååee ????
Jeg vedlægger lige lidt kode så I kan se hvad mit problem er.
Styring af frame:
<HTML>
<HEAD>
<TITLE>An Example</TITLE>
</HEAD>
<FRAMESET COLS="30%, *">
<FRAME SRC="991123b.html" NAME="control">
<FRAME SRC="991123c.html" NAME="main">
</FRAMESET>
</HTML>
Frame :
<HTML>
<HEAD><TITLE>991123b.html</TITLE></HEAD>
<BODY>
<H1>Control</H1>
<SCRIPT LANGUAGE="JavaScript">
<!--
var da = (document.all) ? 1 : 0;
var pr = (window.print) ? 1 : 0;
var mac = (navigator.userAgent.indexOf("Mac") != -1);
function printPage(frame, arg) {
if (frame == window) {
printThis();
} else {
link = arg; // a global variable
printFrame(frame);
}
return false;
}
function printThis() {
if (pr) { // NS4, IE5
window.print();
} else if (da && !mac) { // IE4 (Windows)
vbPrintPage();
} else { // other browsers
alert("Sorry, your browser doesn't support this feature.");
}
}
function printFrame(frame) {
if (pr && da) { // IE5
frame.focus();
window.print();
link.focus();
} else if (pr) { // NS4
frame.print();
} else if (da && !mac) { // IE4 (Windows)
frame.focus();
setTimeout("vbPrintPage(); link.focus();", 100);
} else { // other browsers
alert("Sorry, your browser doesn't support this feature.");
}
}
if (da && !pr && !mac) with (document) {
writeln('<OBJECT ID="WB" WIDTH="0" HEIGHT="0" CLASSID="clsid:8856F961-340A-11D0-A96B-00C04FD705A2"></OBJECT>');
writeln('<' + 'SCRIPT LANGUAGE="VBScript">');
writeln('Sub window_onunload');
writeln(' On Error Resume Next');
writeln(' Set WB = nothing');
writeln('End Sub');
writeln('Sub vbPrintPage');
writeln(' OLECMDID_PRINT = 6');
writeln(' OLECMDEXECOPT_DONTPROMPTUSER = 2');
writeln(' OLECMDEXECOPT_PROMPTUSER = 1');
writeln(' On Error Resume Next');
writeln(' WB.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER');
writeln('End Sub');
writeln('<' + '/SCRIPT>');
}
// -->
</SCRIPT>
<A HREF="#" onClick="return printPage(window)">Print Control</A><BR>
<A HREF="#" onClick="return printPage(parent.main, this)">Print Main</A>
</BODY>
</HTML>
Body:
<HTML>
<HEAD><TITLE>991123c.html</TITLE></HEAD>
<BODY TOPMARGIN=0 LEFTMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<TABLE WIDTH="700" HEIGHT="100" BORDER="1" CELLPADDING="0" CELLSPACING="0" LEFTMARGIN="0">
<TR>
<TD>Main</TD>
</TR>
</TABLE>
</BODY>
</HTML>
Det der er mit problem er at rammen i body'en ikke kommer ud til kanten.
Mit spørgsmål er så, kan man med VBScript sætte topmargen og venstremargen ?
Ny bruger
Nybegynder
Opret
Preview
