Impression Blocage macro

[Aladin]

Bonjour le forum
J' ai confectionné un bout de code qui me permet de rentre dans une textBox une plage de cellule et de faire un apercu avant impression.
Malheuresemnt tout se bloque apres l' apercu et je n' ai plus la main.
J' aurais voulu qu' apres l' Apercu avant impression soit que le userform se ferme ou qu' il soit flottant
Voici mon code

Private Sub CommandButton1_Click()
Worksheets("Data").Select
ActiveSheet.PageSetup.PrintArea = TextBox1

With ActiveSheet.PageSetup
'.LeftHeader = Sheets("Data").Range("A2").Value
' .CenterHeader = Sheets("Data").Range("A1").Value
.RightHeader = "&""Arial,Gras""&10&D"
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""

' .PaperSize = xlPaperA4
' .FirstPageNumber = xlAutomatic
' .Order = xlDownThenOver
' .BlackAndWhite = False
' .Zoom = 100
End With
ActiveSheet.PrintPreview
Me.Hide
End Sub

Merci d' avance pour toute aide
Aladin

 

[Catrice]

Re : Impression Blocage macro

Bonjour,

Essaie en mettant la propriété ShowModal du UserForm à True.

Sinon, tu peux faire un UnLoad UserForm1 avant l'apreçu.

 

[Aladin]

Re : Impression Blocage macro

Bonjour Catrice et le forum
Merci pour ta réponse pb resolu en déchargeant l' USF avant l' apercu
Aladin