Kursiyer Kimlik Kartı Tek Tuşla Çıkartma

[selcukerd]

Excel Hocalarım merhaba,

Aşağıdaki linke eklediğim dosyada şöyle bir şey istiyorum.
Dosya açıldığında görüleceği gibi. tc isim ve soyisim kısmı bulunmaktadır.
alt alta tc kimlik ve ad soyad yazıldığında, kimlik kartında bulunan 4 tane alanı da doldursun ve tuşa bastığımda bu 4 kişinin kimlik kartı 1 sayfada çıksın.
örneğin 16 tane tc isim soyisim yazıldığında 4 sayfa olarak versin.
http://s3.dosya.tc/server6/l3a234/KIMLIK_KARTI.rar.html

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server6/x9qj5l/selcukerd-KIMLIK_KARTI.zip.html

 

[selcukerd]

Hocam emeğine sağlık, teşekkür ederim.

Benim istediğim şu şekilde yukarı aşağı butonu olmadan, sadece tuşa bastığımda tc numaralı sütunun dolu olduğu yere kadar çıkarması.

 

[muygun]

Merhaba;
(Sonucu denemedim ama)
Yazıcı ikonuna bağlı makroyu;

Sub yazdır_belirli()
Application.ScreenUpdating = False
On Error Resume Next
Cells(1, "d") = ""
For i = 2 To Range("A65536").End(xlUp).Row Step 4
Cells(1, "d") = i
Sheets("Sayfa1").PageSetup.PrintArea = "h1:r28"
Sheets("Sayfa1").PrintOut Copies:=1
Next i
Application.ScreenUpdating = True
End Sub

Şeklinde düzenleyerek deneyin.
İyi çalışmalar.

 

[selcukerd]

Denedim fakat yazıcı da şöyle bir ibare yazıyor: "Bunu elle besleyici yükle: özel tür 6 A4"