5/5 (4 avis)
Snippet vu 16 719 fois - Téléchargée 30 fois
'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
10 juin 2010 à 16:33
MERCI
1 mars 2007 à 14:59
26 févr. 2007 à 16:11
27 mars 2006 à 20:47
@+
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.