Testar LPT1 no XP? Alguem conseguiu???

[MGA]

Gente, antes de imprimir na LPT1 (XP) tentei de todo que é jeito testar a porta, para saber se a impressora esta preparada.

tentei com:

isprinter()
printerready()
printsend()
printstat()

e nada, não tem jeito.. será que testar a situação da LPT1 no XP é tão dificil assim?

Obrigado

[Antonio Linares]

From Harbour's source code:

Code: Select all  Expand view  RUN

   {
      FHANDLE fhnd;
     
      if( pszPrinterName == NULL )
         pszPrinterName = "LPT1";

      fhnd = hb_fsOpen( ( BYTE * ) pszPrinterName, FO_WRITE | FO_SHARED | FO_PRIVATE );
      bIsPrinter = ( fhnd != FS_ERROR );
      hb_fsClose( fhnd );
   }


So basically you try to open "LPT1" as a file and check if you get a good return value.

[MGA]

Sr. Antonio, não entendo ingles, poderia explicar-me como usar o código abaixo?

From Harbour's source code:

Code: Select all  Expand view  RUN

   {
      FHANDLE fhnd;
     
      if( pszPrinterName == NULL )
         pszPrinterName = "LPT1";

      fhnd = hb_fsOpen( ( BYTE * ) pszPrinterName, FO_WRITE | FO_SHARED | FO_PRIVATE );
      bIsPrinter = ( fhnd != FS_ERROR );
      hb_fsClose( fhnd );
   }


So basically you try to open "LPT1" as a file and check if you get a good return value.