Temo che sia UsedRange che restituisce un' area alterata; mi accorgo, ad esempio, che e' sufficiente che una cella sia formattata perche' UsedRange la consideri in uso.
Cambiamo radicalmente approccio e prova questa:
- Codice: Seleziona tutto
Sub PAreaPw()
'
Range("B1").Select
LastR = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
LastC = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
ActiveSheet.PageSetup.PrintArea = Range("B1", Cells(LastR, LastC)).Address
ActiveWindow.SelectedSheets.PrintPreview
ActiveWindow.RangeSelection.Select
'
End Sub
L' area di stampa risultera' bordata in tratteggio, dopo l' esecuzione della macro.
Ciao