Print makrosunda hata

[eskli]

Merhaba arkadaşlar

userform da bir adet listbox ve command button var
listbox da 4 adet sütun ve altında veriler var ve ben bu verileri yeni bir Word dosyasına yazdırmak istiyorum ancak command buttona tıkladığımda şu hata mesajını alıyorum

"Page Setup sınıfının PrinArea özelliği kurulamıyor"

kod aşağıdaki gibi:

Dim sh As Worksheet
Application.Visible = True
Application.ScreenUpdating = False
k = ListBox1.ListCount
Set sh = Worksheets.Add
Me.Hide
With sh
.Rows("1:1").RowHeight = 15
.Columns("A:E").ColumnWidth = 20
.Range("A1").Resize(ListBox1.ListCount, ListBox1.ColumnCount) = ListBox1.List
.PageSetup.PrintArea = "A1:E" & k
.PrintPreview
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
Application.ScreenUpdating = True
Application.Visible = False
Me.Show
Set sh = Nothing

Yardım ederseniz çok sevinirim
İyi çalışmalar

 

[eskli]

Arkadaşlar yardım edecek yok mu? Soru çok anlaşılır diye düşünüyorum.
Üstatlar yardımlarınızı bekliyorum

 

[NBATMAN]

Bazen sadece kullanılan kodların eklenen bir kısmı üzerinden probleme ulaşmak ve çözüm yaratmak çokda kolay olmayabilir, bundan dolayıdırki dosyanı eklersen çözüme ulaşmak daha kolay olabilir...