if (da && !pr && !mac) with (document) { writeln(''); 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>'); } } //--> // -->