Como mostrar situação da impressora?

[miracle]

Há alguma forma de mostrar na tela uma espécie de barra progressiva enquanto a impressora matricial está imprimindo ou uma mensagem do tipo "Imprimindo... <esc> cancelar"?

[alaminojunior]

Olá meu caro, particularmente uso esta rotina abaixo com modo gráfico.
Ela fica em exibição apenas o tempo em que o sistema está mandando os dados para a impressora, e não durante toda a impressão, indicando que o sistema está livre.
Em relatórios mais longos, vc pode incluir no meio do laço de impressão, um "if inkey() = 27" para detectar que o ESC foi pressionado e que a impressão deve ser abortada.

Código: Selecionar todos

Salva_Usu()
Gframe(301,373,337,411,0,9,1,2,2,2,2,LLG_MODE_SET)
GbmpDisp(GbmpLoad("Imp.bmp"),303,375)
set device to printer
setprc(0, 0)
select cdfec000
OrdSetFocus("indfec02")
DbGoTop()
DbSeek(orc)
Public Local1:= 0
do while (fecnom = orc .and. !EOF())
   imprime()
enddo
rodape()
select(Lc2)
OrdSetFocus(lc3)
goto lc4
prcommit()
set device to screen
restscreen(0,0,29,79,loc5)
rele loc5
@ 19,20 say "              " colo "bg/bg"
@ 20,20 say "              " colo "bg/bg"
orc:= "þþþþþþ"
return