macro to PrintPreview active page only

[Trident]

Hi everyone,

I was wondering if someone could help me with the following.

This code shows the print preview, but always starts from the first page:


Sub PrintPreview()

ActiveSheet.PrintPreview

End Sub



This one shows the selected cells only:


Sub PrintPreview()

Selection.PrintPreview

End Sub


Is it possible to print preview the active page only? That is, I want to preview the whole page belonging to the active cell.

This would save me having to select the page manually first.

I hope that makes sense, thanks heaps in advance!

 

[mole999]

I would suggest that your active sheet is the first one, if you change the selection it should work

 

[Trident]

Thanks for your input.

Any other suggestions gents?