Discussion :

[gyver76370]

hello

D'abord meilleurs Vœux a toutes la communauté

JE cherche a faire l’équivalent de ce code en Windev SVP

Code VB :

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
22
23
24
25
26
27
28
29
30
Function impression1CodeBarre(iCodeBarre1 As String)
 
'Variable locale
    Dim prnX As Printer
 
'On retrouve l'imprimante
    For Each prnX In Printers
        Select Case prnX.DeviceName
            Case "Zebra  TLP2844-Z"
                Set Printer = prnX
                Exit For
        End Select
    Next
 
   Printer.EndDoc
 
    Printer.FontName = "IDAutomationSC39S"
    Printer.FontSize = 11    '11
    Printer.CurrentX = 850
    Printer.CurrentY = 500
    Printer.Print "*" & iCodeBarre1 & "*"
    Printer.FontName = "Arial"
    Printer.FontSize = 14
    Printer.CurrentX = 850
    Printer.CurrentY = 1100
    Printer.Print iCodeBarre1
 
    Printer.EndDoc
 
    Printer.EndDoc

j'ai trouvé avec iparametre un certains nombre de paramètre mais pas les Fontname et fontsize



est ce que qqun as une idées

Merci

[frenchsting]

Regarde du côté des fonctions ixxxx : iPolice, IposX, etc..

[niuniuk36]

Bonjour,

je ne connais pas spécialement le VB mais j'ai déjà imprimé sur une imprimante ZEBRA depuis Windev.

Il faut se connecter dessus via les sockets et lui passer la chaine ZPL à imprimer.
Tu dois pouvoir imprimer du texte de la même manière je pense.

Bon dev

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
PROCEDURE LocImpression(IPImprimante est une chaine, sChaineAImprimer est une chaîne)
	SI SocketConnecte("IMP", 9100,IPImprimante) = Faux ALORS
		RENVOYER Faux
	SINON
		SI SocketEcrit("IMP",sChaineAImprimer) ALORS
			SocketFerme("IMP")
			RENVOYER Vrai
		SINON
			RENVOYER Faux
		FIN
	FIN

[gyver76370]

salut niuniuk36

Merci de votre aides d'abord

oui c'est ce que je cherche a faire , c'est une ZEBRA 2844 TLP branché en USB

a quoi correspond IMP ??

[gyver76370]

ok IMP nom du socket mais mon imprimante est un USB ???

[niuniuk36]

Bonjour,

Va voir ce post, pour ton imprimante en USB cela devrait fonctionner, à tester.

https://forum.pcsoft.fr/fr-FR/pcsoft...-etat/read.awp

[gyver76370]

CC tlm

Merci de votre aide

Le code fournit dans le dernier lien est parfait
Mon problème venait surtout de ma TLP
Impossible d'imprimer sur la TLP 2844 et dès que j'ai essayé sur une TLP 2844-Z ca amarche

JE n'ai même pplus bespin du code ZPL
J'imprime direct avec un etat

Code :

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

1
2
3
4
5
6
7
8
9
iRAZ()
SI iConfigure("ZDesigner TLP 2844-Z") = Faux ALORS
 
	Info("erreur")
 
FIN
iImprimeEtat(ETAT_SansNom1,"C0345","Date de fin" + RC + "14/02/2019")
 
iFinImprime()

Merci a tous