1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Creation dun etat imprimable vb6

Creation dun etat imprimable vb6

5/5 (4 avis)

Snippet vu 16 719 fois - Téléchargée 30 fois

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

Ajouter un commentaire Commentaires
hajjoubi
Messages postés
7
Date d'inscription
dimanche 14 octobre 2007
Statut
Membre
Dernière intervention
10 juin 2010
10 juin 2010 à 16:33
JE VEUX SAVOIR COMMENT JE PEUX RENDRE UNE ETAT EN FORME PYSAGE
MERCI
mesbahi66
Messages postés
1
Date d'inscription
samedi 17 juin 2006
Statut
Membre
Dernière intervention
1 mars 2007
1 mars 2007 à 14:59
pour quoi n'as-tu pas laissé une application montrant l'emploi du code ?
cs_cheikhtba
Messages postés
26
Date d'inscription
vendredi 31 décembre 2004
Statut
Membre
Dernière intervention
27 février 2007
26 févr. 2007 à 16:11
Bonjour j'ai testé votre code, la premiere page est affichée mais les suivantes sont pas bien affiché
cs_EBArtSoft
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
 9
27 mars 2006 à 20:47
Ca n'a aucune utilité sans context...

@+
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)