Pb d edition (utilisation de Rich text box)

Question

Voila j ai un fichier test.txt ke je vou posterais dans l apres midi comme sa vous pourrez tester.
Le pb est que ce fichier est un fichier d edition et je veut le convertir en .rtf de maniere a lui specifier la police car si la police >7 tt se retrouve decallé une fois faxé.
j ai essayer avec se code de passer par une Rich text box de manier a lui specifier la police cela fonctionne a l ecran.
Cependant a la fin du programme il enregistre un fichier filefax.rtf dont la police n est pas mis en memoire c a d qu il met par default 10.
Comment puis je fire il faut vraiment que la police soit inf a 7 ou 8.
je vous mets l exemple de mon code et vous post mon test.txt cette aprem en fichier a telecharger ou en copier collé.
Merci de m aider je pietine Or c est pour mon stage help...
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	est.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

rt.Text = Temp

rtf.SelStart = 0
rtf.setlenght = Len(Temp)

rtf.SelFontName = "Time new roman"
rtf.SelFontSize = 6
rtf.SelBold = True

rtf.SelStart = 1
rtf.sellenght = 0

Temp = rtf.Text

Open "c:\mes documents
ico\FileFax.rtf" For Output As #2
Print #2, Temp

Close #1
Close #2
End Sub^_^

Rastacana · Answer

Voila mon fichier test.txt faite un copier coller dans un .txt
            hihi S.A.                   +----------------------------------------------------+
  Les Pelouses - Verteeuuuhhhh          |          ACCUSE RECEPTION ORDRE (14/05/2002)       |
   00001  Le Monde ( FRANCE )           | Attention !! conserver et contrôler ce document.   |
   Tel : +33 (0)1.83.94.45.94           | Nos bons de livraison ne sont pas chiffrés.        |
   Fax : +33 (0)1.83.95.64.25           +----------------------------------------------------+
 S.A. au capital de 0 F
   blou blou
     TVA : b45 45f 046

                                                       BRICOFER/QUINCAILLERIE MAHIEUX
                                                       Chemin St Celerin
                                                       27110 LE NEUBOURG
  Adresse de livraison :                               
                                                       
  Oro                      
  Chemin St lol                                        Fax  : 01.02.03.04.05
  27110 LE NEUBOURG
  
                                                       Rep. :  00 hic prout

+-------------------------------------------------------------------------------------------------------------------------------+
|    Client        :   000001                                           Référence A      :  RELIQUet gde 25896                  |
|    Ordre hihihi  :   000004  du  09/05/2000                           Référence B      :                                      |
|    Réf. Client   :   111                                              Type de commande :  VST /                               |
|  Observations  :                                                                                                              |
|-------------------------------------------------------------------------------------------------------------------------------|
|  Article | Description                                |  Quantité |  Date livr | Prix Unit |  Pourc. remise   | Montant [FRF] |
|----------+--------------------------------------------+-----------+------------+-----------+------------------+---------------|
| 104000   | JETCO 50 L                                 |      0,00 | 30/05/2000 |   001,00  |                  |      00010,00 |
| 605100   | CENTRALE MIRZA                             |      0,00 | 30/05/2000 |   002,00  |                  |        020,00 |
+--------------------------------------------------------------------------------+------------------------------+---------------|
 Conditions de règlement :  60 JOURS FIN DE MOIS                                 | BASE HORS TAXE    [FRF]      |      00025,00 |
                                                                                 | MONTANT T.V.A.    [FRF]      |        035,00 |
                                                                                 | NET A PAYER       [FRF]      |      00045,00 |
                                                                                 +----------------------------------------------+
+-------------------------------------------------------------------------------------------------------------------------------+
| RAPPEL | BASE HORS TAXE   en FRF |    00 000,00 |MONTANT T.V.A. en FRF |     0 000,00 |   NET A PAYER   en FRF |    00 000,00 |
+-------------------------------------------------------------------------------------------------------------------------------+

  Pour information  :

^_^

Rastacana · Answer

Si vous desirez avoir le fichier test.txt donner moi votre mail et je vous l enverrez.
thx a ce ki m aiderons^_^

Rastacana · Answer

I need help!!!^_^

Pb d edition (utilisation de Rich text box)

3 réponses

Discussions similaires