I have a workbook with a VB code to choose a non-network printer and print a
document. The application code currently being used is:

Application.ActivePrinter = "hp photosmart p1110 series on LPT1:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"hp photosmart p1100 series on LPT1:", Collate:=True

This code works very well for this particular printer connected by parallel
cable to this particular port. However, I need an application syntax which
will work universally for any hp photosmart printer, disregarding any
particular model or whether it is a parallel or USB connection. Any
suggestions? Thanks for your help.