Impression

[Peponne31]

Bonjour,
Je voudrais créer un petit programme adapté à mes besoins pour gérer l'inventaire d'un petit magasin de stock de nos machines, j'en suis à l'impression du stock par machine, je voudrais supprimer les couleurs à l'impression que l'on peut voir sur le fichier joint, et imprimer jusqu'à la dernière ligne qui contient quelque chose même si cela comporte une ou 2 pages. L'impression se fait depuis la colonne A3 jusqu'à la colonne E3. Le programme contient plusieurs feuilles et chaque feuille est identique et adapté à une machine différente.
Merci pour votre aide.
Peponne31

 

[JCGL]

Re : Impression

Bonjour à tous,

Peux-tu essayer :

Sub Cmb_Imprimer_click()
    With ActiveSheet.PageSetup
        .PrintArea = [A3].CurrentRegion.Address
        .BlackAndWhite = True
    End With
    ActiveSheet.PrintPreview
End Sub

A+ à tous

 

[Peponne31]

Re : Impression

Bonsoir et merci JCGL
Je vais essayer ton code.