Théorie

      Interface

    Série 1

     Série 2

       Série 3

       Série 4

. 
IMPRESSION
(Tutoriel de Jacques Lannuzel)
.

L’objet Printer permet de réaliser l’impression en visual Basic. Sa mise en œuvre est relativement simple, mais demande rigueur et concentration. Pour les fins de cette démonstration, on supposera que le texte à imprimer est stocké dans une variable déclarée: Dim Chaine as String .

L’instruction qui lance une impression peut avoir deux formes. 

printer.print Chaine 

Dans ce premier cas (sans point-virgule à la  fin), il y a passage à la ligne.

printer.print Chaine; 

Dans ce second cas (avec point-virgule à la  fin), il n'y a pas passage à la ligne. La prochaine instruction d'impression se fera donc sur la même ligne, à la suite.

On clôt la préparation de l’impression par l’instruction Printer.EndDoc qui lance l’imprimante.  

Exemple

Dim Chaine as string  
Chaine =  « Au revoir »
Printer.print Chaine
Printer.EndDoc

Positionnement du texte

On peut définir le positionnement du texte sur la feuille. Pour cela on dispose de deux instructions: Printer.CurrentX et Printer.CurrentY.  Ces deux propriétés prennent une valeur numérique: exemple Printer.CurrentX = 700. La valeur 700 correspond à une marge de 3 centimetres.

L’instruction Printer.CurrentY permet de positionner le texte par rapport à la hauteur. Par exemple l’instruction: Printer.CurrentY = 8000 positionne le texte environ au milieu d’une page.

Exemple

Dim Chaine as string
Chaine =  « Au revoir »
Printer.CurrentX = 700
Printer.CurrentY = 8000
Printer.print Chaine
Printer.EndDoc

Centrer du texte

L’instruction Printer.Width renvoie la largeur de la page. Printer.TextWidth(chaine) renvoie la longueur de la chaîne.

Donc, on retire de la largeur totale la longueur de la chaîne et on divise le reste par deux pour obtenir la position du texte.

Exemple

Dim Chaine as string
Chaine =  « Au revoir »
Printer.CurrentX = (Printer.Width - Printer.TextWidth(chaine)) /2 
Printer.CurrentY = 8000
Printer.print Chaine
Printer.EndDoc

Changement de page

L’instruction qui provoque le changement de page est Printer.NewPage . 

Exemple

If Printer.CurrentY > 15000 then
    Printer.NewPage
    Printer.CurrentY = 700
End if

Le changement de page est provoqué à la suite d’un test (>15000). Après le changement de page, on définit le haut de page par l’instruction: Printer.CurrentY = 700.

Police et style de caractères

L’instruction suivante permet de définir le police de caractère utilisée.

Printer.Fontname = "Times New Roman"

Celle-ci définit la taille des caractères.

Printer.FontSize =  12

Les propriétés de style sont définies par une variable boolenne (Vrai ou Faux). On obtient un texte en gras en mettant la propriété équivalente à Vrai.

Printer.FontBold = True

On supprime la mise en gras de la façon suivante.

Printer.FontBold = False

On applique les mêmes règles aux propriétés suivantes: Printer.FontItalic et Printer.FontUnderline.

Exemple

Sub Impression()
Dim Chaine as string

Chaine = " Au revoir "
Printer.Fontname = "Times New Roman"
Printer.FontSize = 12
Printer.FontBold = True
If Printer.CurrentY > 15000 then
    Printer.NewPage
    Printer.CurrentY = 700
End if
Printer.CurrentX = (Printer.Width - Printer.TextWidth(Chaine)) / 2
Printer.print Chaine
Printer.Fontbold = False
Printer.EndDoc

End Sub