Impression

Bruce68 · 17 Février 2012

Bonsoir à tous

Je voudrais imprimer la page 2 tout en restant sur la page 1, ma macro d'impression ne fonctionne pas ( la page est envoyée à l'imprimante mais pas d'impression).
Pouvez vous me dire ce qui manque dans ma macro d'impression pour que cela fonctionne.

Le vous remercie de votre aide

DoubleZero · 17 Février 2012

Re : Impression

Bonjour, Bruce68, le Forum,

Peut-être en remplaçant la macro existante par celle-ci :

Code:

Sub Impression()
Application.ScreenUpdating = False
Sheets("Feuil2").Activate
With Sheets("feuil2")
reponse = MsgBox("Voulez-vous Imprimer:   " & Fac_Dev & " ?", vbYesNo)
        If reponse = vbYes Then

        Ligne = .Range("C65536").End(xlUp).Row
          .PageSetup.PrintArea = "$B$4" & ":K" & Ligne
          ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
          End If
    End With
 Sheets("Feuil1").Activate
 Application.ScreenUpdating = True
End Sub

A bientôt 🙂

Bruce68 · 18 Février 2012

Re : Impression

Bonjour DoubleZero et le forum

Merci pour la macro cela fonctionne comme je voulais.
Bonne journée à tous

Impression

Bruce68

XLDnaute Impliqué

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Bruce68

XLDnaute Impliqué

Discussions similaires

Impression

Bruce68

XLDnaute Impliqué

Pièces jointes

DoubleZero

XLDnaute Barbatruc

Bruce68

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency