小票打印问题。

Question

FUNCTION  COMPORT_OUTLN(PortNAME,EXPRESS:STRING):BOOLEAN;
VAR TF :TEXTFILE;
BEGIN
  RESULT := FALSE;
  IF TEST_OPEN_FILE(PortNAME) = TRUE THEN
     BEGIN
     TRY
       AssignFile(TF,PortNAME);   Rewrite(TF);
       Writeln(TF,EXPRESS);    CloseFile(TF);
       RESULT := TRUE;
     EXCEPT
       RESULT := FALSE;
     END;
     END;
END;以上是我用来打印小票的直接端口打印的代码，现在有一个问题， 当小票打印机装了驱动后，小票打印不正常，只能打印部分，不装驱动就很好。 现在客户那边一台机器接2台打印机，一台票据打印机，一台小票打印机，不装驱动时，小票打印默认打印到票据打印机上去了，装驱动，又不能正常打印。请各位大虾帮帮忙，有什么好办法可以解决？

Answer 1

你试一： dir> 端口，看是不是正常，如果正常检查代码，不正常就应该是端口的问题了。提个建议：打小票尽量用TSTRINGLIST处理下。再writelN