Supprimer les marges lors de l enregistrement en rtf
Rastacana
Messages postés
55
Date d'inscription
vendredi 20 octobre 2000
Statut
Membre
Dernière intervention
19 juin 2002
-
30 mai 2002 à 11:29
Rastacana Messages postés 55 Date d'inscription vendredi 20 octobre 2000 Statut Membre Dernière intervention 19 juin 2002 - 31 mai 2002 à 10:07
Rastacana Messages postés 55 Date d'inscription vendredi 20 octobre 2000 Statut Membre Dernière intervention 19 juin 2002 - 31 mai 2002 à 10:07
A voir également:
- Supprimer les marges lors de l enregistrement en rtf
- Sql recuperer dernier enregistrement - Forum SQL
- Vba supprimer une feuille ✓ - Forum VBA Office (Excel, Word ...)
- Afficher le dernier enregistrement d'une table SQL ✓ - Forum PHP
- Sql supprimer les doublons ✓ - Forum SQL
- Python supprimer les espaces ✓ - Forum Python
1 réponse
Rastacana
Messages postés
55
Date d'inscription
vendredi 20 octobre 2000
Statut
Membre
Dernière intervention
19 juin 2002
31 mai 2002 à 10:07
31 mai 2002 à 10:07
Le pire c est que sa marche meme pas votre solution.
Losrque je reouvre mon fichier .rtf les marges sont a 2.5 pkoi?
Help th bouley plz
Private Sub Command1_Click()
'Déclaration des variables locales
Dim ficprinc As String, Temp As String, Temp2 As String, msg3 As String, Ligne As String, Namecie As String, Temp1 As String
Dim Nbfic As Integer, Cpteur As Integer, Cptlig As Integer, x As Integer
Dim Ind As Long, Ind2 As Long, Numfic As Long
'j ai copier coller toute mes variable komme un bourrin elle ne sont pas toute util
ficprinc = "c:\mes documents\Nico\test.txt"
Open ficprinc For Input As #1
Do Until EOF(1)
Line Input #1, Ligne
Temp = Temp + Ligne
Temp = Temp + Chr$(13) + Chr$(10)
Loop
rtf.Text = Temp
rtf.SelStart = 1
rtf.SelLength = Len(Temp)
rtf.SelFontName = "Courier New"
rtf.SelFontSize = 7
rtf.SelBold = True
selrightident = 0
SelIndent = 0
rtf.SelStart = 0
rtf.SelLength = 0
Open "c:\mes documents\nico\FileFax.rtf" For Output As #2
Print #2, rtf.TextRTF
Close #1
Close #2
End Sub
^_^
Losrque je reouvre mon fichier .rtf les marges sont a 2.5 pkoi?
Help th bouley plz
Private Sub Command1_Click()
'Déclaration des variables locales
Dim ficprinc As String, Temp As String, Temp2 As String, msg3 As String, Ligne As String, Namecie As String, Temp1 As String
Dim Nbfic As Integer, Cpteur As Integer, Cptlig As Integer, x As Integer
Dim Ind As Long, Ind2 As Long, Numfic As Long
'j ai copier coller toute mes variable komme un bourrin elle ne sont pas toute util
ficprinc = "c:\mes documents\Nico\test.txt"
Open ficprinc For Input As #1
Do Until EOF(1)
Line Input #1, Ligne
Temp = Temp + Ligne
Temp = Temp + Chr$(13) + Chr$(10)
Loop
rtf.Text = Temp
rtf.SelStart = 1
rtf.SelLength = Len(Temp)
rtf.SelFontName = "Courier New"
rtf.SelFontSize = 7
rtf.SelBold = True
selrightident = 0
SelIndent = 0
rtf.SelStart = 0
rtf.SelLength = 0
Open "c:\mes documents\nico\FileFax.rtf" For Output As #2
Print #2, rtf.TextRTF
Close #1
Close #2
End Sub
^_^