Discussion :

[zine pef]

Salut ts le forum
je cherche un code dans userform pour imprimer ou Aperçu avant imprission
la liste qui ce montre au choix
et merçi

[Mapokko]

Salut,
pour l'impression essaie cela

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 With Sheets("ListecascadePays").PageSetup 
.PrintArea = "A1:D30" 
.Orientation = xlPortrait 
'.Orientation = xlLandscape 
.BlackAndWhite = True 
'.BlackAndWhite = False 
.CenterHorizontally = True 
.CenterVertically = True 
End With
Sheets("ListecascadePays").PrintOut Copies:=1, Collate:=True 
    End
End Sub

Pour l'aperçu voir ce code

Code :

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

Sheets("ListecascadePays").PrintPreview

A+

[SilkyRoad]

Bonjour,

En complément de la réponse de Mapokko :

Comment utiliser l'aperçu avant impression d'une feuille de calcul depuis un UserForm ?

bonne journée
michel

[zine pef]

merci Mapokko pour votre aide
mais le code imprime la feuille et le userform
je veux imprimer les elements ds la listebox
na pas marcher