Jaguar
Mesaj Sayısı : 19 Kayıt tarihi : 20/06/09
| Konu: SAYFAYI YAZDIR KODU Paz Haz. 21, 2009 10:56 am | |
| - Kod:
-
<!--- KAYNAK: http://fikircehayat.tr.gg ---> <SCRIPT LANGUAGE="JavaScript"> var da = (document.all) ? 1 : 0; var pr = (window.print) ? 1 : 0; var mac = (navigator.userAgent.indexOf("Mac") != -1); function printPage() { 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."); return false; } 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_DONTPROMPTUSER'); writeln('End Sub'); writeln('<' + '/SCRIPT>'); } </SCRIPT> <A HREF="#" onClick="return printPage()">Sayfayı yazdır...</A> <!--- KAYNAK: [url=http://fikircehayat.tr.gg]http://fikircehayat.tr.gg[/url] --->
| |
|