Control "imprimer"

Le 11/12/2011 à 15:57

Bonjour le forum,

Encore une fois, j’ai besoin d’aide !, il y a moyen de dans un UserForm, de créer deux boutons de contrôle pour par exemple « boutton1 » imprimer zone A1 :A15 et « bouton 2 » imprimer zone D1 : D15, les deux zones sont dans la même feuille bien sûr.

Ou encore mieux deux cases à cocher et un bouton « imprimer » que ça imprime suivant les cases cochers

Merci

13exp-print.xlsm (17.75 Ko)

Le 11/12/2011 à 19:07

Bonsoir,

Une solution avec choix en A1

dans le VBE de la feuille

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rep%
    If Not Application.Intersect(Target, Range("a1")) Is Nothing Then
            If Target.Count > 1 Then Exit Sub
            Application.ScreenUpdating = False
        With ActiveSheet
            With .PageSetup
                .PrintArea = Target.Value       'champs nommés
                If Target = "Cadre1" Then
                    .Orientation = xlLandscape  'paysage
                Else
                    .Orientation = xlPortrait   'portrait
                End If
                .CenterHorizontally = True
            End With
            .PrintPreview                       'aperçu
            Rep = MsgBox("On imprime ?", _
            vbYesNo + vbCritical + vbDefaultButton2, "Impression")
            If Rep = vbNo Then Exit Sub
            '.PrintOut copies:=1                'imprime
        End With
    End If
End Sub

Amicalement

Claude

6toze666-imprime.xlsm (23.81 Ko)

Le 11/12/2011 à 19:42

Bonsoir,

Vous trouverez une première version.

Bon Dimanche

Cdt

Air_2

11exp-print-v0-1.xlsm (26.35 Ko)

Le 11/12/2011 à 22:12

Bonsoir, et merci pour vos réponses, mais « il y a toujours un mais »