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
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