Add
activesheet.printout

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Pam" wrote in message
...
I have several ranges on one worksheet and each should print to a separate
page. I have one range that places one column and the last three rows on
two separate pages - for a total of three pages for this one range. How
can I set just this one page to print 1 wide x 1 tall without it effecting
the other ranges? Everything I've tried shrinks the other ranges and makes
them small on their individual pages. Here is code I'm using now calling
in second macro:

Sub DPPrintRange()
Worksheets("DP").Range("DPBusPlanPg1,DPMonthRevPt1 ,DPMonthRevPt2,DPWSpaceSy,DPSkills").PrintOut
Preview:=True, Copies:=1, Collate:=True
Call DPPrintWSpaceAllProd
End Sub

Sub DPPrintWSpaceAllProd()
With ActiveSheet.PageSetup
.PrintArea = ("DPWSpaceAllProd")
.Zoom = False
.FitToPagesWide = 1
.FitToPagesTall = 1
End With
End Sub

Can anyone please tell me what I'm doing wrong?
Thanks in advance,
Pam