Tutoriel pour apprendre l’impression sous Visual Basic

L'IMPRESSION SOUS VISUAL BASIC 6.0

I. L'objet printer minus

Peu d'objet de visual basic crée une telle répulsion que l'objet printer. De par le fait de sa simplicité, et parce que l'impression est véritablement propre à chaque application, on ne trouve que très peu d'exemple d'utilisation de cet objet. Dans l'imaginaire, l'objet printer évoque des codes interminables, impossible à maintenir et demandant des heures de mises au point. Ceci est tellement vrai que l'on rencontre beaucoup de contrôles payants, souvent assez chers, censés simplifier la tâche.

Quelques utilisateurs ont contourné le problème en détournant le DataReport pour réaliser leurs impressions.

Je vais tenter de démontrer dans cet article, que la réputation sulfureuse de cet objet est infondée et qu'il s'agit d'un objet puissant, aisé à utiliser, permettant de réaliser des impressions de grandes qualités.

II. J'IMPRIME VERS…

Avant de pouvoir imprimer, il va falloir utiliser un outil pour configurer l'imprimante et l'impression. Bien que les méthodes soient nombreuses, je préconise d'utiliser la boite de dialogue d'impression des CommonDialogs. Elle est simple à utiliser, et couvre largement les besoins classiques. A noter toutefois qu'il faut utiliser la propriété Flags pour la configurer au mieux.

Quelques points à noter toutefois

•    Il faut que la propriété PrinterDefault soit vraie pour que le choix de l'utilisateur se répercute correctement.

•    Changer l'imprimante par défaut, n'est valide que pour la durée du programme.

•    On valorise la propriétés Flags=&H40& pour appeler la boite de configuration de l'imprimante.

Comme il existe beaucoup d'exemples pour les CommonDialogs, je n'irai pas plus loin.

III. L'objet printer à terre

En lui-même, cet objet est très simple. Il est membre de la collection Printers, qui représente l'ensemble des imprimantes disponibles sur le système.

Regardons d'abord ses propriétés en les rangeant en deux catégories. Celles que l'on utilise en configuration, et celles dont on se sert au cours de l'impression.

La notation (RcdImp) signifie qu'on valorise la propriété en général lors de la récupération de la boite de dialogue impression. Cette liste n'est pas exhaustive.

N.B : Dans cet article nous utiliserons le terme méthode graphique pour toutes les impressions qui ne sont pas du texte. (Ex : Circle, Line, PaintPicture…).

Configuration

•    ColorMode : Défini si une imprimante couleur imprime ou non en couleur.

•    Copies (RcdImp) : Nombre de copies

•    Duplex : Impression recto verso

•    Height, Width : Servent à connaître les dimensions de la feuille. Utilisez les seulement en lecture, afin de ne pas modifier la propriété PaperSize implicitement, ce qui risquerait de provoquer une erreur.

•    Orientation (RcdImp) : Portrait ou paysage.

•    PaperSize : Taille du papier. Dans cet article, tout sera construit autour du format A4.

•    PrintQuality : Qualité de l'impression, va de brouillon à haute.

•    ScaleMode : Unité de l'échelle. Par habitude j'utilise toujours 6 - Millimeter. Cette propriété est très importante, car elle va permettre de contrôler la position exacte de l'impression. Il est donc fortement conseillé de la définir au début et de ne plus la modifier.

•    ScaleLeft, ScaleTop, ScaleHeight, ScaleWidth, sont des propriétés utilisées pour connaître la zone imprimable, comme nous le verrons dans les exemples.

Impression

•    DrawMode, DrawStyle, DrawWidth sont des propriétés de traçage des méthodes graphiques telles que l'épaisseur du trait, pointillés etc

•    FillColor et FillStyle sont des propriétés de remplissage des méthodes graphiques.

•    Font, FontBold, FontItalic, FontStrikethru, FontUnderline, FontSize, FontName sont les propriétés de police du texte.

