Perl Programming Examples: Email, Encryption, Zip, HTTP, XML, FTP

Perl Script to Print MS-Word Document

Back

Question:
How do I print an MS-WORD document in Perl?

Answer:
The PERL code snippet is provided below:

sub PrintWord {

        my $file = shift;

        my $word = Win32::OLE->new('Word.Application');
        $word->{Visible} = 0;
        my $doc = $word->Documents->Open($file);
        $doc->PrintOut(0);
        undef $doc;
        $word->Quit();
        undef $word;
}