Imprimer sous forme de tableau (msflexgrid entre autre)

Soyez le premier à donner votre avis sur cette source.

Vue 20 021 fois - Téléchargée 3 671 fois

Télécharger le projet
Commenter

Description

Voici un code pour vous simplifier la vie quand vous imprimer. La commande pour imprimer est printer.print, mais elle contient quelques variantes. Donc si vous avez des questions à me poser, n'hésitez surtout pas, je tenterai d'y répondre au meilleurs de mes compétances.

Source / Exemple : 


'À mettre dans un module
Type Enregistrement
Solde As Currency
Retrait As Currency
Dépot As Currency
Dates As Date
Times As String * 8
Nip As String * 10
Nom As String * 30
End Type

Public Varenreg As Enregistrement
Public NombreEnreg As Integer
'Ce code n'a rien à voir pour l'impression directement. La seule utilité de ce module
'est de créer et déclarer ma variable "varenreg" pour ne pas créer d'erreur lors de
'l'impression. NombreEnreg sert à définir le nombre d'enregistrement dans le fichier

Private Sub Form_Load()
'Détermine l'endoit où est le fichier à ouvrir (qui contient les données à imprimer)
strFichier = App.Path & "\Exemple.dat"
'Ouvre le fichier
Open strFichier For Random As #1 Len = Len(Varenreg)
End Sub

'À mettre dans un bouton ou autre
Private Sub cmdImprimer_Click()
'Détermine la grosseur du titre
Printer.FontSize = 20
'Imprime le titre
Printer.Print "Historique des transactions"
'Je mets deux print pour que l'imprimante passe 2 lignes
Printer.Print
Printer.Print
Printer.FontSize = 12
'Je mets l'écriture en gras
Printer.FontBold = True
'En metant des vigules, je dis à l'imprimante de changers de "colonne" et de passer à l'autre
'Quand je ne mets pas de virgules, l'imprimante passe à une autre ligne
Printer.Print "Date", "Heure", "Dépots", "Retraits", "Solde"
Printer.FontBold = False

'Je détermine le nombre d'enregistrement que j'ai dans mon fichier
NombreEnreg = LOF(1) / Len(Varenreg)

For i = 1 To NombreEnreg

Get #1, i, Varenreg
'J'imprime la date et l'heure de la première transaction
'"Varenreg" est le de ma variable que j'ai crée
Printer.Print Varenreg.Dates, Varenreg.Times,
 
'Si un dépôt à été effecuté, l'imprimante l'imprime sinon
'elle laisse l'espace vide et continue

If Varenreg.Dépot <> 0 Then
Printer.Print Format(Varenreg.Dépot, "##,##0.00$"),
Else
Printer.Print "",
End If

'Si un retrait à été effecuté, l'imprimante l'imprime sinon
'elle laisse l'espace vide et continue
If Varenreg.Retrait <> 0 Then
Printer.Print Format(Varenreg.Retrait, "##,##0.00$"),
Else
Printer.Print "",
End If

'L'imprimante imprime le solde
Printer.Print Format(Varenreg.Solde, "##,##0.00$")

If i = NombreEnreg Then GoTo fin
'L'imprimante passe à l'autre rangé
Next i
fin:
Printer.EndDoc
End Sub

Conclusion :


Si vous avez plusieurs imprimantes et que vous ne voulez pas que le programme imprime sur votre imprimante par défaut, il faudra donc que vous mettiez le OCX "Microsoft Common Dialog Control 6.0" et que vous insériez au tout début du code "dans le bouton de commance" (lenomducommondialog.ShowPrinter). Vous pourrez alors choisir l'imprimante de votre choix.
Télécharger le projet

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Signaler
cs_DETCH
Messages postés
4
Date d'inscription
dimanche 6 juillet 2003
Statut
Membre
Dernière intervention
11 janvier 2004
 -
Un petit programme rendu très simple par l'habilleté de son auteur. De plus, il est très bien expliqué. Merci pour ce code qui m'a formé à mes premières impressions en quelques minutes seulement. Bravo et merci.
Signaler
dialsympa23
Messages postés
1
Date d'inscription
jeudi 13 février 2003
Statut
Membre
Dernière intervention
25 février 2003
 -
je n'arrive pas à remplir ma MSHFlexgrid manuellement ou avec la fonction random. Quelqu'un pourrait-il m'aider?
Signaler
cs_Francki
Messages postés
23
Date d'inscription
mercredi 19 décembre 2001
Statut
Membre
Dernière intervention
21 août 2008
 -
Dino, je ne suis pas sur, mais il existe surement une méthode. Il y a toujours une façon de faire n'est-ce pas ? Malheureusement, je ne la connais toujours pas.

Francki
Signaler
cs_Dino
Messages postés
87
Date d'inscription
dimanche 16 décembre 2001
Statut
Membre
Dernière intervention
4 septembre 2004
 -
Cool !!!
Est-il possible de rajouter des traits pour les lignes et les colonnes ?
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 (cs_Francki)