Creation dun etat imprimable vb6

Soyez le premier à donner votre avis sur cette source.

Snippet vu 16 334 fois - Téléchargée 28 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.

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

Ajouter un commentaire

Commentaires

Messages postés
7
Date d'inscription
dimanche 14 octobre 2007
Statut
Membre
Dernière intervention
10 juin 2010

JE VEUX SAVOIR COMMENT JE PEUX RENDRE UNE ETAT EN FORME PYSAGE
MERCI
Messages postés
1
Date d'inscription
samedi 17 juin 2006
Statut
Membre
Dernière intervention
1 mars 2007

pour quoi n'as-tu pas laissé une application montrant l'emploi du code ?
Messages postés
26
Date d'inscription
vendredi 31 décembre 2004
Statut
Membre
Dernière intervention
27 février 2007

Bonjour j'ai testé votre code, la premiere page est affichée mais les suivantes sont pas bien affiché
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
8
Ca n'a aucune utilité sans context...

@+

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.