Clipper/FiveWin - IMPRESION PRG CLIPPER TARDA MUCHO EN XP

HOLA TENGO UNA APLICACION ANTIGUA REALIZADA EN CLIPPER AHORA HAN CAMBIADO DE IMPRESORA POR UNA LASER EL PROBLEMA ES QUE CUANDO SE LANZA LA IMPRESION QUEDA SALE DE LA COLA DE IMPRESION PERO QUEDA RETENIDA EN EL BUFFER DE LA IMPRESORA , ¿COMO SE PUEDE LIBERAR LA IMPRESION?
MUCHAS GRACIAS

Imprime enviando a LPT1:, no a LPT1:

Set printer to LPT1:

y listo.

Hola Gabriel, mira yo trabajo con clipper y Xp, lo que hago es generar mis reportes en archivos de texto primero luego los envio a la printer. antes de generar el reporte pongo:
set devi to prin
set prin to lista.prn
al terminar el proceso le doy
!copy lista.prn prn: o la ruta de impresion.

espero te sirva
Jorge Angeles.

CUANDO DICES IMPRIME ENVIANDO A LPT1:, NO A LPT1:
QUE QUIERES DECIR ME PARECE LO MISMO

Eu tive este problema e desenvolvi esta funcao que resolveu...

logo depois de acabar de imprimir chame:

.
.
.
set device to screen
set printer to
fclose2(4)
.
.
.

*********** inicio Func04.asm
;----------------------------------------------------------------------------
; Filename: FUNC04.ASM
; Program.: Fofao Library
; Authors.: Alexandre Machado Barros (FOFAO)
; Date....: July 23, 1990

NAME FUNC04
INCLUDE EXTENDA.MAC

; Clipper return value calls
; EXTRN __PARC:FAR ; obtem string de caracteres
; EXTRN __PARNI:FAR ; obtem palavra numerica
; EXTRN __RETC:FAR ; return character string
; EXTRN __RETDS:FAR ; return date type from date string "YYYYMMDD"
; EXTRN __RETL:FAR ; return logical true or false
; EXTRN __RETNI:FAR ; return word as numeric
; EXTRN __RETNL:FAR ; return double word as numeric
; EXTRN __RETND:FAR ; return floating point as numeric
EXTRN __RET:FAR ; retorna nulo

; $DOC$
; $FUNCNAME$
; FCLOSE2()
; $CATEGORY$
; Arquivos
; $ONELINER$
; Fecha um arquivo sem fechar o arquivo
; $SYNTAX$
; FCLOSE2()
; $ARGUMENTS$
; $RETURNS$
; $DESCRIPTION$
; Fecha um arquivo sem fechar o arquivo, comom se estivesse fechando
; e abrindo novamente
; $EXAMPLES$
; $SEEALSO$
; $END$
;--------------
; Funcao : FCLOSE2()
; Sintaxe : FCLOSE2()
; Nota : Fecha um arquivo sem fechar o arquivo
; Data : 25/07/04 - Fofao

public fclose2
_prog segment 'code'
assume cs:_prog

fclose2 proc far ; processo far
PUSH BP ; preserva endereco de retorno
PUSH DS ; preserva ds
MOV BP,SP ; move ponteiro da pilha
GET_INT 1 ; pega 1o. parametro
MOV BX,AX
XOR AX,AX
MOV AH,45h
INT 21h
JC ERROR
MOV BX,AX
MOV AH,3EH
INT 21H
; JC ERROR
error:
;PUSH BX
CALL __RET
;POP BX
POP DS
POP BP
RET
;fhandle dw 0
fclose2 endp
_prog ends

End