Impression

Peponne31 · 6 Avril 2015

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 · 6 Avril 2015

Re : Impression

Bonjour à tous,

Peux-tu essayer :

VB:

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

A+ à tous

Peponne31 · 6 Avril 2015

Re : Impression

Bonsoir et merci JCGL
Je vais essayer ton code.

Impression

Peponne31

XLDnaute Nouveau

Pièces jointes

JCGL

XLDnaute Barbatruc

Peponne31

XLDnaute Nouveau

Discussions similaires