Discussion :

[niboTD]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[patricktoulon]

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

[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.

[Menhir]

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.

[patricktoulon]

ceci t'ouvre l'apercu d'impression

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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