Discussion :

[bois333]

Bonjour à tous
J'ai récupéré un programme pour imprimer des tickets de caisse sur une imprimante ITHACA ( Iterme 280 mono couleur).
J'ai deux problèmes que je n'arrive pas résoudre :
- Le format du papier est de 8 cm de large. Mais à l'impression, la largeur d'impression ne dépasse pas 5 cm et le multigne ré-imprime sur la ligne !
- Je ne connais pas la séquence pour couper le papier après impression

Merci d'avance

[Jannus]

Tu n'envisagerais pas de nous mettre un bout de code ?
(celui qui gère l'impression évidemment )

[bois333]

1/ J'ai créee une imprimante generique et dirigé le port vers cette imprimante.
2/ crée un etat sur table
3/ j'ai essayé et sur l'imprimante de modifier via windows la largeur
4/ puis par programmation

Code :

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

1
2
3
4
5
6
7
8
9
10
11
iParamètre(iImprimanteDéfaut, Faux)
iParamètre(iAlimentationPapier, iAlimentationPapier_Auto)
iParamètre(iQualité, iQualité_Haute)
iParamètre(iOrientation, iOrientation_Portrait)
iParamètre(iHauteurPapier, 2000)
iParamètre(iLargeurPapier,800)
/Impression des polices True Type
iParamètre(iTrueType, iTrueType_Matériel)
iParamètre(iNbCopie, 1)
iParamètre(iCouleur, iCouleur_Mono)
iParamètre(iRectoVerso, iRectoVerso_Simple)

mais cela ne change rien

Autre information, l'aperçu est correct. C'est à dire que la largeur du ticket est utilisé correctement et le multigne aussi.

[leonidas34]

Pour la coupure du ticket de caisse essayes ca :

Code :

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

1
2
3
4
5
 
sCoupure est une chaîne
sCoupure=ESC+Caract(109)
iEscape(sCoupure)
iFinImprime()

pour le reste, regardes si tu trouves ton bonheur dans ce code que je te commente de mémoire :

On sélectionne l'imprimante
on configure le format papier
on ouvre le tiroir-caisse
On trace une ligne noire
On imprime une donnée "Centrée"
etc...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
iConfigure(ImprimanteTicket) 
 
    iParamètre("FORMATPAPIER = DEFINIUTILISATEUR")
    iParamètre("LARGEURPAGE = 125")
 
	//	//ouverture du tiroir caisse
	chTiroir est une chaîne
	chTiroir=ESC+"p0"+ESC+"5"+ESC+"5"
	iEscape(chTiroir)
	iFinImprime()
 
	iCréePolice(1, 10,iNormal, "Arial")
	iImprime(iPolice(1)+"")		
 
	// Trace un ligne noire en continu
	iLigne(0, 0, iLargeurPage, 0, iContinu, 1, iNoir)
 
    //Raison sociale
	tt=iLargeurTexte(iPolice(1)+Paramètres_Généraux.RaisonSociale)
	nPos=PartieEntière((iLargeurPage()-tt)/2)
	iImprime(iPosX(nPos)+Paramètres_Généraux.RaisonSociale)

[bois333]

A Leonidas34

Merci pour tes éléments de réponses. Mais cela ne change rien.
La coupure du papier ne s'éffectue pas et l'impression sur limprimante ne correspond toujours pas à l'aperçu, l'impression se fait toujours sur 5 cm de large au lieu des 8 cm demandés et déclarés.

Pourtant, le code suivant :

Code :

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

iImprime("Largeur de la page : " + iLargeurPage() + "mm")

me donne bien comme résultat 80.01 mm

[leonidas34]

Désolé, j'ai oublié de mentionner que le code que j'ai fourni fonctionnait très bien sur des epsons.
Bonne chance.