Objet PrintDocument

Signaler
Messages postés
35
Date d'inscription
samedi 12 septembre 2015
Statut
Membre
Dernière intervention
8 octobre 2016
-
Messages postés
35
Date d'inscription
samedi 12 septembre 2015
Statut
Membre
Dernière intervention
8 octobre 2016
-
Bonjour,
J'essaye de traduire le code VB6 suivant en VB.Net en passant de l'objet Printer à l'objet PrintDocument :

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 pont été infructueuses. Avez-vous un code équivalent ?
Merci d'avance.

Thomas

1 réponse

Messages postés
35
Date d'inscription
samedi 12 septembre 2015
Statut
Membre
Dernière intervention
8 octobre 2016
1
Mais mes tentatives ont été infructueuses. Avez-vous un code équivalent ?
Merci d'avance.

Thomas