if (typeof(xPrinter) == "undefined") xPrinter = {};
xPrinter.da = (document.all) ? 1 : 0;
xPrinter.pr = (window.print) ? 1 : 0;
xPrinter.mac = (navigator.userAgent.indexOf('Mac') != -1); 
 
xPrinter.print = function() {
    if (xPrinter.pr) // NS4, IE5
	    window.print()
    else if (xPrinter.da && !xPrinter.mac) // IE4 (Windows)        
	    vbPrintPage();	    
    else // other browsers
	    alert("Sorry, your browser doesn't support this feature.");
    //return false;
}
 
if (xPrinter.da && !xPrinter.pr && !xPrinter.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>');
}