Bonjour
quand j'ouvre mon usf j'ai une listbox qui affiche mes feuilles
Private Sub UserForm_Initialize()
Application.EnableEvents = False
LbClasseurs.Value = ActiveWorkbook.Name
Application.EnableEvents = True
End Sub
ensuit en cochant la ou les feuilles je les imprime
Private Sub CmdImprimer_Click()
Application.ScreenUpdating = False
For I = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(I) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(I)
Application.DisplayAlerts = False
Sheets(LbFeuilles.List(I)).PrintOut
Else
End If
Next I
Unload Me
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub
est ce possible de faire un aperçu avant de les imprimer
c'est a dire en rajoutant un bouton sur l'usf, je puisse visualiser la ou les feuilles que j'ai cocher.
merci
quand j'ouvre mon usf j'ai une listbox qui affiche mes feuilles
Private Sub UserForm_Initialize()
Application.EnableEvents = False
LbClasseurs.Value = ActiveWorkbook.Name
Application.EnableEvents = True
End Sub
ensuit en cochant la ou les feuilles je les imprime
Private Sub CmdImprimer_Click()
Application.ScreenUpdating = False
For I = 0 To LbFeuilles.ListCount - 1
If LbFeuilles.Selected(I) = True Then
Application.StatusBar = "Impression: " & LbFeuilles.List(I)
Application.DisplayAlerts = False
Sheets(LbFeuilles.List(I)).PrintOut
Else
End If
Next I
Unload Me
Application.StatusBar = False
Application.ScreenUpdating = True
End Sub
est ce possible de faire un aperçu avant de les imprimer
c'est a dire en rajoutant un bouton sur l'usf, je puisse visualiser la ou les feuilles que j'ai cocher.
merci