DraaFil
Messages postés264Date d'inscriptionmercredi 16 avril 2003StatutMembreDernière intervention23 mars 2012
-
26 sept. 2006 à 23:58
DraaFil
Messages postés264Date d'inscriptionmercredi 16 avril 2003StatutMembreDernière intervention23 mars 2012
-
29 sept. 2006 à 02:18
Bonjour a tous, voici mon probleme, le code suivant lit mon fichier txt et l'imprime. Mon probleme c'est qu'il sauf la premiere ligne et commence a imprimer la 2ieme ligne. Si vous avez une solution dites la moi.
Merci
DraaFil
Code:
Open Patch For Input As #FileNb
Do While Not EOF(FileNb)
Line Input #FileNb, Vals
If Right$(Vals, 1) = ";" Then
Vals = Left$(Vals, Len(Vals) - 1)
End If
Var = Split(Vals, ";")
'DocTexte = ""
If ChkNom.Value = 1 Then
DocTexte = Var(1) & Replace(Space(12 - Len(Var(1))), " ", Chr(160)) & Var(2)
End If
If ChkPhone.Value = 1 Then
DocTexte = DocTexte & Replace(Space(12 - Len(Var(2))), " ", Chr(160)) & Var(3)
End If
If ChkCell.Value = 1 Then
DocTexte = DocTexte & Replace(Space(15 - Len(Var(3))), " ", Chr(160)) & Var(4)
End If
Printer.Print DocTexte
NbLigne = NbLigne + 1
'Adresse = ""
If ChkAdresse.Value = 1 Then
Adresse = " " & Var(5)
Printer.Print Adresse
NbLigne = NbLigne + 1
End If
If NbLigne = 44 Then
Printer.Print
Call PiedPage
page = page + 1
Printer.NewPage
NbLigne = 0
Call EnTetePage
End If
xav0
Messages postés20Date d'inscriptionsamedi 23 septembre 2006StatutMembreDernière intervention10 octobre 2007 28 sept. 2006 à 07:29
Je pense que c'est l'instruction Printer.Line (0, 40)-(210, 40) (vers la fin) qui pose problème : elle finit en x = 210 et le texte qui suit est imprimé à partir de là. En ajoutant Printer.CurrentX = 20 juste après, la première ligne devrait redevenir visible.
DraaFil
Messages postés264Date d'inscriptionmercredi 16 avril 2003StatutMembreDernière intervention23 mars 2012 27 sept. 2006 à 23:36
j'ai fais divers test et je me suis rendu compte que le probleme est dans ma fonction EnTetePage()(quand je la call pas , toute mes valeurs sont la). Si vous trouver dis-le moi :p
merci
Private Function EnTetePage()
Dim EnTete As String
Dim imgLogo As StdPicture
Dim CheminLogo As String
'INITIALISATION DE L'IMAGE
CheminLogo = App.Path & "\logo.jpg"
Set imgLogo = LoadPicture(CheminLogo)
EnTete = ""
If ChkNom.Value = 1 Then
EnTete = "NOM"
End If
If ChkPhone.Value = 1 Then
EnTete = EnTete & " TÉLÉPHONE"
End If
If ChkCell.Value = 1 Then
EnTete = EnTete & " CELLULAIRE"
End If
If ChkAdresse.Value = 1 Then
EnTete = EnTete & " ADRESSE"
End If
Printer.Print EnTete
'Printer.Print "NOM TÉLÉPHONE CELLULAIRE ADRESSE"
Printer.Line (0, 40)-(210, 40)
Printer.CurrentY = 60
Printer.FontSize = 12
Printer.FontBold = False 'gras
End Function