Öğrenci sayısı kadar yazdırmayı tekrarlama

[teachergokce]

Basit bir karne programı yapmak istiyorum.
Örnekteki dosyamda GİRİŞ sayfasına verileri giriyorum.
KARNE sayfasında ise liste numarasını 1,2,3 gibi yazarak öğrencilerin karnelerini görüp yazdırıyorum.

İstediğim makro: Karne sayfasını kaç öğrenci varsa o kadar karnesini yazdırmak. Yani toplu bir yazdır butonu. Birde bunu yapmayı düşündüğüm dosyam daha tamam değil sayfa isimleri vs değişik olacak nasıl uyarlayacağımı yazarsanız sevinirim. Teşekkürler...

 

[acolkesen1]

Merhaba öğretmengökçe,
Ekteki dosyayı inceleyiniz.

 

[teachergokce]

Teşekkür ederim. Ancak; sadece öğrenci adedi kadar yazdırma yapmıyor!! Örnekte 3 öğrenci ismi kayıt edilmiş 3 tane tekrarlasın istiyorum. sizinkinde 20 tane yapıyor...

Merhaba öğretmengökçe,
Ekteki dosyayı inceleyiniz.

 

[Mustafa MUTLU]

Şöyle bir şey deneyebilirsiniz

Sub Yazdır()
Dim MM
MM = [GİRİŞ!C1]
If [GİRİŞ!C1] > 0 Then
[a144].PrintOut Copies:=MM
Else
MsgBox " Kaç Adet Yazdıracaksınız Yazmamışınız !.."
End If
End Sub

Kırmızı Bölüm yazdırma sayınızı gösterir.
C1 Hücresidir.
Siz değiştirebilirsiniz..

Yazdırma Alanı belirlerseniz
[a144].PrintOut Copies:=MM
Kodu :
Sheets("GİRİŞ").PrintOut Copies:=MM
Şeklinde yazabilirsiniz.

 

[acolkesen1]

Tekrar merhaba,
Koddaki For i = 1 To [giriş!c65536].End(3).Row - 3 satırını
For i = 1 To [giriş!d65536].End(3).Row - 3 şeklinde değiştirirseniz d sütunundaki veri adedi kadar yazdırır.
İyi çalışmalar..

 

[mcetinkaya65]

cami görevliliği

Değerli hocalarım;
Yardımlarınızla hazırladığım proğramda,İndisle çagırdığım personel bilgileri Cami görevliliği formunun gerekli yerlerine geliyor.Ama bunları tek tek, her bir kişi için,ayrı ayrı yazdırmamız beya vakit alıyor.
İstediğim makro: Data sayfasında kaç personel varsa personelin bilgileriyle beraber o kadar cami görevliliği yazdırmak. Yani toplu bir yazdır butonu.
Yukardaki makroyu görünce çok uğraştım ama uyarlama işini yapamadım.
saygılarımla

 

[teachergokce]

Sayın hocalarım konuyu açalı epey oldu ancak hala ben yapamadım. Ya da sizlere tam anlatamadım galiba.... Ekteki dosyada mavi kutu içerisine anlattım. Anlayan arkadaşlar yardımcı olabilirlerse beni çok sevindirecekler.....

 

[Husgvarna]

Sayın hocalarım konuyu açalı epey oldu ancak hala ben yapamadım. Ya da sizlere tam anlatamadım galiba.... Ekteki dosyada mavi kutu içerisine anlattım. Anlayan arkadaşlar yardımcı olabilirlerse beni çok sevindirecekler.....

Merhaba eki inceleyiniz.

 

[teachergokce]

sayın hocam çok teşekkür ederim...
Ancak bunu başka bir programa nasıl uygulayacağım? Makrolarda görünmüyor. Bir de bir tuşa basarak bu işlemi gerçekleştiremez miyiz?

 

[Husgvarna]

sayın hocam çok teşekkür ederim...
Ancak bunu başka bir programa nasıl uygulayacağım? Makrolarda görünmüyor. Bir de bir tuşa basarak bu işlemi gerçekleştiremez miyiz?

Yukarıdaki dosya düğme eklenerek değişti. Kodlar "Modül2" de.

 

[teachergokce]

Hocam teşekkür ederim. Emeğinize sağlık.... İstediğim gibi oldu. Teşekkürler.....