Wow. It's that simple?
Thanks for sharing.
Ken Cornetet wrote:
> 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;
> }
>
> -----Original Message-----
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of
> Chris O
> Sent: Monday, November 20, 2006 4:15 PM
> To: perl-win32-users@listserv.ActiveState.com
> Subject: Print MS Word Docs?
>
> Anyone know how to print MS Word documents with perl? According to
> Microsoft's site, there is no command line option to open & print a
> file. I know there has to be a way seeing how it can be invoked by
> right-clicking a document and selecting print.
>
>
> - Chris
>
> _______________________________________________
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
> _______________________________________________
> Perl-Win32-Users mailing list
> Perl-Win32-Users@listserv.ActiveState.com
> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
>
_______________________________________________
Perl-Win32-Users mailing list
Perl-Win32-Users@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
