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