Como mostrar situação da impressora?
Enviado: 20 Out 2007 14:25
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"?
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