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

Ancak Excel'in Yazdırma iletişim kutusu, yalnızca tek veya yalnızca çift sayfaları yazdırmanın doğrudan bir yolunu sunmaz. Bu durum, uzun bir çalışma sayfasından belirli sayfaları gözden geçirmek, dağıtmak veya arşivlemek istediğiniz ofis veya veri raporlama senaryolarında rahatsızlık yaratabilir.
Bu makale, Excel'deki bu sınırlamanın üstesinden gelmek için iki etkili çözüm sunmaktadır. Hem tek veya çift sayfaları yazdırmak için bir VBA makrosu bulacaksınız, hem de Kutools for Excel kullanarak daha esnek bir yaklaşım göreceksiniz. Böylece size en uygun ve teknik olarak rahat çözümü seçebilirsiniz.
Yalnızca tek veya çift sayfaları Makro kodu ile yazdırma
Kutools for Excel ile isteğinize göre tek, çift veya belirli sayfaları yazdırma

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ırma
Excel'de, yazdırma arayüzü tek/çift sayfa seçimi için doğrudan seçeneklere sahip olmasa da, bunu bir VBA makrosu aracılığıyla gerçekleştirebilirsiniz. Bu yöntem, basit kod çalıştırmaktan rahatsızlık duymayan ve üçüncü parti araçlar olmadan çalışan bir çözüme ihtiyaç duyan kullanıcılar 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 Kaç sayfa üretileceğini Yazdırma Önizleme'den kontrol edin. Bu, beklenmedik sayfa sonları nedeniyle boş veya gereksiz baskılar önlemeye yardımcı olacaktır.
1. Yazdırmayı planladığınız çalışma sayfasını açın, ardından Alt + F11'e basarak Microsoft Visual Basic for Applications (VBA) düzenleyicisini başlatın.
2. VBA düzenleyicisinde, Ekle > Modül'e 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 bakabilirsiniz.
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 ihtiyaç duyabileceğiniz makroların üzerine yazmadığınızdan emin olun.
3. Bas F5 makroyu çalıştırmak için. Seçiminizi belirtmek için bir istem görünecektir: sadece tek numaralı sayfaları yazdırmak istiyorsanız 1 yazın, ya da 2 çift numaralı sayfalar için.
Not: Girişinizi (1 veya 2) dikkatlice 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 Tamam'a tıklayın. Bir ikinci onay iletişim kutusu açılacak ve yazdırmaya devam etmek istediğinizi soracaktır. Bu, yanlışlıkla yazdırma yapılmasını engelleyen bir koruma sağlar.
Yazdırmadan önce iptal etmek istiyorsanız bu iletişim kutusunda Hayır'a tıklayın; aksi takdirde yazdırmaya devam etmek için Evet'e tıklayın.
5. Onay aldıktan sonra, Excel aktif çalışma sayfasının yalnızca belirlenen tek veya çift sayfalarını varsayılan yazıcıya gönderir.
Sorun giderme ve ipuçları:
- Bu makro şu anda etkin 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ırma iletişim kutusunda doğru yazıcının seçildiğinden 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 isteğinize göre tek, çift veya belirli sayfaları yazdırın
Çalışma sayfalarınızdan sık sık tek, çift veya birden fazla belirli sayfa yazdırmaya ihtiyaç duyuyorsanız, Kutools for Excel oldukça etkili 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ı yazdırmayı değil, aynı zamanda rastgele özel sayfa aralıklarını kolayca belirleyebilirsiniz - bu özellik Excel'in yerel özellikleri veya basit makrolarla kolayca mümkün değildir.
ücretsiz yükledikten sonra, Belirtilen Sayfaları Yazdır aracı ile çeşitli baskı ihtiyaçlarını verimli bir şekilde karşılayabilirsiniz:
Bunu yapmak için, Kutools Plus > Yazdırma > Belirtilen Sayfaları Yazdır'a gidin. Belirtilen Sayfaları Yazdır iletişim kutusu açılacak ve burada baskı gereksinimlerinize göre seçenekleri seçebilirsiniz.
![]() | ![]() | ![]() |
Bu iletişim kutusu içinde ş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, Excel'in varsayılan baskı seçeneklerine kıyasla çok daha fazla esneklik sağlar.
- Seçiminizi kolayca önizleyebilir ve doğru sayfaları yazdırdığınızdan emin olarak baskı israfını önleyebilirsiniz.
İpucu:
1. Örneğin 1, 3, 5 ve 9 ila 12 sayfaları gibi özel bir sayfa kümesi yazdırmak için Özel aralık seçeneğini seçin ve aralığı ilgili alana girin (örn. 1, 3, 5, 9-12).
2. Kopya sayısını kontrol etmek için, yalnızca Kopyalar ayarında istediğiniz sayıyı belirtin ve seçtiğiniz sayfaların katlarını yazdırabilirsiniz.
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üzenlemenin önemli olduğu büyük baskı işleri için faydalıdır.
Dikkat ve öneriler:
- Kutools'un baskı özelliklerini doğru sonuçlar almak için çalışma sayfanızın sayfa sonlarını ve baskı alanını önceden kontrol edin.
- Eğer seçili aralıkları yazdırıyorsanız, gizli satırların veya sütunların sayfa kurulumunuza bağlı olarak hala dahil edilebileceğini unutmayın.
- Her zaman son baskıdan önce Baskı Önizleme'yi kullanarak çıktıyı onaylayın, özellikle büyük veya kritik belgeler için.
- Bu yöntem aynı anda bir çalışma sayfası üzerinde işlem yapar; ek sayfalar için gerektiğinde işlemi 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ırma iletişim kutusu kullanılarak yalnızca bir sayfa aralığı yazdırılabilir. Excel, birden fazla kesintili 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 'Başlangıç' kutusuna tek bir sayfa numarası girin (örn., 1).
- Yazdır'a tıklayın.
- Gerektiği kadar her tek veya çift sayfa için bu işlemi tekrarlayın.
Demo: Kutools for Excel ile isteğinize göre tek, çift veya belirli sayfaları yazdırma
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin, daha önce hiç yaşamadığınız bir verimlilik deneyimini yaşayın. Kutools for Excel, üretkenliğinizi artıracak ve zamanı kaydetmenizi sağlayacak300’den fazla gelişmiş özellik sunar. En çok ihtiyaç duyduğunuz özelliği almak için buraya tıklayın...
Office Tab, Office’e sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint’te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Aynı pencere içerisinde yeni sekmelerde birden fazla belge açın veya oluşturun, yeni pencerelerde açmak yerine.
- Verimliliğinizi %50 artırın, her gün yüzlerce fare tıklamasını sizin için azaltın!