아래 소스를 참고하세요..

Uses
  Printers;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
Var
  aHandle: THandle;
  PrintFileName: String;
  aDevice, aDriver, aPort: PChar;
Begin
  GetMem(aDevice, 50); // 50은 충분히 큰 값
  GetMem(aDriver, 50);
  GetMem(aPort, 50);
  Printer.GetPrinter(aDevice, aDriver, aPort, aHandle);
  PrintFileName:= StrPas(aDevice);
  ShowMessage(PrintFileName);
  FreeMem(aDevice);
  FreeMem(aDriver);
  FreeMem(aPort);
end;



From 류..