Lines Matching refs:write
309 …out.write( "eval 'exec perl -wS $0 ${1+\"$@\"}' … in createWordPrintHelper()
310 …out.write( " if 0; … in createWordPrintHelper()
311 …out.write( "use strict; … in createWordPrintHelper()
312 …out.write( "use Time::HiRes; … in createWordPrintHelper()
313 …out.write( "if ( $^O ne \"MSWin32\") … in createWordPrintHelper()
314 …out.write( "{ … in createWordPrintHelper()
315 …out.write( " print 'Windows only.\\n'; … in createWordPrintHelper()
316 …out.write( " print_usage(); … in createWordPrintHelper()
317 …out.write( " exit(1); … in createWordPrintHelper()
318 …out.write( "} … in createWordPrintHelper()
319 …out.write( " … in createWordPrintHelper()
320 …out.write( "use Win32::OLE; … in createWordPrintHelper()
321 …out.write( "use Win32::OLE::Const 'Microsoft Word'; … in createWordPrintHelper()
322 …out.write( " … in createWordPrintHelper()
323 …out.write( "# ------ usage ------ … in createWordPrintHelper()
324 …out.write( "sub print_usage() … in createWordPrintHelper()
325 …out.write( "{ … in createWordPrintHelper()
326 …out.write( " print STDERR \"Usage: word_print.pl <Word file> <name of printer> <output file> .… in createWordPrintHelper()
327 …out.write( " Please use the same string for the name of the printer as you can fi… in createWordPrintHelper()
328 …out.write( " under Start-Control Panel-Printer and Faxes \\n … in createWordPrintHelper()
329 …out.write( " The name could look like the the following line: \\n … in createWordPrintHelper()
330 …out.write( " Apple LaserWriter II NT v47.0 \\n … in createWordPrintHelper()
331 …out.write( " Sample command line: \\n … in createWordPrintHelper()
332 …out.write( " execl_print.pl c:\\book1.doc Apple LaserWriter II NT v47.0 c:\\outp… in createWordPrintHelper()
333 …out.write( "} … in createWordPrintHelper()
334 …out.write( " … in createWordPrintHelper()
335 …out.write( " … in createWordPrintHelper()
336 …out.write( "if ($#ARGV != 2) … in createWordPrintHelper()
337 …out.write( "{ … in createWordPrintHelper()
338 …out.write( " print 'Too less arguments.\\n'; … in createWordPrintHelper()
339 …out.write( " print_usage(); … in createWordPrintHelper()
340 …out.write( " exit(1); … in createWordPrintHelper()
341 …out.write( "} … in createWordPrintHelper()
342 …out.write( " … in createWordPrintHelper()
343 out.write( "my $startWordTime = Time::HiRes::time(); " + ls ); in createWordPrintHelper()
344 …out.write( "my $Word = Win32::OLE->new('Word.Application'); … in createWordPrintHelper()
345 out.write( "my $stopWordTime = Time::HiRes::time() - $startWordTime; " + ls ); in createWordPrintHelper()
346 …out.write( "# $Word->{'Visible'} = 1; # if you want to see what's going on … in createWordPrintHelper()
347 out.write( "# , ReadOnly => 1})" + ls ); in createWordPrintHelper()
348 out.write(ls); in createWordPrintHelper()
349 out.write( "my $startLoadWordTime = Time::HiRes::time(); " + ls ); in createWordPrintHelper()
350 …out.write( "$Word->Documents->Open({Filename => $ARGV[0]}) … in createWordPrintHelper()
351 …out.write( " || die('Unable to open document ', Win32::OLE->LastError()); … in createWordPrintHelper()
352 out.write( "my $stopLoadWordTime = Time::HiRes::time() - $startLoadWordTime; " + ls ); in createWordPrintHelper()
353 out.write(ls); in createWordPrintHelper()
354 out.write( "my $startPrintWordTime = Time::HiRes::time(); " + ls); in createWordPrintHelper()
355 …out.write( "my $oldActivePrinte = $Word->{ActivePrinter} ; … in createWordPrintHelper()
356 …out.write( "$Word->{ActivePrinter} = $ARGV[1]; … in createWordPrintHelper()
357 …out.write( "$Word->ActiveDocument->PrintOut({ … in createWordPrintHelper()
358 …out.write( " Background => 0, … in createWordPrintHelper()
359 …out.write( " Append => 0, … in createWordPrintHelper()
360 …out.write( " Range => wdPrintAllDocument, … in createWordPrintHelper()
361 …out.write( " Item => wdPrintDocumentContent, … in createWordPrintHelper()
362 …out.write( " Copies => 1, … in createWordPrintHelper()
363 …out.write( " PageType => wdPrintAllPages, … in createWordPrintHelper()
364 …out.write( " PrintToFile => 1, … in createWordPrintHelper()
365 …out.write( " OutputFileName => $ARGV[2] … in createWordPrintHelper()
366 …out.write( " }); … in createWordPrintHelper()
367 …out.write( "$Word->{ActivePrinter} = $oldActivePrinte; … in createWordPrintHelper()
368 out.write( "my $stopPrintWordTime = Time::HiRes::time() - $startPrintWordTime;" + ls); in createWordPrintHelper()
370 … out.write( "# ActiveDocument.Close(SaveChanges:=WdSaveOptions.wdDoNotSaveChanges)" + ls ); in createWordPrintHelper()
371 out.write( "my $sVersion = $Word->Application->Version();"+ls); in createWordPrintHelper()
372 …out.write( "$Word->ActiveDocument->Close({SaveChanges => 0}); … in createWordPrintHelper()
373 …out.write( "$Word->Quit(); … in createWordPrintHelper()
375 out.write( "local *FILE;" + ls); in createWordPrintHelper()
376 out.write( "if (open(FILE, \">$ENV{HOME}/msofficeloadtimes.txt\"))" + ls); in createWordPrintHelper()
377 out.write( "{" + ls); in createWordPrintHelper()
378 out.write( " print FILE \"name=$ARGV[0]\\n\";" + ls); in createWordPrintHelper()
379 out.write( " print FILE \"WordVersion=$sVersion\\n\";" + ls); in createWordPrintHelper()
380 out.write( " print FILE \"WordStartTime=$stopWordTime\\n\";" + ls); in createWordPrintHelper()
381 out.write( " print FILE \"WordLoadTime=$stopLoadWordTime\\n\";" + ls); in createWordPrintHelper()
382 out.write( " print FILE \"WordPrintTime=$stopPrintWordTime\\n\";" + ls); in createWordPrintHelper()
383 out.write( " close(FILE);" + ls); in createWordPrintHelper()
384 out.write( "}" + ls); in createWordPrintHelper()
448 …out.write( "eval 'exec perl -wS $0 ${1+\"$@\"}' … in createWordStoreHelper()
449 …out.write( " if 0; … in createWordStoreHelper()
450 …out.write( "use strict; … in createWordStoreHelper()
451 …out.write( " … in createWordStoreHelper()
452 …out.write( "if ( $^O ne \"MSWin32\") … in createWordStoreHelper()
453 …out.write( "{ … in createWordStoreHelper()
454 …out.write( " print 'Windows only.\\n'; … in createWordStoreHelper()
455 …out.write( " print_usage(); … in createWordStoreHelper()
456 …out.write( " exit(1); … in createWordStoreHelper()
457 …out.write( "} … in createWordStoreHelper()
458 …out.write( " … in createWordStoreHelper()
459 …out.write( "use Win32::OLE; … in createWordStoreHelper()
460 …out.write( "use Win32::OLE::Const 'Microsoft Word'; … in createWordStoreHelper()
461 …out.write( " … in createWordStoreHelper()
462 …out.write( "# ------ usage ------ … in createWordStoreHelper()
463 …out.write( "sub print_usage() … in createWordStoreHelper()
464 …out.write( "{ … in createWordStoreHelper()
465 …out.write( " print STDERR \"Usage: storeViaWord.pl <Word file> <output filer> <output file> \\… in createWordStoreHelper()
466 …out.write( "} … in createWordStoreHelper()
467 …out.write( " … in createWordStoreHelper()
468 …out.write( " … in createWordStoreHelper()
469 …out.write( "if ($#ARGV != 2) … in createWordStoreHelper()
470 …out.write( "{ … in createWordStoreHelper()
471 …out.write( " print 'Too less arguments.\\n'; … in createWordStoreHelper()
472 …out.write( " print_usage(); … in createWordStoreHelper()
473 …out.write( " exit(1); … in createWordStoreHelper()
474 …out.write( "} … in createWordStoreHelper()
475 …out.write( " … in createWordStoreHelper()
476 …out.write( " … in createWordStoreHelper()
477 …out.write( "my $Word = Win32::OLE->new('Word.Application'); … in createWordStoreHelper()
478 …out.write( "# $Word->{'Visible'} = 1; # if you want to see what's going on … in createWordStoreHelper()
479 …out.write( "my $Book = $Word->Documents->Open($ARGV[0]) … in createWordStoreHelper()
480 …out.write( " || die('Unable to open document ', Win32::OLE->LastError()); … in createWordStoreHelper()
481 …out.write( "# my $oldActivePrinte = $Word->{ActivePrinter} ; … in createWordStoreHelper()
482 …out.write( "# $Word->{ActivePrinter} = $ARGV[1]; … in createWordStoreHelper()
483 …out.write( "# $Word->ActiveDocument->PrintOut({ … in createWordStoreHelper()
484 …out.write( "# Background => 0, … in createWordStoreHelper()
485 …out.write( "# Append => 0, … in createWordStoreHelper()
486 …out.write( "# Range => wdPrintAllDocument, … in createWordStoreHelper()
487 …out.write( "# Item => wdPrintDocumentContent, … in createWordStoreHelper()
488 …out.write( "# Copies => 1, … in createWordStoreHelper()
489 …out.write( "# PageType => wdPrintAllPages, … in createWordStoreHelper()
490 …out.write( "# PrintToFile => 1, … in createWordStoreHelper()
491 …out.write( "# OutputFileName => $ARGV[2] … in createWordStoreHelper()
492 …out.write( "# }); … in createWordStoreHelper()
493 …out.write( "# $Word->{ActivePrinter} = $oldActivePrinte; … in createWordStoreHelper()
494 …out.write( "$Book->savaAs($ARGV[2], $ARGV[1]); … in createWordStoreHelper()
495 … out.write( "# ActiveDocument.Close(SaveChanges:=WdSaveOptions.wdDoNotSaveChanges)" + ls ); in createWordStoreHelper()
496 …out.write( "$Book->Close({SaveChanges => 0}); … in createWordStoreHelper()
497 …out.write( "$Word->Quit(); … in createWordStoreHelper()
529 …out.write( "eval 'exec perl -wS $0 ${1+\"$@\"}' … in createExcelPrintHelper()
530 …out.write( " if 0; … in createExcelPrintHelper()
531 …out.write( "use strict; … in createExcelPrintHelper()
532 …out.write( " … in createExcelPrintHelper()
533 …out.write( "if ( $^O ne \"MSWin32\") … in createExcelPrintHelper()
534 …out.write( "{ … in createExcelPrintHelper()
535 …out.write( " print \"Windows only.\\n\"; … in createExcelPrintHelper()
536 …out.write( " print_usage(); … in createExcelPrintHelper()
537 …out.write( " exit(1); … in createExcelPrintHelper()
538 …out.write( "} … in createExcelPrintHelper()
539 …out.write( " … in createExcelPrintHelper()
540 …out.write( " … in createExcelPrintHelper()
541 …out.write( "use Win32::OLE qw(in with); … in createExcelPrintHelper()
542 …out.write( "use Win32::OLE::Const 'Microsoft Excel'; … in createExcelPrintHelper()
543 …out.write( " … in createExcelPrintHelper()
544 …out.write( "# ------ usage ------ … in createExcelPrintHelper()
545 …out.write( "sub print_usage() … in createExcelPrintHelper()
546 …out.write( "{ … in createExcelPrintHelper()
547 …out.write( " print STDERR \"Usage: printViaExcel.pl <Excel file> <name of printer> <output fil… in createExcelPrintHelper()
548 …out.write( " Please use the same string for the name of the printer as you can fi… in createExcelPrintHelper()
549 …out.write( " under Start-Control Panel-Printer and Faxes \\n … in createExcelPrintHelper()
550 …out.write( " The name could look like the the following line: \\n … in createExcelPrintHelper()
551 …out.write( " Apple LaserWriter II NT v47.0 \\n … in createExcelPrintHelper()
552 …out.write( " Sample command line: \\n … in createExcelPrintHelper()
553 …out.write( " execl_print.pl c:\\book1.xls Apple LaserWriter II NT v47.0 c:\\outp… in createExcelPrintHelper()
554 …out.write( "} … in createExcelPrintHelper()
555 …out.write( " … in createExcelPrintHelper()
556 …out.write( " … in createExcelPrintHelper()
557 …out.write( " … in createExcelPrintHelper()
558 …out.write( "$Win32::OLE::Warn = 3; # die on errors... … in createExcelPrintHelper()
559 …out.write( " … in createExcelPrintHelper()
560 …out.write( " … in createExcelPrintHelper()
561 …out.write( "if ($#ARGV != 2) … in createExcelPrintHelper()
562 …out.write( "{ … in createExcelPrintHelper()
563 …out.write( " print STDERR \"Too less arguments.\\n\"; … in createExcelPrintHelper()
564 …out.write( " print STDERR \"ARGV[0] $ARGV[0]\\n\"; … in createExcelPrintHelper()
565 …out.write( " print STDERR \"ARGV[1] $ARGV[1]\\n\"; … in createExcelPrintHelper()
566 …out.write( " print STDERR \"ARGV[2] $ARGV[2]\\n\"; … in createExcelPrintHelper()
567 …out.write( " print_usage(); … in createExcelPrintHelper()
568 …out.write( " exit(1); … in createExcelPrintHelper()
569 …out.write( "} … in createExcelPrintHelper()
570 …out.write( " … in createExcelPrintHelper()
571 …out.write( "my $Excel = Win32::OLE->GetActiveObject('Excel.Application') … in createExcelPrintHelper()
572 …out.write( " || Win32::OLE->new('Excel.Application', 'Quit'); # get already active Excel … in createExcelPrintHelper()
573 …out.write( " # application or open new … in createExcelPrintHelper()
574 …out.write( " … in createExcelPrintHelper()
575 …out.write( " … in createExcelPrintHelper()
576 …out.write( " … in createExcelPrintHelper()
577 …out.write( "my $Book = $Excel->Workbooks->Open( $ARGV[0] ); … in createExcelPrintHelper()
578 …out.write( " $Book->PrintOut({Copies => 1, … in createExcelPrintHelper()
579 …out.write( " ActivePrinter => $ARGV[1], … in createExcelPrintHelper()
580 …out.write( " PrToFileName => $ARGV[2], … in createExcelPrintHelper()
581 …out.write( " Collate => 1 … in createExcelPrintHelper()
582 …out.write( " }); … in createExcelPrintHelper()
583 out.write( "# Close worksheets without store changes" + ls ); in createExcelPrintHelper()
584 …out.write( "# $Book->Close({SaveChanges => 0}); … in createExcelPrintHelper()
585 out.write( "my $sVersion = $Excel->Application->Version();"+ls); in createExcelPrintHelper()
586 …out.write( "$Excel->Quit(); … in createExcelPrintHelper()
587 out.write( "local *FILE;" + ls); in createExcelPrintHelper()
588 out.write( "if (open(FILE, \">$ENV{HOME}/msofficeloadtimes.txt\"))" + ls); in createExcelPrintHelper()
589 out.write( "{" + ls); in createExcelPrintHelper()
590 out.write( " print FILE \"name=$ARGV[0]\\n\";" + ls); in createExcelPrintHelper()
591 out.write( " print FILE \"ExcelVersion=$sVersion\\n\";" + ls); in createExcelPrintHelper()
595 out.write( " close(FILE);" + ls); in createExcelPrintHelper()
596 out.write( "}" + ls); in createExcelPrintHelper()
627 …out.write( "eval 'exec perl -wS $0 ${1+\"$@\"}' … in createExcelStoreHelper()
628 …out.write( " if 0; … in createExcelStoreHelper()
629 …out.write( "use strict; … in createExcelStoreHelper()
630 …out.write( "# This script is automatically created. … in createExcelStoreHelper()
631 …out.write( " … in createExcelStoreHelper()
632 …out.write( "use Win32::OLE qw(in with); … in createExcelStoreHelper()
633 …out.write( "use Win32::OLE::Const 'Microsoft Excel'; … in createExcelStoreHelper()
634 …out.write( " … in createExcelStoreHelper()
635 …out.write( "# ------ usage ------ … in createExcelStoreHelper()
636 …out.write( "sub print_usage() … in createExcelStoreHelper()
637 …out.write( "{ … in createExcelStoreHelper()
638 …out.write( " print STDERR \"Usage: savaViaExcel.pl <Excel file> <filefilter> <output file> .\\… in createExcelStoreHelper()
639 …out.write( " execl_print.pl c:\\book1.xls Apple LaserWriter II NT v47.0 c:\\outp… in createExcelStoreHelper()
640 …out.write( "} … in createExcelStoreHelper()
641 …out.write( " … in createExcelStoreHelper()
642 …out.write( " … in createExcelStoreHelper()
643 …out.write( " … in createExcelStoreHelper()
644 …out.write( "$Win32::OLE::Warn = 3; # die on errors... … in createExcelStoreHelper()
645 …out.write( " … in createExcelStoreHelper()
646 …out.write( " … in createExcelStoreHelper()
647 …out.write( "if ($#ARGV != 2) … in createExcelStoreHelper()
648 …out.write( "{ … in createExcelStoreHelper()
649 …out.write( " print \"Too less arguments.\\n\"; … in createExcelStoreHelper()
650 …out.write( " print_usage(); … in createExcelStoreHelper()
651 …out.write( " exit(1); … in createExcelStoreHelper()
652 …out.write( "} … in createExcelStoreHelper()
653 …out.write( " … in createExcelStoreHelper()
654 …out.write( "my $Excel = Win32::OLE->GetActiveObject('Excel.Application') … in createExcelStoreHelper()
655 …out.write( " || Win32::OLE->new('Excel.Application', 'Quit'); # get already active Excel … in createExcelStoreHelper()
656 …out.write( " # application or open new … in createExcelStoreHelper()
657 …out.write( "my $sFilterParameter = $ARGV[1]; … in createExcelStoreHelper()
658 …out.write( "my $sFilterName = xlHTML; … in createExcelStoreHelper()
659 …out.write( "if ($sFilterParameter eq 'xlXMLSpreadsheet') … in createExcelStoreHelper()
660 …out.write( "{ … in createExcelStoreHelper()
661 …out.write( " $sFilterName = xlXMLSpreadsheet; … in createExcelStoreHelper()
662 …out.write( "} … in createExcelStoreHelper()
663 …out.write( "elsif ($sFilterParameter eq 'xlHTML') … in createExcelStoreHelper()
664 …out.write( "{ … in createExcelStoreHelper()
665 …out.write( " $sFilterName = xlHTML; … in createExcelStoreHelper()
666 …out.write( "} … in createExcelStoreHelper()
667 …out.write( "else … in createExcelStoreHelper()
668 …out.write( "{ … in createExcelStoreHelper()
669 …out.write( " my $undefined; … in createExcelStoreHelper()
670 …out.write( " $sFilterName = $undefined; … in createExcelStoreHelper()
671 …out.write( "} … in createExcelStoreHelper()
672 …out.write( " … in createExcelStoreHelper()
673 …out.write( "my $Book = $Excel->Workbooks->Open( $ARGV[0] ); … in createExcelStoreHelper()
674 …out.write( "$Excel->{DisplayAlerts} = 0; … in createExcelStoreHelper()
675 …out.write( "$Book->saveAs($ARGV[2], … in createExcelStoreHelper()
676 …out.write( " $sFilterName, … in createExcelStoreHelper()
677 …out.write( " '', … in createExcelStoreHelper()
678 …out.write( " '', … in createExcelStoreHelper()
679 …out.write( " 0, … in createExcelStoreHelper()
680 …out.write( " 0, … in createExcelStoreHelper()
681 …out.write( " xlNoChange, … in createExcelStoreHelper()
682 …out.write( " xlLocalSessionChanges, … in createExcelStoreHelper()
683 …out.write( " 1); … in createExcelStoreHelper()
684 out.write( "# Close worksheets without store changes" + ls ); in createExcelStoreHelper()
685 out.write( "# $Book->Close({SaveChanges => 0}); " + ls ); in createExcelStoreHelper()
686 …out.write( "$Excel->Quit(); … in createExcelStoreHelper()
718 …out.write( "eval 'exec perl -wS $0 $1 $2 ' … in createPowerPointPrintHelper()
719 …out.write( " if 0; … in createPowerPointPrintHelper()
720 …out.write( "use strict; … in createPowerPointPrintHelper()
721 …out.write( " … in createPowerPointPrintHelper()
722 …out.write( "if ( $^O ne \"MSWin32\") … in createPowerPointPrintHelper()
723 …out.write( "{ … in createPowerPointPrintHelper()
724 …out.write( " print \"Windows only.\\n\"; … in createPowerPointPrintHelper()
725 …out.write( " print_usage(); … in createPowerPointPrintHelper()
726 …out.write( " exit(1); … in createPowerPointPrintHelper()
727 …out.write( "} … in createPowerPointPrintHelper()
728 …out.write( " … in createPowerPointPrintHelper()
729 …out.write( " … in createPowerPointPrintHelper()
730 …out.write( "use Win32::OLE qw(in with); … in createPowerPointPrintHelper()
731 …out.write( "use Win32::OLE::Const 'Microsoft PowerPoint'; … in createPowerPointPrintHelper()
732 …out.write( " … in createPowerPointPrintHelper()
733 …out.write( "# ------ usage ------ … in createPowerPointPrintHelper()
734 …out.write( "sub print_usage() … in createPowerPointPrintHelper()
735 …out.write( "{ … in createPowerPointPrintHelper()
736 …out.write( " print STDERR \"Usage: powerpoint_print.pl <PowerPoint file> <name of printer> <ou… in createPowerPointPrintHelper()
737 …out.write( " Please use the same string for the name of the printer as you can fi… in createPowerPointPrintHelper()
738 …out.write( " under Start-Control Panel-Printer and Faxes \\n … in createPowerPointPrintHelper()
739 …out.write( " The name could look like the the following line: \\n … in createPowerPointPrintHelper()
740 …out.write( " Apple LaserWriter II NT v47.0 \\n … in createPowerPointPrintHelper()
741 …out.write( " Sample command line: \\n … in createPowerPointPrintHelper()
742 …out.write( " powerpoint_print.pl c:\\book.ppt Apple LaserWriter II NT v47.0 c:\\… in createPowerPointPrintHelper()
743 …out.write( "} … in createPowerPointPrintHelper()
744 …out.write( " … in createPowerPointPrintHelper()
745 …out.write( " … in createPowerPointPrintHelper()
746 …out.write( " … in createPowerPointPrintHelper()
747 …out.write( "$Win32::OLE::Warn = 3; # die on errors... … in createPowerPointPrintHelper()
748 …out.write( " … in createPowerPointPrintHelper()
749 …out.write( " … in createPowerPointPrintHelper()
750 …out.write( "if ($#ARGV < 2) … in createPowerPointPrintHelper()
751 …out.write( "{ … in createPowerPointPrintHelper()
752 …out.write( " print \"Too less arguments.\\n\"; … in createPowerPointPrintHelper()
753 …out.write( " print_usage(); … in createPowerPointPrintHelper()
754 …out.write( " exit(1); … in createPowerPointPrintHelper()
755 …out.write( "} … in createPowerPointPrintHelper()
756 …out.write( " … in createPowerPointPrintHelper()
757 …out.write( "my $PowerPoint = Win32::OLE->GetActiveObject('PowerPoint.Application') … in createPowerPointPrintHelper()
758 …out.write( " || Win32::OLE->new('PowerPoint.Application', 'Quit'); # get already active Excel … in createPowerPointPrintHelper()
759 …out.write( " # application or open new … in createPowerPointPrintHelper()
760 …out.write( " … in createPowerPointPrintHelper()
761 …out.write( " … in createPowerPointPrintHelper()
762 …out.write( " … in createPowerPointPrintHelper()
763 …out.write( " $PowerPoint->{'Visible'} = 1; … in createPowerPointPrintHelper()
764 …out.write( " my $Presentation = $PowerPoint->Presentations->Add; … in createPowerPointPrintHelper()
765 …out.write( " my $Presentation = $PowerPoint->Presentations->Open( $ARGV[0] ); … in createPowerPointPrintHelper()
766 …out.write( "# we can't change active printer in powerpoint … in createPowerPointPrintHelper()
767 out.write( "# $Presentation->PrintOptions->{ActivePrinter} = $ARGV[1]; " + ls ); in createPowerPointPrintHelper()
768 …out.write( " print \"Active printer is: \" . $Presentation->PrintOptions->{ActivePrinter} . \"\\… in createPowerPointPrintHelper()
769 …out.write( " $Presentation->PrintOptions->{PrintInBackground} = 0; … in createPowerPointPrintHelper()
770 …out.write( " # PrintColorType = 1 means print in color and PrintColorType = 2 means print in gra… in createPowerPointPrintHelper()
771 …out.write( " $Presentation->PrintOptions->{PrintColorType} = 1; … in createPowerPointPrintHelper()
772 …out.write( " … in createPowerPointPrintHelper()
773 …out.write( " $Presentation->PrintOut({PrintToFile => $ARGV[2]}); … in createPowerPointPrintHelper()
774 …out.write( " sleep 5; … in createPowerPointPrintHelper()
775 …out.write( " print \"Presentation has been printed\\n\"; … in createPowerPointPrintHelper()
776 out.write( "my $sVersion = $Presentation->Application->Version();"+ls); in createPowerPointPrintHelper()
777 out.write( " $PowerPoint->Quit(); " + ls ); in createPowerPointPrintHelper()
779 out.write( "local *FILE;" + ls); in createPowerPointPrintHelper()
780 out.write( "if (open(FILE, \">$ENV{HOME}/msofficeloadtimes.txt\"))" + ls); in createPowerPointPrintHelper()
781 out.write( "{" + ls); in createPowerPointPrintHelper()
782 out.write( " print FILE \"name=$ARGV[0]\\n\";" + ls); in createPowerPointPrintHelper()
783 out.write( " print FILE \"PowerPointVersion=$sVersion\\n\";" + ls); in createPowerPointPrintHelper()
787 out.write( " close(FILE);" + ls); in createPowerPointPrintHelper()
788 out.write( "}" + ls); in createPowerPointPrintHelper()