Another macro question about the autofilter!

I have a macro as below that filters my worksheet to only show rows where
there is a value in column C and outputs it to the print preview screen.
When you close the preview screen the print range is selected and the filter
is still on.

Is there anyway of editing the macro so that when you close the print
preview screen the worksheet has no selection or filter?

The Macro:

Sub setprintarea()

Range("A14:j65536").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="<"
Columns("A:j").Select
Range("A2").Activate
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True

End Sub

AutoFilter toggles; so just add another:

Range("A14:j65536").Select
Selection.AutoFilter

at the end
--
Gary''s Student - gsnu200848


"Shaggyjh" wrote:

Another macro question about the autofilter!

I have a macro as below that filters my worksheet to only show rows where
there is a value in column C and outputs it to the print preview screen.
When you close the preview screen the print range is selected and the filter
is still on.

Is there anyway of editing the macro so that when you close the print
preview screen the worksheet has no selection or filter?

The Macro:

Sub setprintarea()

Range("A14:j65536").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="<"
Columns("A:j").Select
Range("A2").Activate
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True

End Sub

How about this?

Sub setprintarea()
With Range("A14:j65536")
..AutoFilter
..AutoFilter Field:=3, Criteria1:="<"
End With
Columns("A:j").Select
Range("A2").Activate
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True
Range("A1").Select
ActiveSheet.Columns.AutoFilter
End Sub


Shaggyjh;319458 Wrote:
Another macro question about the autofilter!

I have a macro as below that filters my worksheet to only show rows
where
there is a value in column C and outputs it to the print preview
screen.
When you close the preview screen the print range is selected and the
filter
is still on.

Is there anyway of editing the macro so that when you close the print
preview screen the worksheet has no selection or filter?

The Macro:

Sub setprintarea()

Range("A14:j65536").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="<"
Columns("A:j").Select
Range("A2").Activate
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True

End Sub


--
Simon Lloyd

Regards,
Simon Lloyd
'The Code Cage' (http://www.thecodecage.com)
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.thecodecage.com/forumz/member.php?userid=1
View this thread: http://www.thecodecage.com/forumz/sh...ad.php?t=89316

Many thanks


"Gary''s Student" wrote:

AutoFilter toggles; so just add another:

Range("A14:j65536").Select
Selection.AutoFilter

at the end
--
Gary''s Student - gsnu200848


"Shaggyjh" wrote:

Another macro question about the autofilter!

I have a macro as below that filters my worksheet to only show rows where
there is a value in column C and outputs it to the print preview screen.
When you close the preview screen the print range is selected and the filter
is still on.

Is there anyway of editing the macro so that when you close the print
preview screen the worksheet has no selection or filter?

The Macro:

Sub setprintarea()

Range("A14:j65536").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="<"
Columns("A:j").Select
Range("A2").Activate
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True

End Sub

With worksheets("Sheet9999")
'to remove the filter and the arrows
.AutoFilterMode = False

'or to just show all the data and keep the arrows
If .FilterMode Then
.ShowAllData
End If
End With

Shaggyjh wrote:

Another macro question about the autofilter!

I have a macro as below that filters my worksheet to only show rows where
there is a value in column C and outputs it to the print preview screen.
When you close the preview screen the print range is selected and the filter
is still on.

Is there anyway of editing the macro so that when you close the print
preview screen the worksheet has no selection or filter?

The Macro:

Sub setprintarea()

Range("A14:j65536").Select
Selection.AutoFilter
Selection.AutoFilter Field:=3, Criteria1:="<"
Columns("A:j").Select
Range("A2").Activate
Selection.PrintOut Copies:=1, Preview:=True, Collate:=True

End Sub

--

Dave Peterson