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

Script to Print Range of Cells
 

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


"Lisa" wrote:

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

Script to Print Range of Cells
 

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.

Lisa wrote:

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

"Lisa" wrote:

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



--

Dave Peterson

Script to Print Range of Cells
 

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.

"Dave Peterson" wrote:

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.

Lisa wrote:

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

"Lisa" wrote:

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



--

Dave Peterson