Script to Print Range of Cells

L

Lisa

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
 
L

Lisa

I have tried this, and am closer, but it shows the print preview within the
excel sheet, and gives me no options. I have to hit esc to get out.


Private Sub CommandButton4_Click()
Application.ScreenUpdating = False
ActiveSheet.Range("SpecialOrderForm").AutoFilter Field:=1, Criteria1:="<>"
Range("GG2500:GM2745").Select
Dim LastRow As Long
With ActiveSheet
LastRow = .Cells(.Rows.Count, "gg").End(xlUp).Row
.Range("gg2500:gm2745").PrintOut preview:=True
End With
Range("SpecialOrderForm").Select

End Sub
 
D

Dave Peterson

What options are you expecting to see?

Not everything that is available via File|Page Setup is available in print
preview.

Option Explicit
Private Sub CommandButton4_Click()
Dim LastRow As Long

Application.ScreenUpdating = False

ActiveSheet.Range("SpecialOrderForm").AutoFilter Field:=1, Criteria1:="<>"

With ActiveSheet
LastRow = .Cells(.Rows.Count, "gg").End(xlUp).Row
.Range("gg2500:gm" & LastRow).PrintOut preview:=True
End With

Application.ScreenUpdating = True

End Sub

You may want to drop the .screenupdating lines to see if that helps. I didn't
notice a difference a difference when I did that, though.
 
L

Lisa

When I run this, it shows a print preview, however it does not even allow me
to print it. I can zoom in and out, but nothing else. I have to hit esc to
get out.
 
Top