TOLEAUTO:PRINTOUT

[Amparo]

ola amigos

Harbour MiniGUI Extended Edition 23.02 (Update 2)


gero um arquivo em word e depois abro e mando imprimir cfe abaixo, e esta me dando erro na linha oWord:PrintOut() com a seguinte mensagem:
Date: 11/05/2023 Time: 15:35:06 Users: DEBORA
Error WINOLE/1007 Memуria ou espaзo em disco insuficiente. O Word nгo pode exibir a fonte solicitada. (0x800A14CA): Microsoft Word

Called from TOLEAUTO:PRINTOUT(0)
Called from IMPRIME_WORD(407)


memoria tem livre 1GB e espaço em disco +/- 90GB

o word abre o arquivo de boa, depois se quiser mando imprimir mais copias, o que pode ser?

Código: Selecionar todos

FUNCTION IMPRIME_WORD( CARQ, IMPRIME_SIMNAO )

Local oWord

DEFAULT IMPRIME_SIMNAO TO "Off"

oWord:=TOleAuto():New( "Word.Application" )
oWord:Documents:Open( CARQ )
oWord:WindowState := 1
oWord:Visible := .t.

IF IMPRIME_SIMNAO == "On"
   oWord:PrintOut()   //PARA IMPRIMIR DIRETO
ENDIF

Return nil

[Itamar M. Lins Jr.]

Olá!
Erro comum. Está abrindo sem fechar sabe-se lá quantos ai até estourar a memória.
Abriu sim, fechou NÃO!
Então abriu, fechou, destruir objeto.

Saudações,
Itamar M. Lins Jr.

[Amparo]

OLA AMIGOS!

bom dia

interessante!, há + dois anos faço dessa forma e nunca deu essa mensagem e olha que as vezes a pessoa gera 7 vezes o arquivo, também é estranho aparecer a mensagem mais abrir o word com o arquivo criado, se estourou a memoria então nem deveria abrir o Word ou estou errado?

desculpe minha ignorância Itamar mais qual seria a sintaxe para fechar?

abraços

Amparo

[lucimauro]

Ola, tente assim

Código: Selecionar todos

oWord:close()

[Amparo]

ola amigos

Bom dia

valeu Lucimauro

vou testar e ver, fuçando um pouco também achei Oword:Quit()

agora vou testar os dois e ver qual é o comportamento de um e de outro.

grato!