var da = (document.all) ? 1 : 0;
var pr = (window.print) ? 1 : 0;
var mac = (navigator.userAgent.indexOf("Mac") != -1); 

function imprime(frame, arg)
	{
	if (frame == window)
		{printThis();}
	else
		{
		link = arg;
		printFrame(frame);
		}
	return false;
	}
	
function printThis()
	{
	if (pr){window.print();}
	else if(da && !mac){vbimprime();}
	else{alert("Este botón no funciona en su navegador.");}
	}

function printFrame(frame)
	{
	if (pr && da){frame.focus();window.print();link.focus();} 
	else if (pr){frame.print();}
	else if (da && !mac)
		{
		frame.focus();
		setTimeout("vbimprime();link.focus();", 100);
		} 
		else {alert("Este botón no funciona en su navegador.");}
	}
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 vbimprime');
  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>');
}