İçindekiler
Excel çalışma sayfamızda özel bir Yazdır Düğmesi ayarlayabilirsek, sayfaları yazdırmak için çok kullanıcı dostu ve zaman kazandırıcı olabilir. VBA Makroları Bu yüzden bu makale size kullanabileceğiniz 5 basit makro sunacak VBA Excel'deki yazdır düğmesi için kod.
Alıştırma Çalışma Kitabını İndirin
Ücretsiz Excel şablonunu buradan indirebilir ve kendi başınıza pratik yapabilirsiniz.
Yazdır Düğmesi.xlsm Oluşturmak için VBA Kodu5 Excel'de Yazdır Düğmesi için VBA Kodu Kullanma Örnekleri
Öncelikle bazı veri kümelerini temsil eden veri kümemizle tanışalım satış elemanının farklı ülkelerde satış Bölgeler .
1. Excel'de Yazdır İletişim Kutusu için Yazdır Düğmesi Oluşturmak için VBA Kodunu Kullanın
İlk olarak, bir Yazdır Düğmesi ve sonra bunun için kodlar yazacak.
Adımlar:
- Tıklayın aşağıdaki gibi: Geliştirici >> Ekleme >> Düğme Kutusu.
Kısa bir süre sonra, bir artı işareti (+) senin içinde imleç .
- Sürükle o imleç istediğinize göre düğme boyutu ve bir süre sonra iletişim kutusu isimli Makro Atama açılacak.
- Bir tane ver isim ve Yeni Basın .
A VBA penceresi görünecektir.
- Ardından aşağıdaki kodları içine yazın-
Sub DialogBox() Application.Dialogs(xlDialogPrint).Show End Sub - Şimdi geri dön senin levha .
Kod Dökümü
- Burada, bir Alt Prosedür, DialogBox .
- Daha sonra kullanılan Diyaloglar (xlDialogPrint).Show açmak için Yazdır iletişim kutusu .
Düğme oluşturulur.
- Sağ tıklayın üzerinde düğme ve seçin Metni Düzenle bir şey yok. Bağlam menüsü düğme adını değiştirmek için.
- Sonra, sadece tip ve isim ve tıklayın senin Fare her yerde Düğmenin dışında .
Sonra sadece Düğme .
O zaman şu mesajı alacaksınız Yazdır iletişim kutusu . Eğer istersen Yazdır Şimdi.
Eğer hiç yoksa Yazıcı şu anda yapabilirsin Kaydet olarak PDF . daha fazla kullanım için veya Yazdır Daha sonra.
- Şimdi basın TAMAM. .
- Şu anda sadece bir isim ve basın Kaydet .
İşte basılı PDF .
Daha fazlasını okuyun: Excel'de Yazdırma Ayarları Nasıl Yapılır (8 Uygun Püf Noktası)
2. Etkin Sayfa için Yazdır Düğmesi Oluşturmak için VBA Kodunu Kullanın
Burada şunu kullanacağız VBA için Baskı bir Aktif Levha .
Adımlar:
- Takip edin ilk bölümden ilk iki adım oluşturmak için düğme ve Makro Atama .
- Yazın Makro Adı ve basın Yeni .
Kısa süre sonra, bir VBA penceresi açılacaktır.
- O zaman yaz aşağıdaki kodlar içinde-
Sub ActiveSheet() ActiveSheet.PrintOut End Sub - Sonra görüşürüz, geri dön için
Kod Dökümü
- Burada, bir Alt Prosedür, ActiveSheet .
- Daha sonra kullanılan PrintOut için seçin ve aktif sayfa ve Baskı o.
- Şimdi sadece basın ve Düğme .
A iletişim kutusu isimli Çıktıyı Farklı Kaydet açılacak.
- Bir tane ver isim ve basın Kaydet .
Sonra basılı olarak alacaksınız PDF .
Kolayca değiştirebilirsiniz yazıcı Eğer ihtiyacın olursa.
- Tıklayın üzerinde Dosya yanında Ev
- Ardından şunları seçin Yazdır seçeneği ve tıklayın üzerinde aşağı açılır seçmek için Yazıcı .
Daha fazlasını okuyun: Excel'de Tüm Sayfalar Nasıl Yazdırılır (3 Yöntem)
3. Excel'de Seçili Sayfalar için Yazdır Düğmesi Oluşturmak için VBA Kodunu Uygulayın
Eğer istiyorsan Yazdır özel seçi̇lmi̇ş sayfalar kullanarak da mümkündür. VBA .
Adımlar:
- Takip edin ilk bölümden ilk iki adım oluşturmak için düğme ve atamak a makro .
- O zaman bir Makro Adı ve basın Yeni .
Kısa süre sonra, bir VBA penceresi açılacaktır.
- Sonra görüşürüz, tip aşağıdaki kodlar içinde-
Sub SelectedSheets() ActiveWindow.SelectedSheets.PrintOut End Sub O zaman geri dön senin levha .
Kod Dökümü
- Burada, bir Alt Prosedür, SelectedSheets .
- Daha sonra kullanılan ActiveWindow için sayfa seçiniz bir şey yok. aktif Excel pencere .
- Sonra, kullanılan PrintOut yazdırmak için çoklu seçilmiş çarşaflar .
- Şimdi sayfaları seçin ve tuşuna basın Yazdır Düğmesi . iki sayfa seçtim.
- Bir tane ver isim için PDF ve basın Kaydet .
Bu PDF dosyasında wo sayfalar için iki sayfa .
Daha fazlasını okuyun: Excel'de VBA Makrosu Kullanarak Belirli Sayfalar Nasıl Yazdırılır (4 Yol)
Benzer Okumalar:
- Excel Sayfası A4 Boyutunda Nasıl Yazdırılır (4 Yol)
- Yazdırırken Excel'de Üstbilgi Nasıl Tutulur (3 Yol)
- Excel VBA: Yazdırma Alanı Dinamik Olarak Nasıl Ayarlanır (7 Yol)
- Excel Sayfası Çizgilerle Nasıl Yazdırılır (3 Kolay Yol)
- Excel'de Grafik Nasıl Yazdırılır (5 Yol)
4. Seçili Aralık ile Belirli Sayfa için Yazdır Düğmesi Oluşturmak için Excel VBA'yı Gömün
Burada, bir Yazdır Düğmesi için Baskı a seçilen aralık bir özel sayfa .
Adımlar:
- Takip edin ilk bölümden ilk iki adım oluşturmak için düğme ve bir makro atayın.
- Yazın Makro Adı ve basın Yeni .
Kısa süre sonra, bir VBA penceresi açılacaktır.
- O zaman yaz aşağıdaki kodlar -
Sub SpecificSheetnRange() With Sheets("SpecificSheet+Range") .PageSetup.PrintArea = "B2:D11" .PrintOut End With End Sub - Daha sonra, sayfanıza geri dönün.
Kod Dökümü
- Burada, bir Alt Prosedür, SpecificSheetnRange .
- Daha sonra kullanılan ile ifadesine seçin a özel
- Sıradaki, PrintArea = "B2:D11".PrintOut olacak seçin ve aralık bir şey yok. özel sayfa ve olacak Yazdır o.
- Şimdi sadece basın ve Yazdır Düğmesi .
- Bir ayarla isim için PDF ve basın Kaydet .
Bu basılı özel sayfa.
Daha fazlasını okuyun: Excel VBA: Birden Çok Aralık için Yazdırma Alanını Ayarlama (5 Örnek)
5. Seçili Aralık ile Etkin Sayfa için Yazdırma Düğmesi Oluşturmak için Excel VBA'yı Gömün
Ayrıca, şunları da yapabilirsiniz bir aralık seçin bir şey yok. aktif sayfa ve bir Yazdır Düğmesi için Baskı kullanarak VBA .
Adımlar:
- Takip edin ilk bölümden ilk iki adım oluşturmak için düğme ve bir makro .
- Daha sonra, bir Makro Adı ve basın Yeni .
Kısa süre sonra, bir VBA penceresi açılacaktır.
- İçinde VBA Pencere, yaz aşağıdaki kodlar -
Sub ActiveSheetnRange() Range("B2:D11").PrintOut End Sub - O zaman geri dön senin levha .
Kod Dökümü
- Burada, bir Alt Prosedür, ActiveSheetnRange .
- Daha sonra kullanılan Range("B2:D11").PrintOut için seçin a aralık ve Baskı.
- Tuşuna basın Yazdır Düğmesi .
- Bir tane ver isim ve basın Kaydet .
O zaman şu mesajı alacaksınız basılı aralık .
Daha fazlasını okuyun: Belirli Sayfaları Yazdırmak için Excel Düğmesi (Kolay Adımlarla)
Sonuç
Yukarıda açıklanan prosedürlerin VBA kodunu kullanmak için yeterince iyi olacağını umuyorum yazdır düğmesi Yorum bölümünde herhangi bir soru sormaktan çekinmeyin ve lütfen bana geri bildirimde bulunun.
