SelectedPrinter name on A1 without changing the ActivePrinter

[drom]

Hi and thanks in advance!

In my company I have 5 printers
I know howto select as the ActivePrinter one of them

Application.Dialogs(xlDialogPrinterSetup).Show

But If I do not want to put as the Activeprinter one of them, I want only put the selected printer within a cell eg: RANGE("A1")

I do not want to use:

Sub SetPrinter()
Dim wActPrinter As String:        wActPrinter = Application.ActivePrinter
  Dim bPrt As Boolean:            bPrt = Application.Dialogs(xlDialogPrinterSetup).Show
    
    If Not bPrt Then Exit Sub
     
    Range("A1") = ActivePrinter
      'MsgBox ActivePrinter
      
    Application.ActivePrinter = wActPrinter
    
End Sub

 

[Jaafar Tribak]

Hi and thanks in advance!

In my company I have 5 printers
I know howto select as the ActivePrinter one of them

Application.Dialogs(xlDialogPrinterSetup).Show

But If I do not want to put as the Activeprinter one of them, I want only put the selected printer within a cell eg: RANGE("A1")

I do not want to use:

Sub SetPrinter()
Dim wActPrinter As String:        wActPrinter = Application.ActivePrinter
  Dim bPrt As Boolean:            bPrt = Application.Dialogs(xlDialogPrinterSetup).Show
    
    If Not bPrt Then Exit Sub
     
    Range("A1") = ActivePrinter
      'MsgBox ActivePrinter
      
    Application.ActivePrinter = wActPrinter
    
End Sub

I sthis what you want ?

Sub SetPrinter()Dim wActPrinter As String:        wActPrinter = Application.ActivePrinter
  Dim bPrt As Boolean:            bPrt = Application.Dialogs(xlDialogPrinterSetup).Show
    
    If Not bPrt Then Exit Sub
     
    Range("A1") = Application.ActivePrinter
      'MsgBox ActivePrinter
      
    Application.ActivePrinter = wActPrinter
      
End Sub

 

[drom]

Not really!
I do not want to change the activeprinter
I need to get the Selection I get if I use Application.Dialogs(xlDialogPrinterSetup).Show
or If I use any other Dialogs to let me select one printer

 

[Jaafar Tribak]

Not really!
I do not want to change the activeprinter
I need to get the Selection I get if I use Application.Dialogs(xlDialogPrinterSetup).Show
or If I use any other Dialogs to let me select one printer

The selection is returned by the Application.Dialogs(xlDialogPrinterSetup).Show Method.
Then even if that changed the active printer, you are restoring it back with the last line:
Application.ActivePrinter = wActPrinter