A Alexander Bushan Aug 7, 2003 #1 Just change this line sRange = "A1:H" & iXrow to: Set sRange = objWS.Range("A1:H" & iXrow)
D Dave Peterson Aug 8, 2003 #2 From VBA's immediate window: ?xlLandscape 2 objWS.PageSetup.Orientation = xlLandscape would become objWS.PageSetup.Orientation = 2 (What was iXrow equal to when you ran it the first time?)
From VBA's immediate window: ?xlLandscape 2 objWS.PageSetup.Orientation = xlLandscape would become objWS.PageSetup.Orientation = 2 (What was iXrow equal to when you ran it the first time?)
