Prueba asi imprimiendo USB
cFile :="LISTADO.PRN"
cPrinter := PrinterPortToName( "USB001" )
oPrin := TDosPrn():New(cFile)
oPrin:StartPage()
...
...
oPrin:EndPage()
oPrin:End()
PrintFileRaw( cPrinter, cFile, "Imprimiendo Listado" )
FERASE( cFile )
SAludos