var da = (document.all) ? 1 : 0;
var pr = (window.print) ? 1 : 0;
var mac = (navigator.userAgent.indexOf("Mac") != -1);
var OPERA = (navigator.userAgent.indexOf("Opera") > 0) ? true : false;
var MAC = (navigator.platform.indexOf("PPC") > 0) ? true : false;
var WIN = (navigator.platform=="Win32") ? true : false;

function printPage() {
  if (pr) // NS4, IE5
    window.print();
  else if (da && !mac) // IE4 (Windows)
	vbPrintPage()  
  else // muut
   alert('Selaimesi ei tue tätä ominaisuutta. Voit tulostaa sivun selaimesi tulostusvalikon kautta.');
 return false;
}

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>');
}