Thread: print screen
View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Chip[_3_] Chip[_3_] is offline
external usenet poster
  
Posts: 133
Default print screen
Give this a shot...

Sub printer()
printablearea = Range(Cells(2, 1), Cells(lastrow, lastcolumn)).Address
ActiveSheet.PageSetup.PrintArea = printablearea
End Sub

Reply With QuoteReply With Quote