use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
my $Word = Win32::OLE->new('Word.Application', 'Quit');
$Word->Documents->Open("C:\\ems\\ems1.rtf");

 $Word->ActiveDocument->PrintOut({
    Range      => wdPrintFromTo,
    From       => 1,
    To         => 2,
    });