Makro ile Sayfaları Yazdırma

Bu dosya, kullanıcıdan alınan ilk ve son sayfa numarasına göre yazdırma yapan bir makro örneği sunar. Yazdırılacak sayfa aralığı her seferinde bir giriş kutusu ile belirlenir, böylece yazıcı ayarları penceresine girmeden belirli sayfalar yazdırılabilir.

Dosyanın içeriği​

• Sayfa1: B3:F9 aralığında örnek veri bulunur. Sayfada formül yoktur; makronun yazdıracağı alan olarak kullanılır.
• Module1: Yazdırma işlemini yapan ÖzelSayfalarıYazdır makrosunu içerir.

Makrolar​

Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodda dosya silme ya da dışarıya bağlantı gibi zararlı bir işlem yoktur.

• ÖzelSayfalarıYazdır: Önce InputBox ile yazdırılacak ilk sayfanın numarasını, ardından son sayfanın numarasını sorar.
• Her giriş WorksheetFunction.IsNumber ile denetlenir. Geçersiz değer girilirse "Geçersiz ilk sayfa numarası" veya "Geçersiz son sayfa numarası" uyarısı gösterilir ve makro durur.
• Girişler geçerliyse Selection.PrintOut komutu çalışır. Yazdırma, seçili alan için girilen sayfa aralığında, 1 kopya ve harmanlama açık olarak yapılır.

Değişkenler Integer olarak tanımlandığından sayfa numaraları tam sayı olmalıdır. Yazdırma, sayfada seçili olan alana uygulanır; bu nedenle makroyu çalıştırmadan önce yazdırılacak alan seçilmelidir.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Yazdırmak istediğiniz alanı seçin; örnek için Sayfa1 üzerindeki B3:F9 aralığı kullanılabilir.
3. Alt+F8 tuşlarıyla makro listesini açın, ÖzelSayfalarıYazdır makrosunu seçip çalıştırın.
4. İlk sayfa numarasını, ardından son sayfa numarasını girin.
5. Yazdırma işlemi belirtilen aralık için varsayılan yazıcıya gönderilir.

Benzer yazdırma işlemleri için kod, kopya sayısı veya yazdırılacak alan değiştirilerek uyarlanabilir.