•    CurrentX, CurrentY sont les propriétés de position d'impression. Elles définissent le coin supérieur gauche du début de l'impression. Elles sont fondamentales à l'écriture d'un gestionnaire d'impression réussie, mais j'y reviendrai largement dans la deuxième partie. CurrentX augmente de la gauche vers la droite, et CurrentY du haut vers le bas.

Nous allons voir maintenant les méthodes, celles ci s'utilisent toujours au cours de l'impression.

•    printer.Circle [Step] (x, y), radius, [color, start, end, aspect]  Trace un cercle, un arc de cercle ou une ellipse. Le mot clé Step précise si les coordonnées du centre sont relatives (à la position currentX, currentY) ou absolu ; color permet de forcer une couleur différente de celle définit dans FillColor ; start, endservent pour les arcs, et aspect pour définir s'il s'agit d'un cercle ou d'une ellipse.

•    printer.Line [Step](x1, y1)[Step] - (x2, y2), [color],[B][F] Trace une ligne ou un rectangle. Le premier mot clé Step définit si les coordonnées (x1, y1) sont relatives au point (currentX, currentY) le deuxième si les coordonnées (x2, y2) sont relatives au point (x1, y1). [B] annonce le tracé d'un rectangle en fonction des coordonnées. [F] annonce que ce rectangle est rempli par la même couleur que le contour. S'il est omis, le rectangle est rempli selon les valeurs des propriétés FillStyle et FillMode. N.B : Les propriétés CurrentX et currentY prennent les coordonnées (x2, y2) après le tracé de la ligne.

•    printer.PSet          [Step](x,        y),        [color]

Trace un point dont la taille est définit par la propriété DrawMode.

•    printer.PaintPicturepicture, x, y Imprime un graphique. Picture doit correspondre à la propriété picture d'un PictureBox, d'une form ou d'un objet particulier. (Nous verrons cela plus loin).

•    TextHeight et TextWidth permettent de déterminer la hauteur ou la largeur dans le système d'unité ScaleMode. Elle attend la chaîne à imprimer en paramètre.

•    EndDoc met fin au travail d'impression et envoie le document vers le périphérique.

•    KillDoc annule l'impression en cours, rien n'est envoyé au périphérique.

•    NewPage avance jusqu'à la page suivante de l'imprimante et redéfinit la position d'impression dans l'angle supérieur gauche de la nouvelle page, elle incrémente de 1 la propriété Page.

Attention après l'appel de méthode, il n'est plus possible de modifier ou de revenir sur la page précédente.

•    Scale, ScaleX et ScaleY permettent de redéfinir le système d'échelle.

Et enfin la méthode Print. Elle est bizarrement documentée. Pour trouver comment elle fonctionne, il faut rechercher "printer.print" dans l'aide car vous ne la trouverez pas dans les méthodes de l'objet printer(??). Pour vous évitez cette recherche son modèle est le suivant         : [object.]Print [outputlist] [{ ; | , }] outputlist contient donc une liste de chaînes séparées par des' ,' ou des ';' . Sachez enfin qu'elle provoque une erreur si elle est placée dans un bloc With.

L'objet                 printer                ne                 gère                pas                  d'événement.

Comme vous le voyez, il n'y a pas beaucoup de propriétés et de méthodes, et pourtant nous allons réaliser des impressions complètes avec uniquement cet objet.

IV. LE SYSTEME DE COORDONNEES.

Il faut connaître quelques astuces pour ne pas se faire berner par l'objet printer.

IV-A. LES MARGES

Tout d'abord, une imprimante ne peut pas imprimer partout sur la feuille. Elle possède un système de marge propre à chaque imprimante. Ceci fait que le point de coordonnées (0,0)

de l'imprimante n'est pas celui de la feuille. Pour déterminer par exemple la coordonnée absolue du point(0,0) il faut faire :

Xdemar=(Printer.Width-Printer.ScaleWidth)/2

Ydemar=(Printer.Heigth-Printer.ScaleHeigth)/2

On a toujours intérêt à définir une marge supérieure à la "marge imprimante". Par habitude j'utilise toujours dans mes impressions portrait des marges gauche/droite égales à 20 (en mm) et des marges haute/basse égales à 15. 

