Discussion :

[renearnaud2]

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é

[wallace1]

Bonsoir,

Il faudrait déjà savoir si tu as instanciés ton objet Printer et surtout à quel endroit ....... Pour le reste on feuillette un peu la bible :

https://msdn.microsoft.com/fr-fr/lib...v=vs.110).aspx


A+

[Invité]

Bonjour

As-tu lu ce tuto : http://bidou.developpez.com/tutoriel...et/impression/

Philippe

[renearnaud2]

Bonjour,

Merci pour vos réponse et les liens correspondants.
Je vais les consulter. Je vais approfondir ma lecture sur l'objet PrintDocument que j'avais déjà survolé.
Si le pb de l'impression des fichiers est bien traité, celui des chaînes de caractères simples me le semble beaucoup moins. Et c'est là mon souci.

René