AutoHotkey Community

   StringTrimRight, printerlist, printerlist, StrLen(Delimiter)

   StringTrimRight, printerlist, printerlist, % StrLen(Delimiter)

list:=GetInstalledPrinters()
msgbox, % list

FileDelete D:\MyDocuments\AutoHotKey\printers.txt
FileDelete D:\MyDocuments\AutoHotKey\printer names.txt
;
; Get list of installed printers
;
list:=GetInstalledPrinters()
;
; Prompt for default printer
;
; msgbox, % list
SetDefaultPrinter(sPrinter)
{      
         DllCall(A_WinDir . "\system\winspool.drv\SetDefaultPrinterA", "str", sPrinter)
}

InputBox, ItemNumber,Select a Default Printer, Pick a printer you want to be set to default:`n`n1. 1 page Brother`n2. 2 page Brother`n3. 2 page top2top Brother`n4. Adobe PDF`n5. ClickBook Printer`n6. Dell Photo AIO Printer 926`n7. EPSON Stylus Photo R220 Series`n8. Microsoft Office Document Image Writer`n9. PDF Check`n`nEnter a single digit representing the printer you want.,,340,305,,,,,4
ArrayCount = 0
Loop, Read, D:\MyDocuments\AutoHotKey\printers.txt   ; This loop retrieves each line from the file, one at a time.
{
    ArrayCount += 1  ; Keep track of how many items are in the array.
    Array%ArrayCount% := A_LoopReadLine  ; Store in next array element.
      If ArrayCount = %ItemNumber%
      {
         var2=%A_LoopReadLine%
; msgbox A_LoopReadLine = x%A_LoopReadLine%x  var2=y%var2%y
;          result := SetDefaultPrinter(A_LoopReadLine)
         result := SetDefaultPrinter(var2)
         msgbox ,1,Set Default Printer,The default printer has been set to %A_LoopReadLine%.,10
         return
      }
}

GetInstalledPrinters(Delimiter="|",Default=True)
{
   if (Default = True)
   {
      regread,defaultPrinter,HKCU,Software\Microsoft\Windows NT\CurrentVersion\Windows,device
      stringsplit,defaultName,defaultPrinter,`,
      defaultName := defaultName1
      printerlist =
      PrinterCount=0
      loop,HKCU,Software\Microsoft\Windows NT\CurrentVersion\devices
      {
         if (A_LoopRegName = defaultname)
         printerlist = %printerlist%%A_loopRegName%%Delimiter%%Delimiter%
         else printerlist = %printerlist%%A_loopRegName%%Delimiter%
         PrinterCount += 1
;          msgbox %PrinterCount%.  %A_loopRegName%
         FileAppend %PrinterCount%. %A_loopRegName%  `n,D:\MyDocuments\AutoHotKey\printer names.txt
         FileAppend %A_loopRegName%  `n,D:\MyDocuments\AutoHotKey\printers.txt
      }
   }
   else
   {
      printerlist =
      loop,HKCU,Software\Microsoft\Windows NT\CurrentVersion\devices
      {
         printerlist = %printerlist%%A_loopRegName%%Delimiter%
      }
   }
   StringTrimRight, printerlist, printerlist, StrLen(Delimiter)
   return %printerlist%
}
return