Donc dans mon programme on trouvera toujours le code

Printer.TrackDefault = True

Printer.ScaleMode = 6

Printer.Orientation = 1

Printer.PaperSize = 9

Printer.PrintQuality = -4

Printer.ColorMode = 1

DecalX =20-(Printer.Width-Printer.ScaleWidth)/2 DecalY =15-(Printer.Heigth-Printer.ScaleHeigth)/2

IV-B. L'IMPRESSION D'UNE CHAINE

Ce qui m'a le plus perturbé, la première fois que j'ai écrit un gestionnaire d'impression, c'est la façon dont fonctionne les propriétés currentX et currentY. En effet, globalement cela fonctionne comme une machine à écrire.

L'impression d'une ligne ou d'un cadre donne à ces propriétés les valeurs de leurs points de fin             (x2,      y2). L'impression d'une chaîne dépend de la syntaxe. Pour faire simple je vais utiliser un exemple :

Si j'écris

que le simple fait d'encadrer un texte juste après l'avoir écris ressemble rapidement à un travail de polytechnicien.

IV-C. LE CHANGEMENT DE PAGE

L'impression d'une chaîne en dehors des marges intrinsèques de l'objet printer déclenche l'appel de la méthode NewPage, et tout ou partie de la chaîne sera imprimée sur une nouvelle page.

Par contre, pour les méthodes graphiques, tout ce qui sortira des marges pourra être considéré comme définitivement perdu. Nous verrons plus loin comment éviter ces inconvénients.

IV-D. LA VALORISATION DES PROPRIETES

Les méthodes graphiques ainsi que la méthode Print utilise les valeurs des propriétés pour définir leurs impressions. Ainsi si dans mon code je place

chaque appel suivant de la méthode Print imprimera la chaîne en police de taille 15. Si ceci se voit vite lors du test d'impression, il peut y avoir des effets pervers si on cherche à connaître les dimensions de la chaîne avant de changer la taille de la police. Par exemple le code suivant est différent selon que je mets ou non en commentaire la ligne

fonctionnements dont il faudra se méfier. Nous allons donc aborder dans cette seconde partie les façons de programmer efficacement cet objet

V. L'IMPRIME A L'EMPLOI

Remarque : n'oubliez pas de placer vos feuilles et PictureBox dans le même système d'unités que votre imprimante, afin de pas compliquer à loisir les conversions d'échelle.

V-A. UTILISATION GENERALE

V-A-1. LE CENTRAGE

Pour centrer le texte sur la feuille ou dans un cadre, il suffit d'une simple opération mathématique. Par exemple pour centrer sur la feuille horizontalement

Printer.CurrentX=Printer.Width/2 - Printer.TextWidth(Machaine)/2

V-A-2. ENCADRER UN TEXTE

Comme je l'ai dit plus haut, il vaut mieux éviter d'encadrer à la volée, mais pour les passionnés, sachez que la syntaxe est la suivante (pour un cadre situé à 1.5 mm autour du texte) :

machaine = "Essai d'encadrement"

Printer.Print machaine;

Step(-Picture1.TextWidth(machaine) - 1.5, -1.5)Step(Picture1.TextWidth(machaine) + 3,

Printer.TextHeight(machaine) + 3), , B

Vous noterez juste l'emploi des deux mots clés Step afin de travailler en coordonnées relatives.

V-A-3. DESSINER UNE CASE COCHEE

Là c'est très simple si on utilise pleinement le "dynamisme" des propriétés CurrentX et CurrentY :

V-A-4. INSERER UNE IMAGE

