Sélection de zone à imprimer

Version imprimable

Bonjour,

Que faut-il écrire dans la macro pour définir la une zone d'impression variable.
Sans lancer l'impression elle-même

Pour le moment j'ai :
Code:

1 2 3 Application.Dialogs(xlDialogPrint).Show '= ouvrir le menu d'impression" ActiveSheet.PageSetup.PrintArea = "$A$1:$J$" & Cells(Application.Rows.Count, "A").End(xlUp).Row '=lancer l'impression des colonnes A à J avec les lignes avec cellule remplie en A
Comment mixer les 2 ?

31/01/2019, 11h39
patricktoulon

re

print preview de donne un apercu mais n'imprime pas et dans le ruban tu a acces au dialog
pour les ligne vides en A peut etre un filtre
31/01/2019, 11h46
niboTD

Malheureusement tes infos ne sont pas suffisantes,

je recherche la formule à écrire pour que ça fonctionne,
merci à celui ou celle qui pourra me filer ce coup de main.
31/01/2019, 12h06
Menhir

Citation:

Envoyé par niboTD

Comment mixer les 2 ?

Mettre le PageSetup.PrintArea avant le Dialogs(xlDialogPrint).
Si tu définis la zone à imprimer après avoir lancé l'impression, ça ne servira pas à grand chose.

ceci t'ouvre l'apercu d'impression

de la plage A1 a j fin
sans les ligne vides dans l'impression

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub apercu_sans_les_lignes_vides()
    With ActiveSheet
        Set plage = .Range("A1:J" & .Cells(Rows.Count, 1).End(xlUp).Row)
        plage.AutoFilter Field:=1, Criteria1:="<>"
        With .PageSetup
            .FitToPagesWide = 1
            .CenterHorizontally = False
            .CenterVertically = False
            .PrintArea = plage.Address
        End With
        .PrintPreview'ouvrir le dialog imprimante a la place 
        plage.AutoFilter
    End With
End Sub

;)