Range("A4:F20").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

##</code><code>##

    $Sheet->Range("A4:F20")->Select();
    $Excel->SelectedSheets->PrintOut({Copies=>1, Collate=>True});