Sn: Beyazasker programda 29 sayfa var sen yapmak istediğini bir dosya ile upload edersen ona göre daha iyi yardımcı oluruz yani datanı ve formunu hazırla eksiklerin için yardımcı olayım Örnek olarak bir kod vereyim

Private Sub yaz_Click()

On Error Resume Next

soru = MsgBox("Sayfa Yazdırılacak, Önizleme Yapmak İstiyor musunuz?", vbYesNo, "Önizleme")

If soru = vbYes Then

DataAc.Hide

Sheets("Print").PrintPreview

DataAc.Show

Range("A1").Select

Else

Sheets("Print").PrintOut

End If

End Sub 

Birde vermiş olduğum Likten bu Programı indirip incelersen sana yardımcı olacaktır

http://www.4shared.com/file/141535477/17...itesi.html