Visual Basic , Créer et Imprimer un fichier TXT

Question

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

Falcon701 · Answer

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.

Visual Basic , Créer et Imprimer un fichier TXT

1 réponse

Votre réponse

Discussions similaires