Creation dun etat imprimable vb6

Commenter

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.

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

S'inscrire maintenant

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.

Du même auteur (elisabeth_nov)