Discussion :

[Draculito]

Bonjour,

J'ai codé une base access qui me permet de faire des codes barres 39 il y a environs 1 an.
Elle fonctionnait très bien jusqu'à cette semaine, lors de l'aperçu avant impression les codes barres sont bien présents mais il ne s'imprime pas, la place où doit être le code barre reste blanche.
Si je sors l'état en pdf aucun soucis, les codes barres sont bien présents et si j'imprime le pdf les codes barres sont bien également présents.
J'ai essayé sur un autre poste relié à une autre imprimante et le problème reste présent.

Quelqu'un aurait-il une idée du problème svp?

Merci d'avance.

Cordialement,

[Jean-Philippe André]

Bonjour,

sans avoir le code que tu utilises, c'est pas facile de te donner des pistes pertinentes.

Si le fait de passer par le pdf suffit à ton bonheur, pourquoi ne pas automatiser simplement l'impression en pdf puis impression du pdf ?

[micniv]

Bonjour,

lors de l'aperçu avant impression les codes barres sont bien présents mais ils ne s'impriment pas

Je regarderais le code dans les évements de l'état , spécialement les _onPrint(). mais enfin si personne n'a touché, c'est qd même bizarre

Cdlt

[Draculito]

Bonjour,

Merci pour vos réponses, veuillez m'excuser pour la réponse tardive.
Non l'impression par pdf ne me convient pas

Voici le code de l'aperçu avant impression :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer)
 
    S = DLookup("S", "Parametres")
    L = DLookup("L", "Parametres")
    I = DLookup("I", "Parametres")
 
    Res = Barcode39_CordeGrappe(Matricule, Res.Left, Res.Top, Res.Height, S, L, I)
 
End Sub

Ce qui est bizarre c'est que personne n'a pu toucher car je suis le seul poste de l'entreprise avec Access, les autres postes sont équipés du Runtime Access, et quand on m'a fait remonter le problème j'ai fait le test sur une base que j'avais en sauvegarde et même constat.
Une mise à jour d'Access aurai pu déréglé ça?
Et le plus bizarre c'est que les codes barres sont bien présents sur l'aperçu avant impression !

Merci d'avance.

[PipoWIL]

Bonjour,
Je suppose que vous avez vérifié que le font est bien présent sur les postes.

[rnd]

Bonjour,

Pour avoir vécu il y a peu un cas similaire (c'était l'aperçu qui était vierge, mais parfait sur impression et export PDF) sans savoir ce qui c'est passé (appli en dev, donc uniquement sur mon poste) les trois points a vérifier:

1. Comme le dit PipoWIL, vérifie la police dans le dossier FONTS de Windows.
2. Ouvre ton état en mode création, pour vérifié aussi la police sur le contrôle.
3. Faire un compactage de la base.

Pour ma part cela avait résolu mon problème.

Cdt, Rnd.

[electrosat03]

Salut,

J'ai eu le même problème avec un logo à imprimer sur un état, ça a fonctionné des années puis plus du tout.

J'ai trouvé le problème en mettant mon imprimante en PS dans les pilotes et ça a fonctionné.

Peut-être une piste !

A+

[Draculito]

Bonjour,

Merci pour vos réponses.
Je n'utilise pas une police pour remplir le code barre, c'est du code :

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Function Barcode39_CordeGrappe(anycode, startx, starty, depth, nbar, wbar, ibar)
 
	Dim dbBaseDonnees As Database, TableBarcode39 As Recordset
	Dim newposn  As Single
											' all for bar dimensions
	Dim countx, CptCaracteres, countr As Single    ' loop counters
	Dim getstr, extstr As Variant           ' value to encode,
											' and value plus
											' stop/start chars
	Dim Codage, onechr As String            ' value of Bar39 Pattern field
	Dim Couleur As Long                     ' alternates Couleur of bars
	Dim Etat As Report
	Dim CritereTableBarcode39 As String
 
	Set dbBaseDonnees = DBEngine.Workspaces(0).Databases(0)
	Set TableBarcode39 = dbBaseDonnees.OpenRecordset("Barcode39", DB_OPEN_DYNASET)
 
	'Set Etat = Screen.ActiveReport
	Set Etat = Reports("et_CordeGrappe")
	newposn = startx
	Couleur = 16777215                           ' set to white initially
	getstr = anycode
	extstr = "*" & getstr & "*"                 ' add stop/start character (*)
		For countx = 1 To Len(extstr)
			CritereTableBarcode39 = "Character = '" & Mid$(extstr, countx, 1) + "'"
			TableBarcode39.FindFirst CritereTableBarcode39
 
			If TableBarcode39.NoMatch Then           ' can't find a character -
												' show red 'error' box
												' on Preview, but continue
					MsgBox ("Field contains a character not supported by 3 of 9")
					Etat.Line (startx, starty)-Step(depth, depth), 255, BF
			Else
				Codage = TableBarcode39![Pattern]
				For CptCaracteres = 1 To 10
				onechr = Mid$(Codage, CptCaracteres, 1)
				If Couleur = 16777215 Then
					'Couleur = 16771680
					Couleur = 0
				Else
					Couleur = 16777215
				End If
				Select Case onechr
				Case "L"
					Etat.Line (newposn, starty)-Step(wbar, depth), Couleur, BF
					newposn = newposn + wbar    ' reposition start point
				Case "S"
					Etat.Line (newposn, starty)-Step(nbar, depth), Couleur, BF
					newposn = newposn + nbar    ' reposition start point
				Case "I"
					Etat.Line (newposn, starty)-Step(ibar, depth), Couleur, BF
					newposn = newposn + ibar    ' reposition start point
				Case Else   'Ne doit jamais arriver mais...
					MsgBox ("An invalid code has been entered in the Bar39 Table")
												' show blue 'error' box, but
												' continue
					Etat.Line (startx, starty)-Step(depth, depth), 8388608, BF
				End Select
			Next CptCaracteres                         ' end pattern string loop
			End If                              ' end character check
		Next countx                             ' end character loop
		TableBarcode39.Close                         ' close lookup table
