I've looked through those responses (thank you for the references), but I do
not understand enough about them to implement, I am sorry to say! My macros
are basically written with record then I edit as needed.

I found a site that had a promising answer seen he
http://www.erlandsendata.no/english/...tchangeprinter

Would anyone be willing to coach me in combining my current macro with it?
Assistance on this would be very greatly appreciated.

My current macro (for one machine, changes from default Kyocera to Label
printer and back):

Range("A7:M18").Select
With Selection.Font
.Name = "10 CPI Utility"
.Size = 10
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
Range("P8:Y11").Select
ActiveSheet.PageSetup.PrintArea = "$P$8:$Y$13"
Application.ActivePrinter = "label on Ne05:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"label on Ne05:", Collate:=True
Application.ActivePrinter = "KYOCERA FS3820N on Ne06:"
Range("A2").Select
End Sub