the following works fine for me (Word 2002)

use strict;
use Win32::OLE;
use Win32::OLE::Const 'Microsoft Word';
my $Word = Win32::OLE->new('Word.Application');

$Word->Documents->Open("C:\\temp\\m.rtf");

$Word->ActiveDocument->PrintOut
({
        Range   => wdPrintRangeOfPages,
        Item    => wdPrintDocumentContent, 
        Pages   => "1-2",
});

$Word->Quit(0);
[download]

The VB-Code I got that from is

    Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Ite
+m:= _
        wdPrintDocumentContent, Copies:=1, Pages:="1-2", PageType:= _
        wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Back
+ground:= _
        False, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0
+, _
        PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0
[download]

Generally it's a good idea to use the makro recorder and translate it's code.