<!--
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_PROMPTUSER');
 writeln('End Sub');
 writeln('<' + '/script>');
}
// -->

