Creation dun etat imprimable vb6
Soyez le premier à donner votre avis sur cette source.
Snippet vu 16 498 fois - Téléchargée 29 fois
Contenu du snippet
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.
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
A voir également
- Pcb création
- Visual Basic / VB.NET : Creation de gadget en vb6 - CodeS SourceS - Guide
- Delphi / Pascal : Pcb design logiciel de création de circuit imprimé et accessoirement - Guide
- Problème de lecture seule à la création d'un bouton ✓ - Forum - Visual Basic
- Création d'état Crystal Report ✓ - Forum - C# / .NET
- Les états sous VB6 ✓ - Forum - Visual Basic 6
MERCI
- Messages postés
-
4525
- Date d'inscription
- dimanche 29 septembre 2002
- Statut
- Modérateur
- Dernière intervention
- 22 avril 2019
9@+
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.