'' Excel app no longer works

vNam = Cells(2, 7).Text + "V" 'board voltage
pPath = "D:\ANALOG\HVREG\Boards\TITANTWO\TT_C\Jumpers\ "
ActiveSheet.Shapes(1).Select
' cannot get printer to work, and no useful help
' ALWAYS wants to print to f'ing "My Documents" no matter what
' AND to add insult to injury, it asks for file name
'' THIS USED TO WORK
Application.ActivePrinter = "Acrobat PDFWriter on FILE:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Preview:=False, _
ActivePrinter:="Acrobat PDFWriter on FILE:", printtofile:=True, _
Collate:=False, PrToFileName:=pPath + vNam
' the following scheme does not work either
Application.ActivePrinter = "Acrobat PDFWriter on FILE:,
PrToFileName:=pPath + vNam"
Kill pPath + vNam 'only PDF left
' END END

Help, please.