Thread: erasing outside print area
View Single Post
  #5   Report Post  
mikerickson mikerickson is offline
Junior Member
  
Location: Winters CA
Posts: 22
Default
This works for me.
Code:
Dim pValues As Variant
With ActiveSheet
    pValues = .Range(.PageSetup.PrintArea).Value
    .Cells.ClearContents
    .Range(.PageSetup.PrintArea).Value = pValues
End With
Quote:
Originally Posted by er View Post
hallo,
how can erase the empty cells, outside print area?
Reply With QuoteReply With Quote