Özel Sayfaları Yazdırma
11 Mart 2019
11 Kasım 2021
1225
Bu kod ile Özel Sayfaları Yazdırma işlemini çok hızlı bir şekilde gerçekleştirebilir, işlerinizde zaman tasarrufu sağlayabilirsiniz.
Sub printCustomSelection()
Dim startpage As Integer
Dim endpage As Integer
startpage = InputBox("Başlangıç Sayfa numarasını yazınız.", "Değer Girin")
If Not WorksheetFunction.IsNumber(startpage) Then MsgBox "Geçersiz sayfa numarası, tekrar deneyin!", "Hata"
Exit Sub
End If
endpage = InputBox("Bitiş Sayfa numarasını yazınız.", "Değer Girin")
If Not WorksheetFunction.IsNumber(endpage) Then MsgBox "Geçersiz sayfa numarası, tekrar deneyin!", "Hata"
Exit Sub
End If
Selection.PrintOut From:=startpage, To:=endpage, Copies:=1, Collate:=True
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- 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.
Kod Açıklaması
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.
| YARARLI KISAYOLLAR | |
|---|---|
| Tüm Tabloyu Seçme / Alternatif | Ctrl Shift Space |
| Açılır Listeden Seçim Yapma | Alt ↓ |
| Bir önceki sonucu bulma | Ctrl Shift F4 |
| Aktif Pencereyi Kapatma | Ctrl W |
| İşlem Yapılmış En Üst Hücreye Gitme | Ctrl Home |