Script to Print Range of Cells
Hi all -
I have the default print area already set for a certain space. I need to
write a script for a 2nd print area. Here is what I have so far...but am at
a loss as to have it show up correctly in print preview.
Any Help is Greatly Appreciated!
Private Sub
Application.ScreenUpdating = False
ActiveSheet.Range("GG2500:GM2745").AutoFilter Field:=1, Criterial:="<"
Range("GG2500:GM2745").Select
Application.PrintPreview
End Sub
|