Visites

   visiteurs

   visiteurs en ligne

Sujet n°240 Pilotage d'un afficheur
    par Nat le 27/04/2009 : 20:07

Bonjour,

Dans une application de gestion d'encaissement développée en Access97, je souhaite afficher la saisie des lignes de vente sur un afficheur (Epson) connecté derrière une imprimante du la même marque. L'impression des tickets de caisse ne pose pas de problème mais je ne vois pas comment envoyé les infos à 'afficheur...Faut il créer un état contenant la ligne article à "imprimer" sur l'afficheur?

Merci par avance pour votre aide.


Réponse n° 1 par 3Stone le 27/04/2009 : 20:57
Bonjour,

Ces afficheurs étant connectés via un cable sériel, je pense qu'il faut le envoyer du texte "en clair" avec uniquement les différentes commande (code ascii servant au pilotage).
Ces imprimantes fonctionnent d'ailleurs sur le même principe.

L'afficheur peut (souvent) être placé en série avec l'imprimante ou sur un second port série.

Ceci dit, pour les codes à utiliser, il faut voir avec le fabriquant ou le vendeur... mais ce n'est assurément pas un état Access qu'il faut envoyer biggrin

Un peu plus de précisions sur les types et modèles serait nécessaire.

Cordialement,
Pierre(3stone)

Réponse n° 2 par Nat le 27/04/2009 : 22:39

Merci pour votre réponse. L'afficheur est branché en série avec l'imprimante TMU Epson. Il existe effectivement des

codes ascii à envoyer. Ci dessous la fonction que j'ai écrit:

Private Sub Afficheur(UneLigne As String)

ClearAfficheur = Chr(4) + Chr(1) + "C1X" + Chr(&H17)
DisplayAfficheur = Chr(4) + Chr(1) + "T" + Chr(&H17)    'à envoyer avant le texte
UneLigne = ClearAfficheur + DisplayAfficheur + UneS + Chr(13)
IdAfficheur = UneLigne

DoCmd.OpenReport "Afficheur", acViewPreview

Le problème est que je ne vois pas bien comment envoyer un texte directement sur un port série. Pouvez vous m'éclairer sur la fonction à utiliser?

Merci pour votre aide

Réponse n° 3 par 3Stone le 28/04/2009 : 00:47
Tu devrais pouvoir t'inspirer de ce code.

Cordialement,
Pierre(3stone)

Réponse n° 4 par Nat le 28/04/2009 : 10:24

Un grand merci pour cette piste, effectivement l'installation de l'activeX me permet de communiquer. Dans la même problématique, existe il une solution pour remplacer l'objet Application.printers qui n'existe pas en version 97. Il s'agit de vérifier si une imprimante spécifique (Epson TMU en l'occurence) existe?

Cordialement

Nathalie

Réponse n° 5 par 3Stone le 28/04/2009 : 13:39
Bonjour,

La documentation Access97 pour le pilotage des imprimantes existait sur le site de Microsoft... mais a été supprimée depuis bien longtemps frown

Déjà que ce n'était pas une sinécure...

Mais tu peux voir ceci ou télécharger un base exemple avec le code VBA nécessaire.

Cordialement,
Pierre(3stone)

[ Retour à la liste des sujets ]

Recherche



Préférences

Se reconnecter
---

Votre nom (ou pseudo) :

Votre code secret


 Nombre de membres 1 membre


Connectés :

( personne )

Haut