Excel printing

[Joel Becker]

in Excel 2010 is there a way to print with one print command pages with different print areas, ie print page 1 landscape range through column O and page 2 portrait through column H?

 

[bensonsearch]

if you know the exact ranges

sheets("Sheet1").range("A1:H7").printout
sheets("Sheet2").range("C1:H10").printout

change as per needed

 

[bensonsearch]

if you had variable ranges then something like (with continuos data)

dim counta as long
dim countb as long
'add more, 1 per sheet needed
 
 
counta = sheets("Sheet1").Range("A2").CurrentRegion.Rows.count
countb = sheets("Sheet2").Range("A2").CurrentRegion.Rows.count
 
sheets("Sheet1").range("A2:O" & counta).printout
sheets("Sheet2").range("A2:O" & countb).printout