Da excel

Range("C4:E6").Select
Selection.PrintOut Copies:=1, Collate:=True

da vb

dim xObj as Object

set xObj=Creatobject("Excel.Application")

with xobj

.range("C4:E6").Select
.Selection.PrintOut Copies:=1, COllate:=True

end with