Objet PrintDocument

Messages postés
35
Date d'inscription
samedi 12 septembre 2015
Dernière intervention
8 octobre 2016
- - Dernière réponse : Thomas13012
Messages postés
35
Date d'inscription
samedi 12 septembre 2015
Dernière intervention
8 octobre 2016
- 8 oct. 2016 à 20:08
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
Afficher la suite 

Votre réponse

1 réponse

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

Thomas
Commenter la réponse de Thomas13012

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.