Çözüldü Excel Dosyasından Etiket Yazdırma

Aleykumselam,
A4 kağıdına 10 adet etiket şablonu denk gelecek şekilde bir sayfa oluştursanız nasıl olurdu?
Oluşturduğunuz şablonlar, belli bir düzene göre sayfaya yerleşmiş olursa uygun olur.
Kodlama, oluşturduğunuz şablona göre yapılır.

HOCAM BENİM İSTEDİĞİM BOYLE OLAÇAK

Hocam
sablon eklenmistır

"Etiket yazdırırken b sütunundaki kurban no ya, yani 1 den başlayarak son dolu olan satıra kadar etiket bassın" kriterini anlamadım?
Kurban no karışık şekilde sıralama yapılmış. Kurban no sütununu küçükten büyüğe sıralama işlemi yaptırsanız daha mantıklı değil mi? Kodlama içinde kolaylık olur.

hocam bende makro çalışmıyor bir başka ekcel dosyasında makro calisıyor bu excel dosyasında makro calısmıyor

Kurban no karışık şekilde sıralama yapılmış. Kurban no sütununu küçükten büyüğe sıralama işlemi yapılsın makro bende çalışmadı ekcel 365 var

birde yazdırmadan önce ön izleme imkanı olursa güzel our

ofis 365 bilgisraydan sıldim makrolarda sıkıntı cıkardiği için

Sayın hocam sizleri rahatsız ediyorum bu konuda 365 ofis makrolarda sıkıntı çıkardığı için bilgisayarımdan sildim ofis 2013 devam ediyorum bu arada Kurban no karışık şekilde sıralama yapılmış. Kurban no sütununu küçükten büyüğe sıralama işlemi yapılsın ve işlem yazdırılmadan önce ön izleme de görmek istiyorum bu arada etıket yazılan 2 sayfa etiketler bos geliyor ekran göruntusu ektedir olması gereken etiket yazdır 1 sayfasında etiket formunda gösterilmiştir

Etiketlerin boş çıktığı dediğiniz dosyayı yükleyin bakalım.

Selamun Aleykum Hocam verileri Kurban nosuna göre küçükten büyüğe doğru sıralansın ve yazıcıya göndermeden önce bize on izleyemeyi görmek istiyoruz .etiket sablonu ana sayfamda mevcuttur

Etiket şablonunu anasayfa ya ekleme sebebiniz nedir? Ayrı bir sayfaya şablonları oluşturmuştum.
Yazdırmadan önce önizleme imkanınız yok, 140 sayfa için her seferinde ayrı ayrı yazdırma kodu çalıştırılıyor.
Önceki yüklediğim dosya ile aynı dosyayı yüklemişsiniz. O dosyayı denediğimde herhangi bir sorun olmadan verileri aktarıyordu.
Sıralama işlemi dışında sorun var mı veya başkaca eklenmesi gereken bir işlem?

Bende işe 2 sayfaya böyle cikiyor sıralamın dısında başka sorun su anda görünmuyor

Son yazdırılar verilerin toplamı 10 sayısına ulaşmadığı için tabloların tamamı dolu değil. Son sayfa haricinde tablolar dolu şekilde yazdırılır. Sayfadaki verileri 30-35 adete indirip yazdırma işlemi yapıp kontrol edebilirsiniz.

Sayın okutkan hocam Güzel B sutunun verilerini esas alarak kücükten büyüğe dogru sıralama yaparak etiket yazdirabilirmiyız.bu da gercekten güzel olacaktır

Kod içindeki sayfa = Int(son / 10) satırının bir alt satırına s1.Range("A2:G" & son).Sort s1.[B1] kodunu yapıştırın.

Selamun ALEYKUM hocam Hataların ekran görutusu ekdedir etiket olusturken 26 sayfa yazdırılsınmı evet diyoruz .sayfa 2. seçiyoruz ve yazdır dediğimizde sadece yazıca 1 adet sayfa görutusu alıyoruz

Diğer sayfaları yazdırmıyor mu?