Object Printer

Question

bonjour à tous ,
                         j'aimerais savoir si quelqu'un connais un truc pour faire la numérotation de page avec l'object printer 

Merci

Nightcourrier :)

cboulas · Answer

Salut,

Tiens vlà un petit code qui devrais te servir


   ' Déclare les variables.
   Dim Header, I, Y
   ' Place un message sur la feuille.
   Print "Impression en cours..."
   ' Définit la chaîne de l'en-tête.
   Header = "Impression de Démo - Page "
   For I = 1 To 3
      ' Imprime l'en-tête.
      Printer.Print Header;
      ' Imprime le numéro de page.
      Printer.Print Printer.Page
      ' Définit la position de la ligne.
      Y = Printer.CurrentY + 10
      ' Trace une ligne sur la page.
      Printer.Line (0, Y) - (Printer.ScaleWidth, Y)
      For K = 1 To 50
         ' Imprime une chaîne d'espaces.
         Printer.Print String(K, " ");
         ' Imprime du texte.
         Printer.Print "Visual Basic ";
         ' Imprime le numéro de page.
         Printer.Print Printer.Page
      Next
      Printer.NewPage
   Next I
   Printer.EndDoc
   End


Chris...
Web : Firstruner - eMail :  [mailto:support@firstruner.com Support]

Object Printer

1 réponse

Discussions similaires