if not OpenPrinter('LPT1', hPrt, nil) then
    ShowMessage('LPT1에 연결되지 않았습니다.');
  DocInfo.lpszDocName := PChar(ps_FileNm + 'P');
  DocInfo.lpszOutput  := nil;
  DocInfo.lpszDatatype := 'RAW';

  if StartDocPrinter(hPrt, 1, @DocInfo)=0 then
     ShowMessage('Print Start Failure!');
  lp_Prt.GetPrinter(Adevice, Adriver, Aport, ADeviceMode);
  lp_Prt.SetPrinter(Adevice, Adriver,'LPT1',0);
  DeviceCapabilities(Adevice, 'LPT1', 90, nil, nil);
  lpc_Buffer :=  StrAlloc(Length(FrmData.Text) + 1);
  StrPLCopy(lpc_Buffer, FrmData.Text, Length(FrmData.Text) + 1);
  WritePrinter(hPrt, lpc_Buffer, Length(lpc_Buffer), li_Cnt);

  EndDocPrinter(hPrt);
  ClosePrinter(hPrt);
이와 같이 소스를 작성하였습니다. 그런데 LPT1 에서는 가로로 출력이
도지 않더군요. DeviceCapabilities를 잘못 사용하는 것인지
아시는분의 도움을 구합니다.