FoxPro/Visual FoxPro - no imprime con xp?

buenas
en el sistema quie estoy desarrollando realizo los reportes mediante codigo con la impresora, el tema es que imprime perfectamente en una pc con win 98 y una impresora HP USB y en otra que tiene XP y la misma impresora no imprime, la impresion queda en cola y nunca la imprime, utilizo este algoritmo para imprimir

************
procedure impresion_plan_cuentas

fecha=datetime()
aux222=getprinter()
set printer to name (aux222)
set printer to LPT1
*
select plancuentas
set order to pc_cod_pla
go top
set console off
??? chr(13)+chr(10)
???padc("INFORME PLAN DE CUENTAS",45)+padr("Fecha",8)+padr(fecha,20)+chr(13)+chr(10)
pagina=1
???padl("Pagina:",70)+padc(pagina,3)
??? chr(13)+chr(10)
??? chr(13)+chr(10)
???padc("COD PLAN",15)+padr("NRO",5)+padc("DESCRIPCION",25)+padc("TIPO CUENTA",10)++padl("NIVEL",10)+chr(13)+chr(10)

do while not eof()
???padc(pc_cod_pla,20)+padr(pc_nro,3)+padc(pc_descrip,25)+padc(pc_tipo,10)+padc(pc_nivel,10)+chr(13)+chr(10)

skip
enddo
???chr(12)

set printer to
return

fecha=datetime()
aux222=getprinter()
set printer to name (aux222)
set printer to LPT1


Si quieres imprimir en el USB por que lo estas seteando al LPT1 ?


Suerte