Excel'de yalnızca tek veya çift sayfaları nasıl yazdırabiliriz?

Ancak Excel'in Yazdırma iletişim kutusu, yalnızca tek veya yalnızca çift sayfaları yazdırmak için doğrudan bir seçenek sunmaz. Bu durum, uzun bir çalışma sayfasından belirli sayfaları incelemek, dağıtmak veya arşivlemek istediğiniz ofis veya veri raporlama senaryolarında dezavantaj oluşturabilir.
Bu makale, Excel'deki bu sınırlama için iki etkili çözüm sunar. Tek veya çift sayfaları yazdırmak için bir VBA makrosu bulacaksınız ve ayrıca Kutools for Excel'i kullanarak daha esnek bir yaklaşım göreceksiniz, böylece ihtiyaçlarınıza ve teknik rahatlığınıza en uygun yöntemi seçebilirsiniz.
Yalnızca tek veya çift sayfaları Makro kodu ile yazdırın
Kutools for Excel ile istediğiniz gibi tek, çift veya belirli sayfaları yazdırın

Alternatif Çözüm: Yazdırma İletişim Kutusu ile Manuel Olarak Tek veya Çift Sayfaları Yazdırma
Yalnızca tek veya çift sayfaları Makro kodu ile yazdırın
Excel'de, yazdırma arayüzü tek/çift sayfa seçimine yönelik doğrudan seçenekler içermez, ancak bunu bir VBA makrosu aracılığıyla gerçekleştirebilirsiniz. Bu yöntem, basit kod çalıştırmaya alışık olanlar ve üçüncü parti araçlar olmadan çalışan bir çözüm arayanlar için uygundur. Özellikle tek seferlik görevler veya sık sık karmaşık baskı yönetimi gerektirmeyen kullanıcılar için pratiktir.
Başlamadan önce, çalışma sayfanızın yazdırma için biçimlendirildiğinden emin olun ve Baskı Önizleme’de kaç sayfa üretileceğini onaylayın. Bu, beklenmedik sayfa sonları nedeniyle boş veya gereksiz baskıların önlenmesine yardımcı olacaktır.
1. Yazdırmayı planladığınız çalışma sayfasını açın, ardından Alt + F11 tuşlarına basarak Microsoft Visual Basic for Applications (VBA) düzenleyicisini başlatın.
2. VBA düzenleyicisinde, Ekle > Modül'ü tıklayarak yeni bir modül ekleyin ve aşağıdaki kodu betik penceresine yapıştırın. Rehberlik için ekran görüntüsüne bakınız.
VBA: Yalnızca tek veya çift sayfaları yazdır
Sub Odd_Even_Print()
'UpdatebyExtendoffice20160901
Dim xTotalPages As Long
Dim xStartPage As String
Dim xPage As Integer, xYesorNo
Application.ScreenUpdating = False
xStartPage = InputBox("Enter 1 for Odd, 2 for Even", "Kutools for Excel")
If xStartPage = "" Then Exit Sub
xTotalPages = ActiveSheet.PageSetup.Pages.Count
xYesorNo = MsgBox("Are you sure to print?", vbYesNo, "Kutools for Excel")
If xYesorNo = vbYes Then
For xPage = Int(xStartPage) To xTotalPages Step 2
ActiveSheet.PrintOut from:=xPage, To:=xPage
Next
Else
Exit Sub
End If
Application.ScreenUpdating = True
End Sub
Kod kopyalayıp yapıştırırken, mevcut ve gerekli olan makroların üzerine yazmadığınızdan emin olun.
3. Basın F5 makroyu çalıştırmak için. Seçiminizi belirtmeniz için bir istem belirecektir: girin 1 yalnızca tek numaralı sayfaları yazdırmak istiyorsanız, ya da 2 çift numaralı sayfalar için.
Not: Girdinizi (1 veya 2) iki kez kontrol edin, yanlış giriş makronun beklendiği gibi çalışmasını engelleyebilir. Geçersiz bir değer girerseniz, makro muhtemelen sizi uyaracak veya hiçbir şey yapmayacaktır.
4. Seçiminizi yaptıktan sonra tıklayın Tamam. Bir sonraki onay iletişim kutusu, yazdırmaya devam etmek istediğinize dair size soracaktır. Bu, yanlışlıkla yazdırma yapılması konusunda bir koruma sağlar.
Yazdırmadan önce iptal etmek istiyorsanız bu iletişim kutusunda Hayır'a tıklayın; aksi takdirde, devam etmek için Evet'e tıklayın.
5. Onay aldıktan sonra, Excel etkin çalışma sayfasının yalnızca belirtilen tek veya çift sayfalarını varsayılan yazıcıya gönderir.
Sorun giderme ve ipuçları:
- Bu makro şu anda aktif olan çalışma sayfası üzerinde çalışır. Birden fazla çalışma sayfasını yazdırmak istiyorsanız, her biri için makroyu ayrı ayrı çalıştırın.
- Makroyu çalıştırmadan önce yazıcı ayarlarına dikkat edin – Excel’in Yazdır iletişim kutusunda doğru yazıcının seçili olduğundan emin olun.
- Eğer hiçbir şey yazdırılmıyorsa, yazdırma alanını tekrar kontrol edin ve çalışma sayfanızın boş olmadığını veya yazdırma için yanlış biçimlendirilmediğinden emin olun.
Kutools for Excel ile istediğiniz gibi tek, çift veya belirli sayfaları yazdırın
Çalışma sayfalarınızdan sık sık tek, çift veya birden fazla belirli sayfaları yazdırmanız gerekiyorsa, Kutools for Excel oldukça verimli bir çözüm sunar. Bu yaklaşım, karmaşık baskı işlerini yönetmek için sezgisel ve kullanıcı dostu bir arayüz arayan kullanıcılar için uygundur. Kutools for Excel ile yalnızca tüm tek veya çift sayfaları değil, aynı zamanda rastgele özel sayfa aralıkları da kolayca belirleyebilirsiniz – bu özellik Excel'in yerel özellikleri veya basit makrolarla kolayca mümkün değildir.
Kutools for Excel'i ücretsiz yükledikten sonra, Belirli Sayfaları Yazdır aracıyla çeşitli baskı ihtiyaçlarını verimli bir şekilde karşılayabilirsiniz:
Bunu yapmak için Kutools Plus > Yazdırma > Belirli Sayfaları Yazdır'a gidin. Belirli Sayfaları Yazdır iletişim kutusu açılacak ve burada baskı gereksinimlerinize göre seçenekleri seçebilirsiniz.
![]() | ![]() | ![]() |
Bu iletişim kutusunda şunları yapabilirsiniz:
- Tüm tek sayfaları, tüm çift sayfaları yazdırmayı seçebilir veya ihtiyaçlarınıza göre özel bir aralık belirleyebilirsiniz, bu da Excel'in varsayılan baskı seçeneklerine kıyasla çok daha fazla esneklik sağlar.
- Seçiminizin önizlemesini kolayca alarak doğru sayfaları yazdırdığınızdan emin olabilir ve baskı israfını önleyebilirsiniz.
İpucu:
1. Örneğin 1, 3, 5 ve 9 ila 12 sayfaları gibi özel bir sayfa seti yazdırmak için Özel Aralık seçeneğini seçin ve ilgili alana aralığınızı girin (örn. 1, 3, 5, 9-12).
2. Kopya sayısını kontrol etmek için, sadece Kopyalar ayarında istenen sayıyı belirtin ve seçtiğiniz sayfaların katlarını yazdırın.
3. Eğer sayfaları ters sırayla yazdırmak istiyorsanız, Ters yazdır seçeneğini işaretleyin. Bu özellikle baskı sonrası sayfaları düzenleme endişesi duyduğunuz büyük baskı işleri için yararlıdır.
Uyarılar ve öneriler:
- Kutools’un baskı özelliklerini kullanarak doğru sonuçlar elde etmek için çalışma sayfanızın sayfa sonlarını ve baskı alanını önceden kontrol edin.
- Belirli aralıkları yazdırıyorsanız, sayfa kurulumunuza bağlı olarak gizli satırlar veya sütunlar hala dahil edilebilir.
- Her zaman baskıdan önce Çıktıyı Önizleme ile nihai çıktıyı onaylayın, özellikle büyük veya kritik belgeler için.
- Bu yöntem aynı anda bir çalışma sayfasında çalışır; ek sayfalar için gerektiği kadar tekrarlayın.
Avantajlar: Kutools for Excel, tekrarlayan işler, karmaşık raporlar yöneten kullanıcılar veya baskı hatalarını en aza indirmek isteyen herkes için idealdir. Arayüzü kodlama bilgisi gerektirmez ve özel baskı senaryoları için VBA çözümlerinden çok daha esnektir.
Alternatif Çözüm: Yazdırma İletişim Kutusu ile Manuel Olarak Tek veya Çift Sayfaları Yazdırma
Eğer VBA veya üçüncü parti araçlar kullanmak istemiyorsanız, Excel'de tek veya çift sayfaları manuel olarak yazdırabilirsiniz, ancak Yazdır iletişim kutusu kullanılarak aynı anda yalnızca bir sayfa aralığı yazdırılabilir. Excel, birden fazla bitişik olmayan sayfa (örn., 1,3,5) girilmesini desteklemez.
Manuel olarak tek veya çift sayfaları yazdırmak için:
- Dosya > Yazdır'a gidin.
- Sayfalar alanında, yalnızca belirli bir sayfayı yazdırmak için “İlk” kutusuna tek bir sayfa numarası girin (örn., 1).
- Yazdır'a tıklayın.
- Gerektiğinde her tek veya çift sayfa için bu işlemi tekrarlayın.
Demo: Kutools for Excel ile istediğiniz gibi tek, çift veya belirli sayfaları yazdırma
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar. En çok ihtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
- Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!