Discussion :

[macakou99]

Bonjour,

Je me permets de solliciter votre aide car mes recherches se sont avérées infructueuses.

Auriez-vous des pistes à me suggérer pour coder un journal d'impression dans ACCESS indépendant de ce qui est permis par le biais du panneau de configuration (imprimante ou par l'observateur d'évènements) ? ces deux solutions possibles sont trop riches en ressources.

Je souhaiterais pouvoir contrôler les impressions qui ont été effectives chaque jour.
Normalement, après chaque rendez-vous, un état STANDARD est imprimé par la secrétaire. manuellement et remis au client.

Cela étant, il arrive de plus en plus souvent que, soit les clients prennent un rendez-vous et ne l'honorent pas, soit certains demandent des copies d'impression qui leur ont été remises et qu'ils ont perdu. D'autres encore vont demander de leur réimprimer des duplicatas concernant des années précédentes.

Comment permettre à la secrétaire de pouvoir connaître très précisément la liste exacte des impressions d'état qu'elle a réalisées, dans la journée, en reprenant par exemple l'identifiant unique de chaque client.

Je vous remercie de vos conseils qui me seront forcément précieux.

[marot_r]

Bonjour.

Le plus simple, selon moi, est d'ajouter dans une table un enregistrement après l'impression.
Évidement il se peut, si tu as serveur d'impression, que Access croit que l'impression a bien eu lieu mais que l'imprimante ait planté et que l'impression n'est pas été faite.

Un truc du genre :

tblLogImpression:
Clef
CodeUtilisateur (celui du réseau)
DateHeure
CodeClient
TitreEtat

dans le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
public sub LogImpression(prmCodeUtilisateur as string, prmDateHeure as date, prmCodeClient as string, prmTitreEtat as string)
   dim db as dao.database:set db=currentdb
   dim rLogImpression as dao.recordset:set rLogImpression=db.openrecordset("tblLogImpresion", dbOpenSnapShot)
 
   rLogImpression.addnew
   rLogImpression.![prmCodeUtilisateur]=prmCodeUtilisateur
   rLogImpression.![prmDateHeure]=prmDateHeure
   rLogImpression.![prmCodeClient]=prmCodeClient
   rLogImpression.![prmTitreEtat]=prmTitreEtat
   rLogImpression.update
   rLogImpressio.close: set rLogImpression=nothing
   db.close:set db=nothing
end sub

Et de mettre un GROS bouton "Imprimer" pour que l'utilisateur n'utilise pas les commandes du menu standard d'impression (ou neutraliser le menu standard ... mais je n'aime pas trop).

A+