Imprimer

[apdf1]

Bonjour,

Je suis à la recherche le code en VBA pour imprimer avec zone d'impression sans couleur et de "B2:E100) (G2:J100" sur la même feuille.

Un très grand merci à tout ceux qui pourront m'aider...

Cordialement

Max

 

[nyko283]

Re : Imprimer

Bonjour Max,

Je reste assez perplexe, car avec 788 messages sur ce forum tu n'est pas eu l'idée de faire un petit tour avec l'enregistreur de macro.😕
sur xl2003
qui une fois épuré donne ceci :

 ActiveSheet.PageSetup.PrintArea = "$B$2:$J$100"
    With ActiveSheet.PageSetup
        .BlackAndWhite = True
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Columns("F:F").EntireColumn.Hidden = True
    ActiveSheet.PrintOut
    Columns("F:F").EntireColumn.Hidden = False

 

[Papou-net]

Re : Imprimer

Bonjour apdf1, nyko283, le forum,

Il est possible de définir la zone d'impression sans masquer/démasquer des colonnes.

Ex :

Sub Imprimer
With Me
  .PageSetup.PrintArea = ""
  .PageSetup.PrintArea = "A2:E100,G2:J100"
  With .PageSetup
    .BlackAndWhite = True
    .FitToPagesWide = 1
    .FitToPagesTall = 1
  End With
  .PrintOut
End With
End Sub

Cordialement.

 

[nyko283]

Re : Imprimer

Bonjour PAPOU-NET

tout à fait, après tout depend si Max en parlant de la meme feuille parlais des plages de cellules ou de l'edition...

 

[apdf1]

Re : Imprimer

Bonjour Papou, Nyko,

Je vous remercie tous les deux je viens d'essayer celle a Papou sa fonctionne très bien nickel je n'arriver pas a mettre "A2:E100,G2:J100"
je mettais toujours un point virgule entre les deux. je vous remercie et vous souhaite une bonne fin d'apres midi.

@+

Max