Fórum Pegar impressões #388972
20/10/2010
0
Gostaria de saber como faço pra pegar as impressões que um usuario esta enviando para a impressora ???
Bruno Ferreira
Curtir tópico
+ 0
Responder
Posts
20/10/2010
Leonardo Xavier
Tente assim:
[CODE]
type TyourForm = class(TForm) private { Private declarations } procedure WMSpoolerStatus(var Msg: TWMSpoolerStatus); message WM_SPOOLERSTATUS; public { Public declarations } end; implementation {$R *.DFM} procedure TSeuformulario.WMSpoolerStatus(var Msg: TWMSpoolerStatus); begin ShowMessage('Agora no Sool você tem: ' + IntToStr(msg.JobsLeft) + ' impressões'; msg.Result := 0; end;
[\CODE]
[CODE]
type TyourForm = class(TForm) private { Private declarations } procedure WMSpoolerStatus(var Msg: TWMSpoolerStatus); message WM_SPOOLERSTATUS; public { Public declarations } end; implementation {$R *.DFM} procedure TSeuformulario.WMSpoolerStatus(var Msg: TWMSpoolerStatus); begin ShowMessage('Agora no Sool você tem: ' + IntToStr(msg.JobsLeft) + ' impressões'; msg.Result := 0; end;
[\CODE]
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)