This is my current entire macro. How would I fit this in?

ActiveWindow.ScrollWorkbookTabs Position:=xlLast
Sheets("Transactions").Select
Range("A1").Select
Application.Goto Reference:="R8C14"
Selection.AutoFilter Field:=14, Criteria1:="15", Operator:=xlTop10Items
Range("A1").Select
Range("A1:R101").Select
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRo w.Hidden = True
'Application.ActivePrinter = "\\vsprint006\N441TEK8550 on Ne04:"
ActiveWindo.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\vsprint006\N441TEK8550 on Ne04:", Collate:=True
Columns(1).SpecialCells(xlCellTypeBlanks).EntireRo w.Hidden = False
Application.Goto Reference:="R8C14"
Selection.AutoFilter Field:=14
Range("A1").Select

"Bob Phillips" wrote:

I would use the built-in constant

application.Dialogs(xldialogprint).show

--
---
HTH

Bob

(change the xxxx to gmail if mailing direct)


"Stephen C" wrote in message
...
Application.Dialogs(9).Show

"lohme" wrote:

I have a macro that does some page formatting, prints the document, and
then
reformats the page. Now I have a designated printer but would like to
have
the ability to pick which printer I want to use then continue with the
reformating.

How do I do this??