[既定のプリンタを設定する]

\\prtsvr01\prt01 を通常使うプリンタに設定します。

program tips0157;
{$APPTYPE CONSOLE}
uses   SysUtils,ComObj,ComCtrls;
var
  APP : Variant;
  str : string;
begin
  str :='\\prtsvr01\DocuCentre-II C4300 2F □（カラー）';
  APP := CreateOleObject('WScript.Network');
  try
    APP.SetDefaultPrinter(str);
    Writeln(str,'は既定のプリンタに設定しました');
  except
    Writeln(str,'　既定のプリンタへの設定に失敗しました');
  end
end.

dcc32 tips0157.pas 
tips0157.exe >tips0157.txt
pause

\\prtsvr01\DocuCentre-II C4300 2F □（カラー）は既定のプリンタに設定しました