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