Bonjour,

J'essaye de traduire le code VB6 suivant en VB.Net en passant de l'objet Printer à l'objet PrintDocument :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
26
27
28
29
 
 
Printer.NewPage
Printer.Orientation = vbPRORLandscape
Printer.FontName = "Courier New"
Printer.FontSize = 12
Printer.FontBold = True
Dim Marge As Byte
Dim long_Tab As Integer
Marge = 3
long_Tab = 134
Printer.Print Tab(Marge); "** TABLEAU RECAPITULATIF **"
 
Printer.FontSize = 9.75
Printer.FontBold = False
Printer.Print Tab(Marge); String$(long_Tab, "-")
Printer.Print Tab(Marge); "| No Lot | No Facture |Date Facture|  Date ARL  | Résultat |  Part Facture  |  Montant |";
Printer.Print Space$(17); "Motif Rejet"; Space$(17); "|"
Printer.Print Tab(Marge); String$(long_Tab, "-")
Dim i As Integer
'Nb_ARL fait appel à une fonction renvoyant un Integer.
For i = 1 To Nb_ARL
    Printer.Print Tab(Marge); "|"; Space$(3); CentreChamp(No_Lot$(i), 3); Space$(2); "|"; Space$(2); CentreChamp(Num_Facture$(i), 9); Space$(1); "|";
    Printer.Print Space$(1); CentreChamp(Date_Facture$(i), 10); Space$(1); "|"; Space$(1); CentreChamp(Date_ARL$(i), 10); Space$(1); "|";
    Printer.Print Space$(1); CentreChamp(Rejet_Acquit$(i), 8); Space$(1); "|"; Space$(1); CentreChamp(Part_Facture$(i), 14); Space$(1); "|";
    Printer.Print Space$(1); CentreChamp(Montant_Facture$(i), 8); Space$(1); "|"; CentreChamp(Motif_Rejet$(i), 45); "|"
Next i
Printer.Print Tab(Marge); String$(long_Tab, "-")
Printer.EndDoc()
Mais mes tentatives ont été infructueuses. Avez-vous un code équivalent ?
Merci d'avance.

René