Как открыть диалог добавления принтера?

// добавьте ShellAPI в USES
 
begin
  ShellExecute(handle, nil, 'rundll32.exe',
    'shell32.dll,SHHelpShortcuts_RunDLL AddPrinter',
    '', SW_SHOWNORMAL);
end;

Взято с https://delphiworld.narod.ru