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);
	}
}




function printThis()
{
	if (pr)
	{
		window.print();
	}
	else if (da && !mac)
	{
		
		vbPrintPage();
	}
	else
	{
		
		if(mac)
		{
			alert("&#12362;&#23458;&#27096;&#12398;iMac&#12398;&#12300;&#21360;&#21047;&#12301;&#12508;&#12479;&#12531;&#12434;&#25276;&#12375;&#12390;&#12367;&#12384;&#12373;&#12356;&#12290; ");
		}
		else
		{
			alert("&#30003;&#12375;&#35379;&#12354;&#12426;&#12414;&#12379;&#12435;&#12364;&#12289;&#12362;&#20351;&#12356;&#12398;&#12502;&#12521;&#12454;&#12470;&#12540;&#12391;&#12399;&#12371;&#12398;&#27231;&#33021;&#12399;&#12469;&#12509;&#12540;&#12488;&#12373;&#12428;&#12390;&#12362;&#12426;&#12414;&#12379;&#12435;&#12290;");
		}
	}
}





function printFrame(frame)
{
	if (pr && da)
	{
		
		frame.focus();
		window.print();
		link.focus();
	}
	else if (pr)
	{
		
		frame.print();
	}
	else if (da && !mac)
	{
		
		frame.focus();
		setTimeout("vbPrintPage(); link.focus();", 100);
	}
	else
	{
		
		if (mac)
		{
			alert("&#12362;&#23458;&#27096;&#12398;iMac&#12398;&#12300;&#21360;&#21047;&#12301;&#12508;&#12479;&#12531;&#12434;&#25276;&#12375;&#12390;&#12367;&#12384;&#12373;&#12356;&#12290;");
		}
		else
		{
			alert("&#30003;&#12375;&#35379;&#12354;&#12426;&#12414;&#12379;&#12435;&#12364;&#12289;&#12362;&#20351;&#12356;&#12398;&#12502;&#12521;&#12454;&#12470;&#12540;&#12391;&#12399;&#12371;&#12398;&#27231;&#33021;&#12399;&#12469;&#12509;&#12540;&#12488;&#12373;&#12428;&#12390;&#12362;&#12426;&#12414;&#12379;&#12435;&#12290;");
		}
	}
}


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