Belirli Sayfaları Yazdırma

[aragon_987]

Merhaba.
Excel de takıldığım bir nokta var. 40 Sayfadan oluşan bir sınav analiz programı var. Bunları otomatik olarak nasıl yazdırabilirim. Ayrı ayrı yazdır demeden. Yanlız bir nokta var. İlk sayfa da öğrenci listesi var. Her öğrenciye aitte bir sayfa. Dolayısıyla ilk sayfada bilgisi girilen öğrencilerin sayfaları yazdırılacak. Mesela Ana sayfada a1 hücresi dolu ise sonuç1, a2 hücresi dolu ise sonuç2 sayfaları yazıdırılacak. Bu şekilde öğrenci isminin girili olduğu tüm sonuç sayfalarını toplu olarak yazdırmak istiyorum. Bunu nasıl gerçekleştirebilirim acaba.
Teşekkürler...

 

[Ömer]

Merhaba,

Dolulukla sayfa arasındaki bağlantıyı görebilme adına küçük bir örnek ekleyerek açıklarmısınız.

 

[aragon_987]

Hocam linke ekledim. Açıklama dosyanın içinde. Teşekkürler...
http://hotfile.com/dl/105049242/fb50d62/Kitap1.rar.html

 

[aragon_987]

Arkadaşlar 48 defa görüntülenmiş mesaj ama malesef bir yanıt gelmedi. İnşallah yardımcı olan bir arkadaş olur...

 

[Ömer]

Şuan yazıcım olmadığı için deneyemedim.

Sub SartliYazdir()
 
Application.ScreenUpdating = False
 
Sheets("AnaSayfa").Select
 
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    sayfa = "Sonuç" & Cells(i, "A")
    If Cells(i, "B") <> "" Then
        Sheets(sayfa).PrintOut
    End If
Next i
 
Application.ScreenUpdating = True
 
End Sub

.

 

[aragon_987]

Şuan yazıcım olmadığı için deneyemedim.

Sub SartliYazdir()
 
Application.ScreenUpdating = False
 
Sheets("AnaSayfa").Select
 
For i = 1 To Cells(Rows.Count, "A").End(xlUp).Row
    sayfa = "Sonuç" & Cells(i, "A")
    If Cells(i, "B") <> "" Then
        Sheets(sayfa).PrintOut
    End If
Next i
 
Application.ScreenUpdating = True
 
End Sub

.

Hocam çok teşekkür ederim ancak makro ekleme konusunda acemiyim. Visual basic ekranını açtıktan sonra ne yapmam gerekiyor. Bunu da anlatabilirseniz. Birde kaydet dediğimde yanılmıyorsam makro destekli olarak kaydetmemiz lazım değil mi?

 

[Ömer]

Linkleri inceleyiniz.

Modül Ekleme (Resimli Anlatım)

Sayfada Buton-Düğme Oluşturmak ve Makro Atamak (Resimli Anlatım)

Kaydetmede ise; 2007 ve üstü sürümlerde farklı kaydet seçeneğinden "makro etkin çalışma kitabı" formatında kaydetmelisiniz.

.

 

[aragon_987]

Teşekkürler hocam...