Veri aktar ve önizle / kaydet te sorun

[frksfu]

Bu sitede yapılmış programlardan düzenleyerek kendi işime uygun çok basit sadece malzeme giriş çıkışının takip edildiği stok programı şekline getirdim ancak iki problemi halledemedim
SORUN 1. Rapor al butonu hem veri süzüyor hemde süzülmüş bu veriyi sayfaya aktarıyor.!! Sorun süzülen verinin ilk satırı hariç; İlk satırı aktarmıyor
SORUN 2. Raporu yazdır deyincede baskı ön izlemeye geçip UserForm1 ile aynı ekrana gelip üstüste çakışıyor ve program kitleniyor

 

[frksfu]

2 ci sorunu rapor forumlarındaki ilgili butona aşağıdaki kodu yazarak çözdüm ama ilk sorun hala devam ediyor

Private Sub CommandButton7_Click()
On Error Resume Next
soru = MsgBox("Sayfa Yazdırılacak, Önizleme Yapmak İstiyor musunuz?", vbYesNo, "Önizleme")
If soru = vbYes Then
frmrapor.Hide
UserForm1.Hide
Application.Visible = True
Sheets("Rapor").PrintPreview
Application.Visible = True
frmrapor.Show
UserForm1.Show
Range("A1").Select
Else
Sheets("Rapor").PrintOut
End If
End Sub