VBA to choose printer

[Queenofmycastle]

This is one of my most used VBA formulas. I want to share my file with other offices. Is there a way to have it so that the printer can be changed without knowing VBA?

Thanks so much!

Sub PrintEntireSetJ6()
Dim i As Integer


Application.ActivePrinter = "iR-ADV C350 PCL 5c on Ne06:"
[J6].FormulaR1C1 = "1"
ExecuteExcel4Macro _
"PRINT(1,,,1,,,,,,,,2,""iR-ADV C350 on Ne03:"",,TRUE,,FALSE)"


For i = 2 To 25
[J6].FormulaR1C1 = CStr(i)
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Next i
[J6].FormulaR1C1 = "1"
End Sub

 

[Logit]

.

Option Explicit


Sub iActiveSheet_Print()
' First choose a printer
    Application.Dialogs(xlDialogPrinterSetup).Show
End Sub

 

[Queenofmycastle]

Considering I'm not well versed in this, I added this to this macro and it didn't work. Do I put it in another place? So sorry!

 

[Logit]

.
Paste it as a separate macro with a command button to initiate it.

You can also include it within another macro ... just this line : Application.Dialogs(xlDialogPrinterSetup).Show
Of course you'll want to place it before the actual command/s for printing.