Le plus simple est que cette image se trouve dans un contrôle image (pas forcément visible d'ailleurs) sur la feuille :

Printer.PaintPicture Image1.Picture, PositionX , PositionY

A noter que la position doit être en coordonnées absolues.

V-B. L'IMPRESSION GEOMETRIQUE

Celle-ci est la plus simple. C'est une version un peu plus élaborée de la méthode PrintForm. Elle convient particulièrement pour les impressions d'un formulaire sur une page.

L'idée générale est de placer sur sa feuille, l'ensemble des contrôles qui devront être imprimés, dans une zone virtuelle (ou un picturebox). Eventuellement, pour gagner en qualité, on donnera un rapport hauteur/largeur à cette zone sensiblement égale à celui d'une page A4 dans le sens de l'orientation désiré (le rapport hauter/largeur d'une feuille A4 en

mode portrait est de  ) On calcule dans le code les coefficients d'expansions de cette zone vers la zone imprimable (et non vers la feuille) en X et en Y, par exemple :

FacX=(Printer.Width - 2*MargeX)/LargeurZone

FacY=(Printer.Heigth - 2*MargeY)/HauteurZone

On utilisera le plus petit de ces facteurs pour l'appliquer à la police.

Après cela on va parcourir la collection Controls de la feuille, tester la position ou le container, puis le type de contrôle afin de définir les actions.

Remarque : Placer ces contrôles dans un PictureBox simplifie la mise en place des contrôles sur la feuille, n'oubliez pas de mettre sa propriété ScaleMode égale à celle de l'imprimante. N'utilisez surtout pas de Frame, l'ensemble des coordonnées et dimensions de vos contrôles repasserait en twips.

Cette technique convient mieux à une impression en mode paysage, qui est le mode écran.

Exemple                                                                                                                               :

Ma zone imprimable en paysage fait 257*180. Je place mes contrôles à imprimer dans un PictureBox. J'ai besoin qu'il est une largeur de 200, je lui donne une hauteur de 140. Bien sur, je respecte la proportion dans ce cas ce qui me permettra de n'utiliser qu'un seul facteur.

Dans cet exemple je complique pour montrer la conversion, car vous n'êtes pas sans remarquer que mon PictureBox tiendrait sur la feuille avec un facteur 1. Dans ma feuille je déclare une constante de conversion

Private Const FacC! = 1.285 'facteur de conversion

Et la fonction Impression sera

Private Sub Impression()

Dim DecalY as single, DecalX as Single, ContImprim as Control

Printer.ScaleMode = 6

Printer.Orientation = 2

Printer.PaperSize = 9

Printer.PrintQuality = -4

Printer.ColorMode = 1

DecalX = 20 - (Printer.Width - Printer.ScaleWidth) / 2

DecalY = 15 - (Printer.Heigth - Printer.ScaleHeigth) / 2

'utilisez le décalage pour que le point(0,0) du PictureBox soit le point (0,0) de la zone imprimable For Each ContImprim In Me.Controls

        If TypeOf ContImprim Is Label Then

                With Printer

                        .FontName = ContImprim.FontName

                        .FontBold = ContImprim.FontBold

                        .FontSize = Int(FacEch * ContImprim.FontSize)

                        .CurrentX = * FacEch

                        .CurrentY = * FacEch

                End With

                Printer.Print ContImprim.Caption

        ElseIf TypeOf ContImprim Is TextBox Then

                With Printer

                        .FontName = ContImprim.FontName

                        .FontBold = ContImprim.FontBold

                        .FontSize = Int(FacEch * ContImprim.FontSize)

                        .CurrentX = * FacEch

                        .CurrentY = * FacEch

                End With

                Printer.Print

                ElseIf TypeOf ContImprim Is CheckBox Then

                                ( * FacEch,

* FacEch)-Step(7, 7), , B

                        If ContImprim.Value = 1 Then

                                ( * FacEch,

* FacEch)-Step(7, 7)

                                   ((     *

FacEch) + 7, * FacEch)-Step(-7, 7)

                        End If

                        With Printer

                                .FontName = ContImprim.FontName

                                .FontBold = ContImprim.FontBold

                                  .FontSize = Int(ContImprim.FontSize *

FacEch)

                                 .CurrentX = * FacEch +

10

                                .CurrentY = * FacEch + 2

                        End With

                        Printer.Print ContImprim.Caption

                        ElseIf TypeOf ContImprim Is MSFlexGrid Then

                                With Printer

                                           .CurrentX = *

FacEch

                                            .CurrentY = *

FacEch

                                End With

                                Printer.PaintPicture

ContImprim.Picture, Printer.CurrentX, Printer.CurrentY

                        End If

Next

End sub

Bien sûr, il s'agit d'un exemple pour quelques types de contrôles, mais le principe peut facilement s'étendre. Pour les polices, n'oubliez pas de prendre des polices TrueType et arrondissez le résultat.

V-C. IMPRESSION D'UN LISTBOX.

Nous allons prendre le cas d'une liste à sélection unique, peu importe si tous ses éléments sont visibles.

Dim RappL As Single, AligH As Single, MaChaine As String, LigSel As Integer, compteur As Long

AligH = Printer.CurrentX

For compteur = 0 To List1.ListCount - 1

        If List1.Selected(compteur) Then 

                LigSel = compteur

                MaChaine = (compteur)

                   RappL =Iif (Printer.TextWidth(MaChaine) > RappL,

Printer.TextWidth(MaChaine), RappL)

                Printer.Print MaChaine

                Printer.CurrentX = AligH

Next compteur

'encadrement de la liste

    Step(-1,     0)-Step(RappL     +     2,     -1     *

Printer.TextHeight(String$(List1.ListCount - 1, vbCrLf))), , B

'sur lignage de la sélection

Step(-1 * RappL - 2, Printer.TextHeight(String$(LigSel, vbCrLf)))-Step(RappL + 2, -1 *

Printer.TextHeight("")), QBColor(8), B

V-D. IMPRESSION DE LONGUES CHAINES

En général, les chaînes sont coupées dans les contrôles par VbCrLf et l'impression se passe bien. Mais par exemples, lors de l'impression d'une chaîne qui n'apparaît pas sur le formulaire, ou dans un TextBox multilignes, ce caractère n'est pas présent dans la chaîne. L'imprimante risque alors de déborder du cadre ou de la feuille. On utilise alors la fonction suivante          pour     découper          la         chaîne. N.B : Cette fonction gère le cas de très longues chaînes, elle peut être optimisée si l'on est sûr de ne jamais rencontrer de chaîne de plus de 3 ou 4 lignes.

De manière générale il est bon de traiter ces chaînes de façon à ne pas laisser dedans de caractères "VbCrLf" ce qui ramènerait currentX contre la marge de gauche, sauf si c'est évidemment le but rechercher.

V-E. IMPRIMER UN RECORDSET OU UNE GRILLE

Je regroupe ces deux cas car ils sont identiques. En effet un recordset peut être imaginer comme une grille de colonne champs et de ligne enregistrement. J'ai mis dans cet exemple deux modes d'encadrement différents, avant ou après l'écriture de la chaîne.

Private Sub cmdPrint_Click()

        Dim TabLong() As Single, compteur As Long, Total As Single

        Dim NomChamp As String, ReqLong As New ADODB.Recordset, strSQL

As String

         Dim XFixe As Single, YMobile As Single, prnstring As String,

ConnTemp As New ADODB.Connection

        ConnTemp.ConnectionString = Adodc1.ConnectionString

        With Printer

                .TrackDefault = True

                .ScaleMode = 6

                .Orientation = 1

                .PaperSize = 9

                .PrintQuality = -4

                .ColorMode = 1

        End With

        XFixe = 20 - (210 - Printer.ScaleWidth) / 2

        YMobile = 15 - (297 - Printer.ScaleHeight) / 2

        ReDim TabLong(ReqGrille.Fields.Count - 1)

        With ReqGrille

            For compteur = 0 To .Fields.Count - 1                 NomChamp = .Fields(compteur).Name              strSQL = "SELECT MAX(len([" & NomChamp & "]))

AS LeMax FROM LaTable"

                  strSQL, ConnTemp, adOpenStatic, adLockReadOnly

                        ReqLong.MoveFirst

                           TabLong(compteur) = IIf(ReqLong!lemax >

Len(NomChamp), ReqLong!lemax, Len(NomChamp))

                        ReqLong.Close

                        TabLong(compteur)                            =

Printer.TextWidth(String(TabLong(compteur), "X")) + 4

                        Total = Total + TabLong(compteur)

                Next compteur

                .MoveFirst

                Total = XFixe

                For compteur = 0 To .Fields.Count - 1

                                (Total,         YMobile)-

Step(TabLong(compteur), 8), QBColor(6), BF

                        prnstring = CStr(.Fields(compteur).Name)

                        Printer.CurrentX = Total + TabLong(compteur) /

2 - Printer.TextWidth(prnstring) / 2

                              Printer.CurrentY = (YMobile + 4) -

Printer.TextHeight(prnstring) / 2

                        Printer.Print prnstring

                        Total = Total + TabLong(compteur)

                Next compteur

                YMobile = YMobile + 8

                While Not .EOF

                        Total = XFixe

                        For compteur = 0 To .Fields.Count - 1

                                prnstring                             =

CStr(.Fields(compteur).Value)

                                Printer.CurrentX     =     Total     +

TabLong(compteur) / 2 - Printer.TextWidth(prnstring) / 2

                                  Printer.CurrentY = (YMobile + 4) -

Printer.TextHeight(prnstring) / 2

                                Printer.Print prnstring

                                Total = Total + TabLong(compteur)

                                    (XFixe,     YMobile)-

Step(Total - XFixe, 8), , B

                        Next compteur

                        .MoveNext

                        YMobile = YMobile + 8

                Wend

        End With

        Printer.EndDoc

End Sub

V-F. L'IMPRESSION SUR PLUSIEURS PAGES

Le cas se pose en général, pour l'impression de longues listes, de grands tableaux. J'envisage ici le cas d'une impression continue. En effet, l'impression de plusieurs fiches liées à un recordset par exemple n'est jamais qu'un cas d'impression de page unique répété à chaque changement de ligne du recordset.

Mais supposons pour reprendre le cas précédent, que je souhaite imprimer ma grille sans connaître au préalable son nombre de lignes. Je vais prendre un exemple que j'ai développé, il y a quelques années pour une association qui organisait un concours de pêche.

Le travail était simple, tout tenait dans une table. Il fallait pouvoir imprimer la liste des participants, puis le classement.

Sur ma page devait apparaître le logo de l'association, le titre, la date, le tableau et en bas le numéro de page. Donc sur mon formulaire il y avait un contrôle image, deux labels et un MSFlexGrid (plus un dessin de poisson mais lui il n'y avait pas besoin de l'imprimer).

Je me suis basé sur les marges habituelles, il me fallait trois centimètres en haut pour le logo, et un centimètre en bas pour le numéro de page. Chaque ligne devait faire 8 mm de haut.

L'impression était en paysage afin de pouvoir visualiser toutes les colonnes.

Afin de connaître le nombre de page, pour pouvoir valoriser les propriétés FromPage et ToPage de la boite de dialogue d'impression, j'ai procédé comme suit :

Ma hauteur imprimable pour la grille était de 140 (210-2*15-30-10). Il rentrait donc 17 lignes de 8 mm par page soit 16 enregistrements plus la ligne de titre.

Ce préambule n'a pas pour but de faire de vous des experts en concours de pêche mais bien de vous montrer comment je me suis posé le problème. Allons-y!

Le code est le même que celui fait précédemment, sauf la différence d'orientation, dans la fonction ci dessous je mettrai juste les lignes différentes.

Private Sub Impression()

Printer.Orientation = 2

XFixe = 20 - (297 - Printer.ScaleWidth) / 2

YMobile = 45- (210 - Printer.ScaleHeight) / 2

NbLigne= ReqList.Recordcount

NbPage=Iif(NbLigne Mod 16 >0, NbLigne \ 16+1, NbLigne \ 16)

A la place de l'impression de la ligne de titre

Call EntetePied(TabLong)

YMobile = YMobile + 8

Et dans la boucle du recordset un compteur qui :

If Compt16=16 then

        Compt16=0

        Printer.NewPage

        Call EntetePied

 YMobile = 53 - (210 - Printer.ScaleHeight) / 2 '53 car 45+8 de la première ligne

End if

End Sub

Private Sub EntetePied(TabTaille() as Single)

        Dim Xfixe!, Yfixe!, Total&, compteur&

        XFixe = 20 - (297 - Printer.ScaleWidth) / 2

        YFixe = 15 - (210 - Printer.ScaleHeight) / 2

        YfirstLigne = 45 - (210 - Printer.ScaleHeight) / 2

        Printer.PaintPicture imgLogo.Picture, XFixe, YFixe

         Printer.CurrentX=Printer.Width/2 - Printer.TextWidth(Titre)/2

        Printer.CurrentY=Yfixe+15- Printer.TextHeigth(Titre)/2

        Printer.Print Titre

         Printer.CurrentX=Printer.Width-20 - Printer.TextWidth(LaDate)

        Printer.CurrentY=Yfixe+15- Printer.TextHeigth(LaDate)/2

        Printer.Print LaDate

        'Insère la ligne de titre

        Total = XFixe

        For compteur = 0 To .Fields.Count - 1

                            (Total,              YMobile)-

Step(TabTaille(compteur), 8), QBColor(6), BF

                prnstring = CStr(ReqGrille.Fields(compteur).Name)

                   Printer.CurrentX = Total + TabTaille(compteur) / 2 -

Printer.TextWidth(prnstring) / 2

                Printer.CurrentY     =     (YMobile     +     4)      -

Printer.TextHeight(prnstring) / 2

                Printer.Print prnstring

                Total = Total + TabTaille(compteur)

        Next compteur

        'Met Le pied De page

        strPied="Page : " & & " de " & NbPage

        Printer.CurrentX=Printer.Width/2                              -

Printer.TextWidth(strPied)/2

        Printer.CurrentY=Yfixe+        Printer.ScaleHeight         -20-

Printer.TextHeigth(strPied)/2

        Printer.Print strPied

End sub

Vous pouvez noter que l'on peut très bien écrire le pied de page avant le corps du texte.

V-G. PREVISUALISATION

Bien sûr, vous vous voyez déjà poussant des wagonnets de feuilles vers l'imprimante afin de réaliser vos tests d'impression. Afin de sauver les forêts, je vais vous montrer comment fabriquer une feuille de visualisation.

Dans cet exemple, je reste dans un cas d'impression paysage, mais on peut faire un outil beaucoup plus complexe en gérant dynamiquement l'orientation de la feuille, faire une réduction de taille etc…

Tous les scalemode de la feuille et des picturebox sont en millimètres Dans ma feuille je mets les contrôles suivant :

•    Un commandButton

•    Un PictureBox

•    Dans ce PictureBox, un HscrollBar sur toute la largeur

•    Un VscrollBar sur toute la hauteur

•    Et enfin un autre pictureBox (donc contenu dans pctCont)

Dans le code de cette feuille

Private Sub HScroll1_Change() pctCible(1).Left = HScroll1.Value * -1

End Sub

Private Sub VScroll1_Change() pctCible(1).Top = VScroll1.Value * -1 End Sub

L'astuce consiste à se dire qu'à peu de choses près l'objet printer et le PictureBox fonctionnent de la même façon.

Donc on écrit une fonction ou dans le code on remplacera partout Printer par Cible. Pour les méthodes différentes pour les deux objets on fera un test avec la fonction Is

Dans le cas d'une impression multi page, il convient de modifier le code d'évènements des scrollbars.

L'appel        de        la        fonction        se        fait       de        la        manière          suivante

Call Impression(frmView.pctPict.Picture)

VI. CONCLUSION

Il y aurait encore de nombreuses astuces possibles à décrire. Le véritable problème de l'impression est de bien analyser ce que l'on veut obtenir. L'impression est rarement anarchique, et en imaginant un modèle géométrique simple, on réalise un code d'impression simple.

J'espère avoir fait changer d'avis les plus récalcitrant d'entre vous.