Impression avec visual basic de visual community 2019
Bonjour,
Je fais des calculs et cherche à sortir les résultats sur imprimante. Apparemment, rien de bien compliqué, sauf que je tombe sur des problèmes de codage de caractères. A tout hasard, je livre ce petit programme et le résultat pour mieux me faire comprendre.
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim ilp As Integer
Dim imp As String
Dim lig As String
Dim WordApp As Object
Dim WordDoc As Object
Dim WordRng As Object
WordApp = CreateObject("Word.Application")
lig = "ééééèèè°°°&&&&######"
ilp = 6
imp = "D:\Gilbert\Temp\Imp.txt"
FileOpen(ilp, imp, OpenMode.Output)
Print(ilp, lig)
FileClose(ilp)
MsgBox(lig)
WordApp.Visible = True
WordDoc = WordApp.Documents.Open(imp)
WordRng = WordDoc.Range
REM Shell("C:\Program Files (x86)\Microsoft Office\Office14\WinWord.exe D:\Gilbert\Temp\Imp")
End Sub
End Class |
Exécution :
鳬鳬韋隹ｰｰ&&&&######
Les caractères accentués sont remplacés par du chinois ! En reprenant manuellement le fichier d'impression, je constate qu'ils ont bien été enregistrés. En lançant WORD manuellement sur ce fichier, une petite fenêtre apparait pour me suggérer d'utiliser un codage WINDOWS, et là ça marche. Mais cette petite fenêtre n'apparait pas quand WORD est lancé par le programme. Merci à ceux qui ont des idées sur la question. Encore une remarque : la ligne Shell placée en remarque pour empêcher son exécution est un essai de lancer brutalement WORD comme si je le faisais manuellement. Là, ça marche, la petite fenêtre apparait.
Merci, et avec toute ma sympathie
