Yazdır ekranı

[polis-53]

merhaba arkadaşlar aşağıdaki kodda ComboBox5 kutusunda hangi sayfayı seçersem o sayfanın yazdır ekranına yani baskı önizleme ekranını açsın istiyorum aşağıdaki kodda Sayfa5 i seçtiğimde Sayfa5 ve Sayfa1 i getiriyor bi yardım ederseniz çok sevineceğim.

Private Sub CommandButton14_Click()
Sheets("Sayfa5").Select
Sheets("Sayfa1").Select

On Error Resume Next
[D4] = TextBox1.Text
[D5] = TextBox2.Text
[D6] = TextBox3.Text
[D7] = TextBox4.Text
[D8] = TextBox5.Text
[D9] = TextBox6.Text
[D10] = TextBox7.Text
[D11] = TextBox8.Text
[D12] = TextBox9.Text
[D13] = TextBox10.Text
Sheet2.[a1] = ComboBox1.Value & " "
Range("a1:a33").Select
ActiveSheet.PageSetup.PrintArea = "$A$1:$E$33"
Application.ScreenUpdating = False
Application.Visible = True
Application.ScreenUpdating = True
UserForm22.Hide
Sheets(Array("Sayfa5")).PrintPreview
Sheets(Array("Sayfa1")).PrintPreview
Application.ScreenUpdating = False
Application.Visible = False
Application.ScreenUpdating = True
Sheets("Sayfa5").Select
Sheets("Sayfa1").Select
UserForm22.Show

End Sub