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;
      printFrame(frame);
   }
   return false;
}

function printThis(){
   if (pr){
      window.print();
   }else if (da && !mac){
      vbPrintPage();
   }else{
      alert("Sorry, your browser doesn't support this option.");
   }
}

function printFrame(frame){
   if (pr && da){
      window.focus
      window.print();
      link.focus();
   }else if (pr){
      frame.print();
   }else if (da && !mac){
      frame.focus();
      setTimeOut("vbPrintPage(); link.focus;", 100);
   }else{
      alert("Sorry, your browser doesn't support this option.");
   }
}

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_PROMTUSER = 1');
   writeln('  On Error Resume Next');
   writeln('  WB.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER');
   writeln('End Sub');
   writeln('<' + '/SCRIPT>');
}