Özel Sayfaları Yazdırma
11 Mart 2019
11 Kasım 2021
1101
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 | |
|---|---|
| VB Penceresini Açmak | Alt F11 |
| Şerit Menüyü Genişletme, Daraltma | Ctrl F1 |
| Koyu Yazdırma / Alternatif | Ctrl 2 |
| Yazdırma | Ctrl P |
| Sonraki Sayfaya Gitmek | Ctrl Page Down |