ce code est le code de création dun etat imprimable permettant dafficher
les employes contenus dans une base mysql et dimprimer le numero demploye
en code barre. pour le code barre, il faut posseder le ttf code 39.
Source / Exemple :
'connection a la base de donnees
'Initialisation
Chaine = "driver={MySQL ODBC 3.51 Driver};" _
& "database=nom de la base;" _
& "server=serveur;" _
& "uid=utilisateur;" _
& "pwd=mot de passe;" _
& "port=;" _
& "option=;" _
& "stmt=;"
'Connexion à MySQL
With Conn
.ConnectionString = Chaine
.Open
End With
'creation de letat
Dim ligne As String
Dim X, Y As Integer
'On configure l'impression
'Unité de mesure en millimètres
Printer.ScaleMode = vbMillimeters
'Format A4
Printer.PaperSize = vbPRPSA4
'Orientation Portrait
Printer.Orientation = vbPRORPortrait
'Nom de la police
Printer.FontName = "Arial"
Printer.Font.Italic = False
'Impression de l'entête de la page
'On imprime la date
Printer.FontSize = 10
Printer.CurrentX = 3
Printer.CurrentY = 2
Printer.Print Date
'On imprime le titre de la page
Printer.FontSize = 18
Printer.CurrentX = 70
Printer.CurrentY = 2
Printer.Print "Code Barre des employés"
'permet de contenir les données
With rec
.ActiveConnection = Conn
.Source = "select * from employe;"
.Open
End With
Y = 20 'place le curseur
While Not (rec.EOF)
Printer.CurrentX = 20
Printer.CurrentY = Y
Printer.FontSize = 10
Printer.FontName = "Arial"
Printer.Print rec("nomEmp") & " " & rec("prenomEmp") 'concatene le nom et le prenom
Printer.CurrentX = 100
Printer.CurrentY = Y
Printer.FontSize = 24
Printer.FontName = "code-39"
Printer.Print "*" & rec("numEmp") & "*" 'en code 39 le signe de debut et de fin du code barre est *
rec.MoveNext 'permet d'aller sur le champs suivant dans la table employé
Y = Y + 12 'on réinitialise la position du curseur
If Y > 280 Then
Printer.NewPage 'appelle une nouvelle page
Y = 20
End If
DoEvents
Wend
Printer.EndDoc
rec.Close
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.