Lines Matching refs:write
397 …out.write( "eval 'exec perl -wS $0 ${1+\"$@\"}' … in createWordPrintHelper()
398 …out.write( " if 0; … in createWordPrintHelper()
399 …out.write( "use strict; … in createWordPrintHelper()
400 …out.write( "use Time::HiRes; … in createWordPrintHelper()
401 …out.write( "if ( $^O ne \"MSWin32\") … in createWordPrintHelper()
402 …out.write( "{ … in createWordPrintHelper()
403 …out.write( " print 'Windows only.\\n'; … in createWordPrintHelper()
404 …out.write( " print_usage(); … in createWordPrintHelper()
405 …out.write( " exit(1); … in createWordPrintHelper()
406 …out.write( "} … in createWordPrintHelper()
407 …out.write( " … in createWordPrintHelper()
408 …out.write( "use Win32::OLE; … in createWordPrintHelper()
409 …out.write( "use Win32::OLE::Const 'Microsoft Word'; … in createWordPrintHelper()
410 …out.write( " … in createWordPrintHelper()
411 …out.write( "# ------ usage ------ … in createWordPrintHelper()
412 …out.write( "sub print_usage() … in createWordPrintHelper()
413 …out.write( "{ … in createWordPrintHelper()
414 …out.write( " print STDERR \"Usage: word_print.pl <Word file> <name of printer> <output file> .… in createWordPrintHelper()
415 …out.write( " Please use the same string for the name of the printer as you can fi… in createWordPrintHelper()
416 …out.write( " under Start-Control Panel-Printer and Faxes \\n … in createWordPrintHelper()
417 …out.write( " The name could look like the the following line: \\n … in createWordPrintHelper()
418 …out.write( " Apple LaserWriter II NT v47.0 \\n … in createWordPrintHelper()
419 …out.write( " Sample command line: \\n … in createWordPrintHelper()
420 …out.write( " execl_print.pl c:\\book1.doc Apple LaserWriter II NT v47.0 c:\\outp… in createWordPrintHelper()
421 …out.write( "} … in createWordPrintHelper()
422 …out.write( " … in createWordPrintHelper()
423 …out.write( " … in createWordPrintHelper()
424 …out.write( "if ($#ARGV != 2) … in createWordPrintHelper()
425 …out.write( "{ … in createWordPrintHelper()
426 …out.write( " print 'Too less arguments.\\n'; … in createWordPrintHelper()
427 …out.write( " print_usage(); … in createWordPrintHelper()
428 …out.write( " exit(1); … in createWordPrintHelper()
429 …out.write( "} … in createWordPrintHelper()
430 …out.write( " … in createWordPrintHelper()
431 out.write( "my $startWordTime = Time::HiRes::time(); " + ls ); in createWordPrintHelper()
432 …out.write( "my $Word = Win32::OLE->new('Word.Application'); … in createWordPrintHelper()
433 out.write( "my $stopWordTime = Time::HiRes::time() - $startWordTime; " + ls ); in createWordPrintHelper()
434 …out.write( "# $Word->{'Visible'} = 1; # if you want to see what's going on … in createWordPrintHelper()
435 out.write( "# , ReadOnly => 1})" + ls ); in createWordPrintHelper()
436 out.write(ls); in createWordPrintHelper()
437 out.write( "my $startLoadWordTime = Time::HiRes::time(); " + ls ); in createWordPrintHelper()
438 …out.write( "$Word->Documents->Open({Filename => $ARGV[0]}) … in createWordPrintHelper()
439 …out.write( " || die('Unable to open document ', Win32::OLE->LastError()); … in createWordPrintHelper()
440 out.write( "my $stopLoadWordTime = Time::HiRes::time() - $startLoadWordTime; " + ls ); in createWordPrintHelper()
441 out.write(ls); in createWordPrintHelper()
442 out.write( "my $startPrintWordTime = Time::HiRes::time(); " + ls); in createWordPrintHelper()
443 …out.write( "my $oldActivePrinte = $Word->{ActivePrinter} ; … in createWordPrintHelper()
444 …out.write( "$Word->{ActivePrinter} = $ARGV[1]; … in createWordPrintHelper()
445 …out.write( "$Word->ActiveDocument->PrintOut({ … in createWordPrintHelper()
446 …out.write( " Background => 0, … in createWordPrintHelper()
447 …out.write( " Append => 0, … in createWordPrintHelper()
448 …out.write( " Range => wdPrintAllDocument, … in createWordPrintHelper()
449 …out.write( " Item => wdPrintDocumentContent, … in createWordPrintHelper()
450 …out.write( " Copies => 1, … in createWordPrintHelper()
451 …out.write( " PageType => wdPrintAllPages, … in createWordPrintHelper()
452 …out.write( " PrintToFile => 1, … in createWordPrintHelper()
453 …out.write( " OutputFileName => $ARGV[2] … in createWordPrintHelper()
454 …out.write( " }); … in createWordPrintHelper()
455 …out.write( "$Word->{ActivePrinter} = $oldActivePrinte; … in createWordPrintHelper()
456 out.write( "my $stopPrintWordTime = Time::HiRes::time() - $startPrintWordTime;" + ls); in createWordPrintHelper()
458 … out.write( "# ActiveDocument.Close(SaveChanges:=WdSaveOptions.wdDoNotSaveChanges)" + ls ); in createWordPrintHelper()
459 out.write( "my $sVersion = $Word->Application->Version();"+ls); in createWordPrintHelper()
460 …out.write( "$Word->ActiveDocument->Close({SaveChanges => 0}); … in createWordPrintHelper()
461 …out.write( "$Word->Quit(); … in createWordPrintHelper()
463 out.write( "local *FILE;" + ls); in createWordPrintHelper()
464 out.write( "if (open(FILE, \">$ENV{HOME}/msofficeloadtimes.txt\"))" + ls); in createWordPrintHelper()
465 out.write( "{" + ls); in createWordPrintHelper()
466 out.write( " print FILE \"name=$ARGV[0]\\n\";" + ls); in createWordPrintHelper()
467 out.write( " print FILE \"WordVersion=$sVersion\\n\";" + ls); in createWordPrintHelper()
468 out.write( " print FILE \"WordStartTime=$stopWordTime\\n\";" + ls); in createWordPrintHelper()
469 out.write( " print FILE \"WordLoadTime=$stopLoadWordTime\\n\";" + ls); in createWordPrintHelper()
470 out.write( " print FILE \"WordPrintTime=$stopPrintWordTime\\n\";" + ls); in createWordPrintHelper()
471 out.write( " close(FILE);" + ls); in createWordPrintHelper()
472 out.write( "}" + ls); in createWordPrintHelper()
535 …out.write( "eval 'exec perl -wS $0 ${1+\"$@\"}' … in createWordStoreHelper()
536 …out.write( " if 0; … in createWordStoreHelper()
537 …out.write( "use strict; … in createWordStoreHelper()
538 …out.write( " … in createWordStoreHelper()
539 …out.write( "if ( $^O ne \"MSWin32\") … in createWordStoreHelper()
540 …out.write( "{ … in createWordStoreHelper()
541 …out.write( " print 'Windows only.\\n'; … in createWordStoreHelper()
542 …out.write( " print_usage(); … in createWordStoreHelper()
543 …out.write( " exit(1); … in createWordStoreHelper()
544 …out.write( "} … in createWordStoreHelper()
545 …out.write( " … in createWordStoreHelper()
546 …out.write( "use Win32::OLE; … in createWordStoreHelper()
547 …out.write( "use Win32::OLE::Const 'Microsoft Word'; … in createWordStoreHelper()
548 …out.write( " … in createWordStoreHelper()
549 …out.write( "# ------ usage ------ … in createWordStoreHelper()
550 …out.write( "sub print_usage() … in createWordStoreHelper()
551 …out.write( "{ … in createWordStoreHelper()
552 …out.write( " print STDERR \"Usage: storeViaWord.pl <Word file> <output filer> <output file> \\… in createWordStoreHelper()
553 …out.write( "} … in createWordStoreHelper()
554 …out.write( " … in createWordStoreHelper()
555 …out.write( " … in createWordStoreHelper()
556 …out.write( "if ($#ARGV != 2) … in createWordStoreHelper()
557 …out.write( "{ … in createWordStoreHelper()
558 …out.write( " print 'Too less arguments.\\n'; … in createWordStoreHelper()
559 …out.write( " print_usage(); … in createWordStoreHelper()
560 …out.write( " exit(1); … in createWordStoreHelper()
561 …out.write( "} … in createWordStoreHelper()
562 …out.write( " … in createWordStoreHelper()
563 …out.write( " … in createWordStoreHelper()
564 …out.write( "my $Word = Win32::OLE->new('Word.Application'); … in createWordStoreHelper()
565 …out.write( "# $Word->{'Visible'} = 1; # if you want to see what's going on … in createWordStoreHelper()
566 …out.write( "my $Book = $Word->Documents->Open($ARGV[0]) … in createWordStoreHelper()
567 …out.write( " || die('Unable to open document ', Win32::OLE->LastError()); … in createWordStoreHelper()
568 …out.write( "# my $oldActivePrinte = $Word->{ActivePrinter} ; … in createWordStoreHelper()
569 …out.write( "# $Word->{ActivePrinter} = $ARGV[1]; … in createWordStoreHelper()
570 …out.write( "# $Word->ActiveDocument->PrintOut({ … in createWordStoreHelper()
571 …out.write( "# Background => 0, … in createWordStoreHelper()
572 …out.write( "# Append => 0, … in createWordStoreHelper()
573 …out.write( "# Range => wdPrintAllDocument, … in createWordStoreHelper()
574 …out.write( "# Item => wdPrintDocumentContent, … in createWordStoreHelper()
575 …out.write( "# Copies => 1, … in createWordStoreHelper()
576 …out.write( "# PageType => wdPrintAllPages, … in createWordStoreHelper()
577 …out.write( "# PrintToFile => 1, … in createWordStoreHelper()
578 …out.write( "# OutputFileName => $ARGV[2] … in createWordStoreHelper()
579 …out.write( "# }); … in createWordStoreHelper()
580 …out.write( "# $Word->{ActivePrinter} = $oldActivePrinte; … in createWordStoreHelper()
581 …out.write( "$Book->savaAs($ARGV[2], $ARGV[1]); … in createWordStoreHelper()
582 … out.write( "# ActiveDocument.Close(SaveChanges:=WdSaveOptions.wdDoNotSaveChanges)" + ls ); in createWordStoreHelper()
583 …out.write( "$Book->Close({SaveChanges => 0}); … in createWordStoreHelper()
584 …out.write( "$Word->Quit(); … in createWordStoreHelper()
617 out.write("#BEGIN" + ls); in createExcelPrintHelper()
618 out.write("#{" + ls); in createExcelPrintHelper()
619 out.write("#" + ls); in createExcelPrintHelper()
620 out.write("# # insert HACK" + ls); in createExcelPrintHelper()
621 out.write("# unshift(@INC, '');" + ls); in createExcelPrintHelper()
622 out.write("#}" + ls); in createExcelPrintHelper()
623 …out.write( "use strict; … in createExcelPrintHelper()
624 …out.write( " … in createExcelPrintHelper()
625 …out.write( "if ( $^O ne \"MSWin32\") … in createExcelPrintHelper()
626 …out.write( "{ … in createExcelPrintHelper()
627 …out.write( " print \"Windows only.\\n\"; … in createExcelPrintHelper()
628 …out.write( " print_usage(); … in createExcelPrintHelper()
629 …out.write( " exit(1); … in createExcelPrintHelper()
630 …out.write( "} … in createExcelPrintHelper()
631 …out.write( " … in createExcelPrintHelper()
632 …out.write( " … in createExcelPrintHelper()
633 …out.write( "use Win32::OLE qw(in with); … in createExcelPrintHelper()
634 …out.write( "use Win32::OLE::Const 'Microsoft Excel'; … in createExcelPrintHelper()
635 …out.write( " … in createExcelPrintHelper()
636 …out.write( "# ------ usage ------ … in createExcelPrintHelper()
637 …out.write( "sub print_usage() … in createExcelPrintHelper()
638 …out.write( "{ … in createExcelPrintHelper()
639 …out.write( " print STDERR \"Usage: printViaExcel.pl <Excel file> <name of printer> <output fil… in createExcelPrintHelper()
640 …out.write( " Please use the same string for the name of the printer as you can fi… in createExcelPrintHelper()
641 …out.write( " under Start-Control Panel-Printer and Faxes \\n … in createExcelPrintHelper()
642 …out.write( " The name could look like the the following line: \\n … in createExcelPrintHelper()
643 …out.write( " Apple LaserWriter II NT v47.0 \\n … in createExcelPrintHelper()
644 …out.write( " Sample command line: \\n … in createExcelPrintHelper()
645 …out.write( " execl_print.pl c:\\book1.xls Apple LaserWriter II NT v47.0 c:\\outp… in createExcelPrintHelper()
646 …out.write( "} … in createExcelPrintHelper()
647 …out.write( " … in createExcelPrintHelper()
648 …out.write( " … in createExcelPrintHelper()
649 …out.write( " … in createExcelPrintHelper()
650 …out.write( "$Win32::OLE::Warn = 3; # die on errors... … in createExcelPrintHelper()
651 …out.write( " … in createExcelPrintHelper()
652 …out.write( " … in createExcelPrintHelper()
653 …out.write( "if ($#ARGV != 2) … in createExcelPrintHelper()
654 …out.write( "{ … in createExcelPrintHelper()
655 …out.write( " print STDERR \"Too less arguments.\\n\"; … in createExcelPrintHelper()
656 …out.write( " print STDERR \"ARGV[0] $ARGV[0]\\n\"; … in createExcelPrintHelper()
657 …out.write( " print STDERR \"ARGV[1] $ARGV[1]\\n\"; … in createExcelPrintHelper()
658 …out.write( " print STDERR \"ARGV[2] $ARGV[2]\\n\"; … in createExcelPrintHelper()
659 …out.write( " print_usage(); … in createExcelPrintHelper()
660 …out.write( " exit(1); … in createExcelPrintHelper()
661 …out.write( "} … in createExcelPrintHelper()
662 …out.write( " … in createExcelPrintHelper()
663 …out.write( "my $Excel = Win32::OLE->GetActiveObject('Excel.Application') … in createExcelPrintHelper()
664 …out.write( " || Win32::OLE->new('Excel.Application', 'Quit'); # get already active Excel … in createExcelPrintHelper()
665 …out.write( " # application or open new … in createExcelPrintHelper()
666 …out.write( " … in createExcelPrintHelper()
667 …out.write( " … in createExcelPrintHelper()
668 …out.write( " … in createExcelPrintHelper()
669 …out.write( "my $Book = $Excel->Workbooks->Open( $ARGV[0] ); … in createExcelPrintHelper()
670 …out.write( " $Book->PrintOut({Copies => 1, … in createExcelPrintHelper()
671 …out.write( " ActivePrinter => $ARGV[1], … in createExcelPrintHelper()
672 …out.write( " PrToFileName => $ARGV[2], … in createExcelPrintHelper()
673 …out.write( " Collate => 1 … in createExcelPrintHelper()
674 …out.write( " }); … in createExcelPrintHelper()
675 out.write( "# Close worksheets without store changes" + ls ); in createExcelPrintHelper()
676 …out.write( "# $Book->Close({SaveChanges => 0}); … in createExcelPrintHelper()
677 out.write( "my $sVersion = $Excel->Application->Version();"+ls); in createExcelPrintHelper()
678 …out.write( "$Excel->Quit(); … in createExcelPrintHelper()
679 out.write( "local *FILE;" + ls); in createExcelPrintHelper()
680 out.write( "if (open(FILE, \">$ENV{HOME}/msofficeloadtimes.txt\"))" + ls); in createExcelPrintHelper()
681 out.write( "{" + ls); in createExcelPrintHelper()
682 out.write( " print FILE \"name=$ARGV[0]\\n\";" + ls); in createExcelPrintHelper()
683 out.write( " print FILE \"ExcelVersion=$sVersion\\n\";" + ls); in createExcelPrintHelper()
687 out.write( " close(FILE);" + ls); in createExcelPrintHelper()
688 out.write( "}" + ls); in createExcelPrintHelper()
718 …out.write( "eval 'exec perl -wS $0 ${1+\"$@\"}' … in createExcelStoreHelper()
719 …out.write( " if 0; … in createExcelStoreHelper()
720 …out.write( "use strict; … in createExcelStoreHelper()
721 …out.write( "# This script is automatically created. … in createExcelStoreHelper()
722 …out.write( " … in createExcelStoreHelper()
723 …out.write( "use Win32::OLE qw(in with); … in createExcelStoreHelper()
724 …out.write( "use Win32::OLE::Const 'Microsoft Excel'; … in createExcelStoreHelper()
725 …out.write( " … in createExcelStoreHelper()
726 …out.write( "# ------ usage ------ … in createExcelStoreHelper()
727 …out.write( "sub print_usage() … in createExcelStoreHelper()
728 …out.write( "{ … in createExcelStoreHelper()
729 …out.write( " print STDERR \"Usage: savaViaExcel.pl <Excel file> <filefilter> <output file> .\\… in createExcelStoreHelper()
730 …out.write( " execl_print.pl c:\\book1.xls Apple LaserWriter II NT v47.0 c:\\outp… in createExcelStoreHelper()
731 …out.write( "} … in createExcelStoreHelper()
732 …out.write( " … in createExcelStoreHelper()
733 …out.write( " … in createExcelStoreHelper()
734 …out.write( " … in createExcelStoreHelper()
735 …out.write( "$Win32::OLE::Warn = 3; # die on errors... … in createExcelStoreHelper()
736 …out.write( " … in createExcelStoreHelper()
737 …out.write( " … in createExcelStoreHelper()
738 …out.write( "if ($#ARGV != 2) … in createExcelStoreHelper()
739 …out.write( "{ … in createExcelStoreHelper()
740 …out.write( " print \"Too less arguments.\\n\"; … in createExcelStoreHelper()
741 …out.write( " print_usage(); … in createExcelStoreHelper()
742 …out.write( " exit(1); … in createExcelStoreHelper()
743 …out.write( "} … in createExcelStoreHelper()
744 …out.write( " … in createExcelStoreHelper()
745 …out.write( "my $Excel = Win32::OLE->GetActiveObject('Excel.Application') … in createExcelStoreHelper()
746 …out.write( " || Win32::OLE->new('Excel.Application', 'Quit'); # get already active Excel … in createExcelStoreHelper()
747 …out.write( " # application or open new … in createExcelStoreHelper()
748 …out.write( "my $sFilterParameter = $ARGV[1]; … in createExcelStoreHelper()
749 …out.write( "my $sFilterName = xlHTML; … in createExcelStoreHelper()
750 …out.write( "if ($sFilterParameter eq 'xlXMLSpreadsheet') … in createExcelStoreHelper()
751 …out.write( "{ … in createExcelStoreHelper()
752 …out.write( " $sFilterName = xlXMLSpreadsheet; … in createExcelStoreHelper()
753 …out.write( "} … in createExcelStoreHelper()
754 …out.write( "elsif ($sFilterParameter eq 'xlHTML') … in createExcelStoreHelper()
755 …out.write( "{ … in createExcelStoreHelper()
756 …out.write( " $sFilterName = xlHTML; … in createExcelStoreHelper()
757 …out.write( "} … in createExcelStoreHelper()
758 …out.write( "else … in createExcelStoreHelper()
759 …out.write( "{ … in createExcelStoreHelper()
760 …out.write( " my $undefined; … in createExcelStoreHelper()
761 …out.write( " $sFilterName = $undefined; … in createExcelStoreHelper()
762 …out.write( "} … in createExcelStoreHelper()
763 …out.write( " … in createExcelStoreHelper()
764 …out.write( "my $Book = $Excel->Workbooks->Open( $ARGV[0] ); … in createExcelStoreHelper()
765 …out.write( "$Excel->{DisplayAlerts} = 0; … in createExcelStoreHelper()
766 …out.write( "$Book->saveAs($ARGV[2], … in createExcelStoreHelper()
767 …out.write( " $sFilterName, … in createExcelStoreHelper()
768 …out.write( " '', … in createExcelStoreHelper()
769 …out.write( " '', … in createExcelStoreHelper()
770 …out.write( " 0, … in createExcelStoreHelper()
771 …out.write( " 0, … in createExcelStoreHelper()
772 …out.write( " xlNoChange, … in createExcelStoreHelper()
773 …out.write( " xlLocalSessionChanges, … in createExcelStoreHelper()
774 …out.write( " 1); … in createExcelStoreHelper()
775 out.write( "# Close worksheets without store changes" + ls ); in createExcelStoreHelper()
776 out.write( "# $Book->Close({SaveChanges => 0}); " + ls ); in createExcelStoreHelper()
777 …out.write( "$Excel->Quit(); … in createExcelStoreHelper()
808 …out.write( "eval 'exec perl -wS $0 $1 $2 ' … in createPowerPointPrintHelper()
809 …out.write( " if 0; … in createPowerPointPrintHelper()
810 …out.write( "use strict; … in createPowerPointPrintHelper()
811 …out.write( " … in createPowerPointPrintHelper()
812 …out.write( "if ( $^O ne \"MSWin32\") … in createPowerPointPrintHelper()
813 …out.write( "{ … in createPowerPointPrintHelper()
814 …out.write( " print \"Windows only.\\n\"; … in createPowerPointPrintHelper()
815 …out.write( " print_usage(); … in createPowerPointPrintHelper()
816 …out.write( " exit(1); … in createPowerPointPrintHelper()
817 …out.write( "} … in createPowerPointPrintHelper()
818 …out.write( " … in createPowerPointPrintHelper()
819 …out.write( " … in createPowerPointPrintHelper()
820 …out.write( "use Win32::OLE qw(in with); … in createPowerPointPrintHelper()
821 …out.write( "use Win32::OLE::Const 'Microsoft PowerPoint'; … in createPowerPointPrintHelper()
822 …out.write( " … in createPowerPointPrintHelper()
823 …out.write( "# ------ usage ------ … in createPowerPointPrintHelper()
824 …out.write( "sub print_usage() … in createPowerPointPrintHelper()
825 …out.write( "{ … in createPowerPointPrintHelper()
826 …out.write( " print STDERR \"Usage: powerpoint_print.pl <PowerPoint file> <name of printer> <ou… in createPowerPointPrintHelper()
827 …out.write( " Please use the same string for the name of the printer as you can fi… in createPowerPointPrintHelper()
828 …out.write( " under Start-Control Panel-Printer and Faxes \\n … in createPowerPointPrintHelper()
829 …out.write( " The name could look like the the following line: \\n … in createPowerPointPrintHelper()
830 …out.write( " Apple LaserWriter II NT v47.0 \\n … in createPowerPointPrintHelper()
831 …out.write( " Sample command line: \\n … in createPowerPointPrintHelper()
832 …out.write( " powerpoint_print.pl c:\\book.ppt Apple LaserWriter II NT v47.0 c:\\… in createPowerPointPrintHelper()
833 …out.write( "} … in createPowerPointPrintHelper()
834 …out.write( " … in createPowerPointPrintHelper()
835 …out.write( " … in createPowerPointPrintHelper()
836 …out.write( " … in createPowerPointPrintHelper()
837 …out.write( "$Win32::OLE::Warn = 3; # die on errors... … in createPowerPointPrintHelper()
838 …out.write( " … in createPowerPointPrintHelper()
839 …out.write( " … in createPowerPointPrintHelper()
840 …out.write( "if ($#ARGV < 2) … in createPowerPointPrintHelper()
841 …out.write( "{ … in createPowerPointPrintHelper()
842 …out.write( " print \"Too less arguments.\\n\"; … in createPowerPointPrintHelper()
843 …out.write( " print_usage(); … in createPowerPointPrintHelper()
844 …out.write( " exit(1); … in createPowerPointPrintHelper()
845 …out.write( "} … in createPowerPointPrintHelper()
846 …out.write( " … in createPowerPointPrintHelper()
847 …out.write( "my $PowerPoint = Win32::OLE->GetActiveObject('PowerPoint.Application') … in createPowerPointPrintHelper()
848 …out.write( " || Win32::OLE->new('PowerPoint.Application', 'Quit'); # get already active Excel … in createPowerPointPrintHelper()
849 …out.write( " # application or open new … in createPowerPointPrintHelper()
850 …out.write( " … in createPowerPointPrintHelper()
851 …out.write( " … in createPowerPointPrintHelper()
852 …out.write( " … in createPowerPointPrintHelper()
853 …out.write( " $PowerPoint->{'Visible'} = 1; … in createPowerPointPrintHelper()
854 …out.write( " my $Presentation = $PowerPoint->Presentations->Add; … in createPowerPointPrintHelper()
855 …out.write( " my $Presentation = $PowerPoint->Presentations->Open( $ARGV[0] ); … in createPowerPointPrintHelper()
856 …out.write( "# we can't change active printer in powerpoint … in createPowerPointPrintHelper()
857 out.write( "# $Presentation->PrintOptions->{ActivePrinter} = $ARGV[1]; " + ls ); in createPowerPointPrintHelper()
858 …out.write( " print \"Active printer is: \" . $Presentation->PrintOptions->{ActivePrinter} . \"\\… in createPowerPointPrintHelper()
859 …out.write( " $Presentation->PrintOptions->{PrintInBackground} = 0; … in createPowerPointPrintHelper()
860 …out.write( " # PrintColorType = 1 means print in color and PrintColorType = 2 means print in gra… in createPowerPointPrintHelper()
861 …out.write( " $Presentation->PrintOptions->{PrintColorType} = 1; … in createPowerPointPrintHelper()
862 …out.write( " … in createPowerPointPrintHelper()
863 …out.write( " $Presentation->PrintOut({PrintToFile => $ARGV[2]}); … in createPowerPointPrintHelper()
864 …out.write( " sleep 5; … in createPowerPointPrintHelper()
865 …out.write( " print \"Presentation has been printed\\n\"; … in createPowerPointPrintHelper()
866 out.write( "my $sVersion = $Presentation->Application->Version();"+ls); in createPowerPointPrintHelper()
867 out.write( " $PowerPoint->Quit(); " + ls ); in createPowerPointPrintHelper()
869 out.write( "local *FILE;" + ls); in createPowerPointPrintHelper()
870 out.write( "if (open(FILE, \">$ENV{HOME}/msofficeloadtimes.txt\"))" + ls); in createPowerPointPrintHelper()
871 out.write( "{" + ls); in createPowerPointPrintHelper()
872 out.write( " print FILE \"name=$ARGV[0]\\n\";" + ls); in createPowerPointPrintHelper()
873 out.write( " print FILE \"PowerPointVersion=$sVersion\\n\";" + ls); in createPowerPointPrintHelper()
877 out.write( " close(FILE);" + ls); in createPowerPointPrintHelper()
878 out.write( "}" + ls); in createPowerPointPrintHelper()