söylemiş olduğum düzeltme yapmamışsın ben 4 sayfa ekleyip bunları yazdırma butonu eklenebilirmi onu sormuştum teşekkürler
 
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 
 
Paylaşım için teşekkürler.
 
Selamlar. Programınız çok güzel. Sizden bir ricam olacak. Bizim bir futbol turnuvamız var. Bu programda A-B-C değerleri yerine takım isimlerini bunun içinede futbolcu bilgilerini yazmak istiyorum. nasıl düzenleyebilirim. Saygılarımla