RE:GRABIEL ¿NO ESTAS DICIENDO LO MISMO? NO ENTIEND
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