Hi Pierre,

I thinks that this might be what you want

With Sheets("Output")
.Visible = True
.PageSetup.PrintArea = "$A$1:$F$27"
.PrintPreview
.Visible = False
End With


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Pierre via OfficeKB.com" <u13950@uwe wrote in message
news:569d8f80c5dda@uwe...
Hi experts,

i have this simple code but it does not seem to work.

With Sheets("Output")
.Visible = True
.Range("A1:F56").Select
.PrintPreview
.Visible = False
End With

I just want a preview of the selected range("A1:F56")......

can anybody help me please ?
Thanks,
Pierre


--
Message posted via http://www.officekb.com