Word Olmadan Etiket Yazdırma

Bu dosya, alt alta yazılmış kayıtları etiket düzenine dönüştürerek Word kullanmadan doğrudan Excel'den etiket yazdırmaya olanak sağlar. Dönüştürme işlemi bir makroyla yapılır; kullanıcının belirlediği sütun sayısına göre veriler yan yana dizilir ve her hücre bir etiket boyutuna getirilir.

Dosya makro içerir (.xlsm), açarken makroları etkinleştirmeniz gerekir.

Dosyanın içeriği​

• Dataset: B2:B13 aralığında alt alta yazılmış 12 kayıt bulunur. Etiket olacak veriler bu sayfada tutulur.
• Result: A1:C3 aralığında, verilerin 3 sütunlu etiket düzeninde yer aldığı sonuç sayfasıdır.

Dosyada formül kullanılmamıştır; dönüştürme işlemi tamamen makro ile yapılır.

Makrolar​

Makrolar Module1 modülünde yer alır.

• Createlabels: Ana makrodur. Önce AskForColumn makrosunu çalıştırır, ardından sayfadaki tüm hücrelerin satır yüksekliğini 75,75 ve sütun genişliğini 34,14 olarak ayarlar. Hücreler yatay ve dikey ortalanır, metin kaydırma açılır, hücre birleştirme kapatılır. Böylece her hücre bir etiket gibi görünür.
• AskForColumn: Bir InputBox ile istenen sütun sayısını sorar. A sütunundaki değerleri, girilen sayı kadar gruplar halinde okuyup satırlara yan yana yazar (Transpose). Dönüştürme bittikten sonra altta kalan eski A sütunu değerlerini temizler.

Makro kodunda dosya silme veya dış bağlantı gibi zararlı bir işlem bulunmaz. Makro, üzerinde çalıştırıldığı sayfanın hücrelerini doğrudan değiştirir; bu nedenle önce verilerin kopyası alınmalıdır.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Etiket olacak verileri A sütununa alt alta yazın veya yapıştırın. Makro A sütunundaki verilerle çalışır.
3. Alt+F8 ile makro listesini açıp Createlabels makrosunu çalıştırın.
4. Açılan pencereye istenen sütun sayısını girin (3 sütunlu etiket kağıdı için 3).
5. Veriler yan yana dizilir ve hücreler etiket boyutuna gelir; sayfa yazdırma önizlemesi kontrol edilerek yazdırılır.