Listboxda süzüleni print yapma

[byfika]

Merhabalar,
Excel Application.Visible = False ,
ve Userform üzerinden combobox ile süzme süzme yapılıp sadece süzülenleri nasıl print yapabiliriz?

Aşağıdaki kodlarla yazdır tıklandığında excel ve userform false oluyor kilitleniyor ve Ctrl+Alt+Delete yaptığımda görev yöneticinde excel i kapatmak için göremiyorum. Kodları nasıl düzenlemem gerekiyor.
Bilgi için teşekkürler

Private Sub CommandButton1_Click()
Sheets("HP").Range("A2" & Rows.Count).ClearContents
If ListBox2.ListCount < 1 Then Exit Sub
Sheets("HP").Range("A2").Resize(ListBox2.ListCount, 4) = ListBox2.List
Me.Hide
Sheets("HP").PageSetup.PrintArea = "HP!A1" & ListBox2.ListCount + 1
Sheets("HP").PrintPreview
Me.Show
End Sub

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[byfika]

Merhabalar Sayın Muygun,
Göndermiş olduğunuz eki denedim. Bilginize ve elinize sağlık. Emeğiniz için çok teşekkürler.
Saygılarımla...