End Function

Pour l'imprimante, que veux-tu dire par la mettre en "PS"?

J'ai compacté la base mais ça ne fonctionne toujours pas.

[rnd]

PS: Post Script (à la place du pilote PCL) cela dépend de l'imprimante, si le pilote existe, cela peut être une piste également (souvenir avec des états SAGE chez un client, mais aucun rapport ici )

A tu tester, créer une nouvelle base, importer tous les objets. Qu'est ce que cela donne?

Sinon moi pour les codes barres, j'utilise cela http://grandzebu.net/informatique/codbar/codbar.htm

Cdt, Rnd.

[Draculito]

Bonjour rnd,

Merci pour ces infos.
Pour le passage en PS, j'ai beau chercher dans les propriétés de l'imprimante je ne trouve pas où je peux faire ce changement, à savoir que nous n'avons pas les droits administrateur sur nos postes de travail.
Je vais tester l'importation dans une nouvelle base pour voir, je vous tiendrai au courant.
Concernant le lien, j'étais déjà tombé dessus, l'idée est bonne mais à voir si l'installation peut se faire sans être Admin sur le poste, je verrais ça en dernier recours.
[EDIT01] : en fait le problème est que les postes sont changés régulièrement et qu'il faudra à chaque fois penser à remettre la police, j'aimerai que ça soit autonome.
[EDIT02] : Je viens de créer une nouvelle base et j'ai importé les objets mais le problème est toujours présent, c'est dingue que ça apparaisse bien sur l'aperçu avant impression et que rien ne s'imprime

[rnd]

Pour les pilotes d'imprimante il faut aller voir sur le site du constructeur, télécharger et l'installer sur les postes, en principe il n'y a rien a faire au niveau de l'imprimante, (éventuellement activer le protocole)

en fait le problème est que les postes sont changés régulièrement et qu'il faudra à chaque fois penser à remettre la police, j'aimerai que ça soit autonome.

Faux problème, car il te faut aussi installer le pack office et/ou le runtime, tu installe la police en même temps

Pour le PDF tu passe par l'export PDF ou par une imprimante virtuel (style PDF24 ou PDFcreator)

[Draculito]

Pour les pilotes d'imprimante il faut aller voir sur le site du constructeur, télécharger et l'installer sur les postes, en principe il n'y a rien a faire au niveau de l'imprimante, (éventuellement activer le protocole) : Nous n'avons que des profils utilisateurs, aucune possibilités d'installer un driver

Faux problème, car il te faut aussi installer le pack office et/ou le runtime, tu installe la police en même temps , l'installation est dans le master déployé sur les postes, c'est un déploiement à distance et nous ne pouvons pas demander d'options à intégrer dans le master

Pour le PDF tu passe par l'export PDF ou par une imprimante virtuel (style PDF24 ou PDFcreator) : le passage par PDF se passe très bien mais ça reste un mode dégradé qui nous fait faire des manipulations supplémentaires, cette base est utilisée plusieurs fois par jour tous les jours.

[rnd]

Je viens de faire un test rapide, un utilisateur standard peux installer une police sur son poste. Pas trouver non plus de restriction possible au niveau des GPO (a mettre au conditionnel cela dit) Pour en avoir le coeur net, fais un test sur un poste.

[Draculito]

Bonjour,

Problème résolu : cela vient des drivers de l'imprimante.

Comme notre service informatique est très aux points, toutes les imprimantes sont installées avec les drivers de Windows de base donc quand je testais avec une autre imprimante sur un autre poste le problème était toujours présent.
J'ai trouvé un poste qui avait le bon driver d'installé et ça fonctionne.

Merci de vos conseils en tout cas.