Özel Sayfaları Yazdırma
11 Mart 2019
11 Kasım 2021
997
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 | |
|---|---|
| Sayfa Sonlarını Kaldırma | Alt P O K |
| Sayfa Yapısı Kenar Boşlukları Sekmesini Açma | Alt P J Ö |
| Hızlı Doldurma Kısayolu | Ctrl E |
| Anlık Sistem Saatini Yazma | Ctrl Shift : |
| Bir Hücre Sağa Git | → |