ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Discussion (Misc queries) (https://www.excelbanter.com/excel-discussion-misc-queries/)
-   -   Selecting printer in a macro (https://www.excelbanter.com/excel-discussion-misc-queries/122499-selecting-printer-macro.html)

lohme

Selecting printer in a macro
 
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??

Stephen C

Selecting printer in a macro
 
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??


Bob Phillips

Selecting printer in a macro
 
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??




lohme

Selecting printer in a macro
 
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??





Rob

Selecting printer in a macro
 
thanks...worked great!

"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??






All times are GMT +1. The time now is 02:17 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
ExcelBanter.com