소스 조금 수정하시면 될듯 싶네요..
프린터 바꾸는 건데 기본프린터 바꾸셔셔 출력때리면 될듯 싶습니다.
즐프~

<!--CodeS-->
//Windows System  -->  New Printer
procedure Set_NewPrinter;
var
  WinIni : TiniFile;
  S : array[0..64] of Char;

  Device :array[0..255] of Char;
  Driver :array[0..255] of Char;
  Port   :array[0..255] of Char;
  hDMode :THandle;
  PDMode :PDEVMODE;
begin
  WinIni := TIniFile.Create('c:\windows\win.ini');
  try
    Old_Printer := WinIni.ReadString('windows', 'device', 'ERROR');
    WinIni.WriteString('windows', 'device', 'LG 전자 PRT-7950 (KSSM),KSSM,\\DIS2000\LG전자PRT-');
  finally
    WinIni.Free;
  end;
  StrCopy(S, 'windows');
  SendMessage(HWND_BROADCAST, WM_WININICHANGE,0,LongInt(@S));

{
  Printer.PrinterIndex := Printer.PrinterIndex;
  Printer.GetPrinter(Device, Driver,Port, hDMode);
  if hDMode <> 0 then
  begin
    pDMode := GlobalLock(hDMode);
    if pDMode <> nil then
    begin
      pDMode^.dmFields := pDMode^.dmFields or
                          DM_PAPERSIZE or
                          DM_PAPERWIDTH or
                          DM_PAPERLENGTH;
      pDMode^.dmPaperSize := DMPAPER_USER;
      pDMode^.dmPaperWidth := 380;
      pDMode^.dmPaperLength := 280;
      GlobalUnlock(hDMode);
    end;
  end;
  Printer.PrinterIndex := Printer.PrinterIndex;
}
end;

//Windows System  -->  Old Printer
procedure Set_OldPrinter;
var
  WinIni : TiniFile;
  S : array[0..64] of Char;
begin
  WinIni := TIniFile.Create('c:\windows\win.ini');
  try
    WinIni.WriteString('windows', 'device', Old_Printer);
  finally
    WinIni.Free;
  end;
  StrCopy(S, 'windows');
  SendMessage(HWND_BROADCAST, WM_WININICHANGE,0,LongInt(@S));
end;

<!--CodeE-->