If all you want to do is change printers, the macro recorder will record that.
Sub Macro1()
Application.ActivePrinter = "HP DeskJet 1200C/PS on LPT1:"
End Sub
Sub Macro2()
Application.ActivePrinter = "Epson Stylus COLOR 800 ESC/P 2 on LPT1:"
End Sub
For more Properties and Options, Frank's sendkeys is the way to go.
For Help on Sendkeys.........
Hit ALT + F11 to get to Visual Basic Editor.
Help>Answer Wizard "sendkeys". Choose Sendkeys Method from results.
Gord Dibben Excel MVP