Bu kod ile Özel Sayfaları Yazdırma işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
Yararlanmanız temennisiyle.
Hazır Kod/Formül Listesi
Özel Sayfaları Yazdırma
- Konuyu başlatan ExcelDepo
- Başlangıç tarihi
Site Kurucusu
VBA:
Görüntülemek için giriş yapmalısınız.
(13 satır)Yazdırma seçeneklerindeki ayarı kullanmak yerine, özel sayfa aralığını yazdırmak için bu kodu kullanabilirsiniz. Diyelim ki 5'ten 10'a kadar sayfaları yazdırmak istiyorsunuz. Bu VBA kodunu çalıştırmanız ve başlangıç sayfası ve bitiş sayfasını girmeniz yeterli.
Uygulama Adımları
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
|
Kopyala ve Özel Yapıştırma
|
|
|
UserForm Resize Özelliği Ekleme
|
|
|
Birden Fazla Textboxların Özelliklerini Değiştirme
|
|
|
Excel Sayfalarını Menü Olarak Ekleme
|
|
|
Makro Etkinleştirilmeden Sayfaları Gösterme
|