Visual Basic , Créer et Imprimer un fichier TXT

Falcon701 Messages postés 2 Date d'inscription lundi 8 mars 2010 Statut Membre Dernière intervention 9 mars 2010 - 8 mars 2010 à 15:50
Falcon701 Messages postés 2 Date d'inscription lundi 8 mars 2010 Statut Membre Dernière intervention 9 mars 2010 - 9 mars 2010 à 13:48
Bonjour

Voila je créé (enfin j'essai...) un fichier TXT avec divers données donc jusque la j'y arrive mais je voudrai l'imprimer une foi le fichier complété.

un truc du genre "Print"

voila mon Code :

Public Sub TICKET()

Dim fsys As Object
Dim monfic As Object
Dim Mytime As String * 20
Dim Mydate As String * 20

Mytime = Time
Mydate = Date

ID_BADGE = gTagDb.GetTag("ID_BADGE").Value
ID_CHAUFFEUR = gTagDb.GetTag("BADGE_NOM").Value
ID_PLAQUE = gTagDb.GetTag("BADGE_PLAQUE").Value
ID_CLIENT = gTagDb.GetTag("BADGE_CLIENT").Value
ID_PRODUIT = gTagDb.GetTag("BADGE_FORMULE").Value
ID_CLIENT_NOM = gTagDb.GetTag("CLIENT_N").Value
ID_CLIENT_CHA = gTagDb.GetTag("CLIENT_C").Value
ID_CAM_PTAC = gTagDb.GetTag("CAM_PTAC").Value
ID_CAM_PV = gTagDb.GetTag("CAM_PV")
ID_CAM_T = gTagDb.GetTag("CAM_T")


Set fsys = CreateObject("Scripting.FileSystemObject")
Set monfic = fsys.CreateTextFile("c:\fichier.txt")



With monfic 'Pour écrire dans le fichier texte

.writeline "Société bidon "
.writeline "12 rue par exemple"
.writeline "------------------"
.writeline "DATE : " & Mydate & "
.writeline "TRANSPORTEUR : " & ID_CAM_T
.writeline "Nom chauffeur : " & ID_CHAUFFEUR
.writeline "Véhicule : " & ID_PLAQUE
.writeline "PTAC : " & ID_CAM_PTAC & " KG"
.writeline "PV : " & ID_CAM_PV & " KG"
.writeline "------------------"
.writeline "Client : " & ID_CLIENT_NOM
.writeline "Chantier : " & ID_CLIENT_CHA
.writeline "Produit : " & ID_PRODUIT
.writeline "Quantitée : " & "27300" & " KG"
.writeline "PTR : " & "39980 KG"
.writeline "------------------"

End With

Msg = "Écriture réussie dans fichier.txt"


End Sub


il faudrai aussi changer la taille d'écriture (8)
j'ai essayer avec monfic.font.size mais sa marche pas

1 réponse

Falcon701 Messages postés 2 Date d'inscription lundi 8 mars 2010 Statut Membre Dernière intervention 9 mars 2010
9 mars 2010 à 13:48
bon alors voila j'ai trouver un moyen complètement archaïque pour lancer l'impression

imprim = Shell("notepad.exe /p ""c:\fichier.txt""")


sa marche.

mais reste encore a trouver un solution pour configurer la taille de la police car je voudrais que sa imprime en petit et non pas en taille par défaut.
0