NACESITO CLASE TDOSPRN QUE IMPRIME POR USB

[juan fco. vasquez Mendoza]

Hola, necesito la clase TDOSPRN que imprime por el puerto USB, tengo unas maquinas con WINDOWS VISTAS y no me funciona el NET USE LPT! \\servidor\impresor. Para redireccionar el printer al impresor instalado en el puerto USB.

Gracias ,
Juan Fco. Vásquez M.
Rep. Dom.

[pablovidal]

Intenta con esto:
Solo tienes que configurar la impresora por usb y listo... windows se encarga del resto

Code: Select all  Expand view

//----------------------------------------------------------------------------//

FUNCTION PrintDosForWin()

   LOCAL cTexto     := ""
   LOCAL ON_GRANDE  := CHR(27) + CHR(33) + CHR(16) // Para Impresoras Epson
   LOCAL OFF_GRANDE := CHR(27) + CHR(33) + CHR(01) // Para Impresoras Epson
   LOCAL cPrinter   := GetDefaultPrinter()    // Seleciona la Impresora Por Defecto de Windows
   //LOCAL CRLF       := CHR(13) + CHR(10)
   LOCAL cFileName  := "texto.prn"

   cTexto += "Esta es la primera linea del texto" + CRLF
   cTexto += Replicate( "*-", 20 ) + CRLF
   cTexto += ON_GRANDE + "LETRAS GRANDES" + OFF_GRANDE + CRLF
   cTexto += "Esta es otra linea de texto..." + CRLF
   cTexto += PADL( "Izquierza", 40 ) + CRLF
   cTexto += PADC( "CENTRALIZADO", 40 ) + CRLF
   cTexto += PADR( "Derecha", 40 ) + CRLF
   cTexto += PADC( "< Linea Final >", 40, "-" ) + CRLF

   If WriteStream( cFileName, cTexto )

      // Envia la Impresion al Spool de Windows
      PrintFileRaw( cPrinter, cFileName, "Impresion En Formato DOS desde Windows" )

      FERASE( cFileName )

   EndIF

RETURN NIL

// Esta Funcion la encontre por ahi...
FUNCTION WriteStream( cFile, cStream )

   LOCAL nHandle := FCreate( cFile )

   IF FError() <> 0
      RETURN( .F. )
   ENDIF

   FWrite( nHandle, cStream, Len(cStream) )

   FClose( nHandle )

RETURN ( FError() == 0 )

[juan fco. vasquez Mendoza]

Hola, gracias, pero como la uso o la inserto en el programa porque me da errores. Presentame un ejemplo por favor.

SAludos,

Juan Fco.

[pablovidal]

Juan Fco.

Contactame por privado pabloalbertovidal arroba gmail punto com