function CheckBrowser() {
	var b = navigator.appName;
	if (b == "Netscape") this.b = "ns";
	else if (b == "Microsoft Internet Explorer") this.b = "ie";
	else this.b = b;
	this.version = navigator.appVersion;
	this.v   = parseInt(this.version);
	this.dom = document.getElementById ? true : false;
	this.ns  = (this.b == "ns" && this.v >= 4);
	this.ns4 = (this.b == "ns" && this.v == 4 && !this.dom);
	this.ns5 = (this.b == "ns" && this.v == 5 && this.dom);
	this.ie  = (this.b == "ie" && this.v >= 4);
	this.ie4 = (this.version.indexOf('MSIE 4') > 0 && !this.dom);
	this.ie5 = (this.version.indexOf('MSIE 5') > 0 && this.dom);
	this.min = (this.ns || this.ie);
	this.pr  = (window.print) ? true :  false;
	this.mac = (navigator.userAgent.indexOf("Mac") != -1);
}
is = new CheckBrowser();

function drucken() {
  if (is.pr) {
    self.focus();
    window.print();
  }
  else if (is.ie4 && !is.mac) {
    vbPrintPage();  
  }
  else {
    alert('Bitte benutzen Sie die Druckfunktion ihres Browsers!');  
  }
}

if (is.ie4 && !is.mac) { // IE4 (Windows)
  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>');
}