Logo 
Search:

MS Office Answers

 Ask Question   UnAnswered
Home » Forum » MS Office       RSS Feeds
  Question Asked By: Klarissa Schmidt   on Jan 02 In MS Office Category.

Print Range


  
Question Answered By: Gina Tanaka   on Jan 02

Give this on e a shot:

Sub SetPrintAreaAllSheets()
For SheetIndex = 1 To ActiveWorkbook.Sheets.Count
vPrintrange = Sheets(SheetIndex).Cells(1, 1).CurrentRegion.Address
Sheets(SheetIndex).PageSetup.PrintArea = vPrintrange
Next SheetIndex
End Sub

Share: 

 

This Question has 2 more answer(s). View Complete Question Thread

 
Didn't find what you were looking for? Find more on Print Range Or get search suggestion and latest updates.


Tagged: